diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-01-07 23:28:38 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-01-07 23:28:38 +0100 |
| commit | e3f72a5cba6b0df852401878d4a290bac303adc6 (patch) | |
| tree | 9383af86b19533113a105395c1bb2567eb3578c5 /journal.lisp | |
| parent | 08b0c1fa7d12ab0c20e2541768aea478f241307e (diff) | |
Fix major feed lossage introduced by recent changes.
darcs-hash:f1ab5fb9c97a6bdb2da1f639975c80aae5b831f8
Diffstat (limited to 'journal.lisp')
| -rwxr-xr-x | journal.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/journal.lisp b/journal.lisp index 1020de8..b0b7190 100755 --- a/journal.lisp +++ b/journal.lisp @@ -112,7 +112,10 @@ ("xml:lang" "de") ("xml:base" ,(link-to :index :absolute t)))) (with-tag ("div" '(("xmlns" "http://www.w3.org/1999/xhtml"))) - (xml-as-is (journal-markup->html (body-of journal-comment)))))))))))))) + (xml-as-is + (with-yaclml-output-to-string + (<:as-html + (render-comment-body body))))))))))))))) #.(restore-sql-reader-syntax-state)) @@ -181,9 +184,7 @@ ("xml:lang" "de") ("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 - (<:as-html - (render-comment-body (body-of journal-entry))))))))))))))) + (xml-as-is (journal-markup->html (body-of journal-comment))))))))))))) #.(restore-sql-reader-syntax-state)) |