Author: hhubner Date: 2006-07-22 09:03:32 -0400 (Sat, 22 Jul 2006) New Revision: 1972
Modified: branches/xml-class-rework/bknr/src/rss/rss.lisp Log: Be more specific about the RSS generated, still not working for GMail clips.
Modified: branches/xml-class-rework/bknr/src/rss/rss.lisp =================================================================== --- branches/xml-class-rework/bknr/src/rss/rss.lisp 2006-07-22 12:59:15 UTC (rev 1971) +++ branches/xml-class-rework/bknr/src/rss/rss.lisp 2006-07-22 13:03:32 UTC (rev 1972) @@ -70,7 +70,7 @@ (with-element "rss" (attribute "version" "2.0") (with-element "channel" - (dolist (slot '(title description link)) + (dolist (slot '(title link description)) (render-mandatory-element channel slot)) (dolist (item (rss-channel-items channel)) @@ -137,7 +137,14 @@
(defmethod rss-item-xml ((item rss-item)) (with-element "item" - (dolist (slot '(title link description author category comments enclosure guid source)) + (dolist (slot '(title link author category comments enclosure source)) (item-slot-element item slot)) + (aif (rss-item-guid item) + (with-element "guid" + (attribute "isPermaLink" "true") + (text it))) + (aif (rss-item-description item) + (with-element "description" + (cdata it))) (with-element "pubDate" (text (format-date-time (rss-item-pub-date item) :mail-style t)))))