(def rss-stories (stories) (tag (rss version "2.0") (tag channel (tag title (pr this-site*)) (tag link (pr site-url*)) (tag description (pr site-desc*)) (each s stories (tag item (let comurl (+ site-url* (item-url s)) (tag title (pr (eschtml (s 'title)))) (tag link (pr (if (blank (s 'url)) comurl (eschtml (s 'url))))) (tag comments (pr comurl)) (tag description (pr "<![CDATA[") (link "Comments" comurl) (pr "]]>"))))))))
Thanks!