diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-01-07 23:25:08 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-01-07 23:25:08 +0100 |
| commit | 08b0c1fa7d12ab0c20e2541768aea478f241307e (patch) | |
| tree | 51d3c0944a7d06df7a51346486467a0fa8071490 | |
| parent | 6d7a7e2314987dc113b7f3888bcc4d07e7b2781a (diff) | |
Fix minor bugs in the comment feed.
darcs-hash:a30bb1ad0cd52c6a2c4e3b7c07e569eb4cee3ea3
| -rwxr-xr-x | journal.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/journal.lisp b/journal.lisp index ae71576..1020de8 100755 --- a/journal.lisp +++ b/journal.lisp @@ -62,7 +62,7 @@ 0))) (with-xml-output (*standard-output* :encoding "utf-8") (with-tag ("feed" '(("xmlns" "http://www.w3.org/2005/Atom"))) - (emit-simple-tags :title "Kommentare — Kompottkins Weisheiten" + (emit-simple-tags :title "Kommentare — Kompottkins Weisheiten" :updated (atom-time (max (or (single-object (select [max [slot-value 'journal-entry 'date]] @@ -182,7 +182,8 @@ ("xml:base" ,(link-to :index :absolute t)))) (with-tag ("div" '(("xmlns" "http://www.w3.org/1999/xhtml"))) (xml-as-is (with-yaclml-output-to-string - (render-comment-body (body-of journal-entry)))))))))))))) + (<:as-html + (render-comment-body (body-of journal-entry))))))))))))))) #.(restore-sql-reader-syntax-state)) |