From e3f72a5cba6b0df852401878d4a290bac303adc6 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Jan 2009 23:28:38 +0100
Subject: Fix major feed lossage introduced by recent changes.
darcs-hash:f1ab5fb9c97a6bdb2da1f639975c80aae5b831f8
---
journal.lisp | 9 +++++----
1 file 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))
--
cgit v1.2.3