git.fiddlerwoaroof.com
Browse code

feature: add description to main api

Ed Langley authored on 06/11/2019 06:51:09
Showing 3 changed files
... ...
@@ -34,6 +34,7 @@
34 34
 (defclass item (feed-entity)
35 35
   ((author :initarg :author :initform nil :accessor author)
36 36
    (content :initarg :content :initform nil :accessor content)
37
+   (description :initarg :description :accessor description)
37 38
    (date :initarg :date :initform nil :accessor date)
38 39
    (id :initarg :id :initform nil :accessor id)
39 40
    (links :initform (make-hash-table :test #'equalp) :accessor links)))
... ...
@@ -73,6 +73,7 @@
73 73
                    :doc xml-dom
74 74
                    :content content
75 75
                    :date (local-time:parse-timestring item-date)
76
+                   :description item-description
76 77
                    :id item-guid
77 78
                    :author item-author
78 79
                    :author-uri item-author-uri
... ...
@@ -22,8 +22,8 @@
22 22
                                              (plump:text (elt x 0))))
23 23
                                (let ((plump:*tag-dispatchers* plump:*xml-tags*))
24 24
                                  ($1 (inline doc) "channel > image"
25
-                                     (combine "url" "title" "link" "width" "height"
26
-                                              "description")))))) 
25
+                                   (combine "url" "title" "link" "width" "height"
26
+                                            "description"))))))
27 27
 
28 28
   (categories "category" :value (get-categories doc  "channel > category"))
29 29
   (text-input "textInput")
... ...
@@ -225,7 +225,7 @@
225 225
           (get-date "Fri, 09 Jan 2016 21:30:00 -0230"))) 
226 226
 
227 227
 (defmethod alimenta::-to-feed (xml-dom (type (eql :rss)) &key feed-link)
228
-  ; TODO: store feed-link
228
+  ;; TODO: store feed-link
229 229
   (flet ((get-channel-element (el)
230 230
            ($ (inline xml-dom) el (text) (node))))
231 231
     (let* ((*lquery-master-document* xml-dom)
... ...
@@ -235,8 +235,8 @@
235 235
            (doc-feed-link (or feed-link
236 236
                               ($ "channel > atom::link[rel=self]" (attr "href") (node)))))
237 237
       (make-instance 'rss-feed
238
-        :title doc-title
239
-        :link doc-link
240
-        :description doc-description
241
-        :feed-link doc-feed-link))))
238
+                     :title doc-title
239
+                     :link doc-link
240
+                     :description doc-description
241
+                     :feed-link doc-feed-link))))
242 242