@@ -14,6 +14,14 @@

   (:documentation

    "A simple wrapper that ties a ningle app to a clack handler"))

+(defgeneric add-feed (feed reader)

+  (:method :around (_ reader)

+    (call-next-method)

+    reader)

+  (:method ((feed feed-reference) (reader rss-reader))

+    (push feed

+          (feeds reader))))

+

 (defun redirect (target)

   (lambda (_)

     (declare (ignore _))