[bknr-cvs] r1972 - branches/xml-class-rework/bknr/src/rss

[bknr at bknr.net]

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)))))