marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix atom feed generation

Browse source
This commit is contained in:
Do Nhat Minh 2013-04-25 16:40:55 +08:00
parent e399b6063a
commit 6e4082c7cb
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/feeds.lisp
View file

@ -19,7 +19,7 @@
"Render the default RSS and ATOM feeds along with any TAG-FEEDS." "Render the default RSS and ATOM feeds along with any TAG-FEEDS."
(let ((posts (by-date (find-all 'post)))) (let ((posts (by-date (find-all 'post))))
(dolist (feed '((:path "rss.xml" :template :rss-feed) (dolist (feed '((:path "rss.xml" :template :rss-feed)
(:path "feed.atom" :template :atom-feed))) (:path "atom.xml" :template :atom-feed)))
(apply #'render-feed posts feed)) (apply #'render-feed posts feed))
(dolist (feed tag-feeds) (dolist (feed tag-feeds)
(apply #'render-feed posts (list :path (format nil "~A-rss.xml" feed) (apply #'render-feed posts (list :path (format nil "~A-rss.xml" feed)

2
themes/atom.tmpl
View file

@ -22,7 +22,7 @@
<name>{$config.author}</name> <name>{$config.author}</name>
<uri>{$config.domain}</uri> <uri>{$config.domain}</uri>
</author> </author>
<content type="html">{$post.text |noAutoescape}</content> <content type="html">{$post.text |escapeHtml}</content>
</entry> </entry>
{/foreach} {/foreach}