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