Browse code
feature: add description to main api
Ed Langley authored on 06/11/2019 06:51:09
Showing 3 changed files
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))) |
... | ... |
@@ -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 |
|