@@ -43,9 +43,9 @@

                                           params)))))))

 (defun start (app)

-  (setf (handler app)

-        (clack:clackup (app app)))

-  app)

+  (prog1 app

+    (setf (handler app)

+          (clack:clackup (app app)))))

 (defvar *app*)

@@ -61,4 +61,4 @@

                            (feed-reference :techcrunch      "https://techcrunch.com/feed/")

                            (plump-cleaner  :coding-horror   "http://feeds.feedburner.com/codinghorror")

                            (feed-reference :daring-fireball "https://daringfireball.net/feeds/main")))))

-            *app*)))

+            (araneus:routes *app*))))

@@ -5,7 +5,17 @@

 (fw.lu:defclass+ feed-reference ()

   ((%key :initarg :key :reader feed-key)

-   (%url :initarg :url :reader feed-url)))

+   (%url :initarg :url :reader feed-url)

+   (%data)))

+

+(defgeneric refresh-data (feed-reference)

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

+    (setf (slot-value feed-reference '%data)

+          (alimenta.pull-feed:pull-feed

+           (feed-url feed-reference)))))

+

+(defmethod slot-unbound (_ (instance feed-reference) (slot-name (eql '%data)))

+  (refresh-data instance))

 (fw.lu:defclass+ plump-cleaner

     ((feed-reference (key url)))

@@ -13,7 +23,7 @@

 (defgeneric resolve-feed-reference (reference)

   (:method ((r feed-reference))

-    (alimenta.pull-feed:pull-feed (feed-url r))))

+    (slot-value r '%data)))

 (defgeneric prepare-feed-item-description (reference item)

   (:method ((r feed-reference) (item alimenta:item))

@@ -21,7 +31,6 @@

   (:method ((r plump-cleaner) (item alimenta:item))

     (let ((description (alimenta:description item)))

       (when description

-        (format t "~&aaaaa~%")

         (plump:text

          (plump:parse

           description))))))

@@ -23,7 +23,7 @@

                (:file "utils" :depends-on ("package"))

                (:file "default-layout")

                (:file "model")

-               (:file "rss-render" :depends-on "model")

+               (:file "rss-render" :depends-on ("model"))

                (:file "ui" :depends-on ("package"))

                (:file "view" :depends-on ("package" "ui" "default-layout" "rss-render" "model"))

                (:file "main" :depends-on ("package" "utils" "view" "model"))))