@@ -44,32 +44,6 @@

 (defun unboundp (symbol)

   (not (boundp symbol)))

-(defgeneric feed-key (object))

-(defgeneric feed-url (object))

-

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

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

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

-

-(fw.lu:defclass+ plump-cleaner

-    ((feed-reference (key url)))

-  ())

-

-(defgeneric resolve-feed-reference (reference)

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

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

-

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

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

-    (alimenta:description item))

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

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

-      (when description

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

-        (plump:text

-         (plump:parse

-          description))))))

-

 (defun main ()

   (setf *app*

         (if (not (boundp '*app*))

new file mode 100644

@@ -0,0 +1,28 @@

+(in-package :fwoar.rss-reader)

+

+(defgeneric feed-key (object))

+(defgeneric feed-url (object))

+

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

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

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

+

+(fw.lu:defclass+ plump-cleaner

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

+  ())

+

+(defgeneric resolve-feed-reference (reference)

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

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

+

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

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

+    (alimenta:description item))

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

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

+      (when description

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

+        (plump:text

+         (plump:parse

+          description))))))

+

@@ -22,7 +22,8 @@

   :components ((:file "package")

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

                (:file "default-layout")

-               (:file "rss-render")

+               (:file "model")

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

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

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

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

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

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