summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp8
1 files changed, 8 insertions, 0 deletions
diff --git a/journal.lisp b/journal.lisp
index b8ec11d..2fbcd0e 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -163,6 +163,14 @@
:absolute t))
("title" ,title)))))
(when full-content
+ ;; Escaped HTML or embedded XHTML? What shall we prefer?
+ #+(or)
+ (with-tag ("content" `(("type" "html")
+ ("xml:lang" "de")
+ ("xml:base" ,(link-to :index :absolute t))))
+ (xml-out (if (equal (entry-type-of journal-entry) "html")
+ (body-of journal-entry)
+ (journal-markup->html (body-of journal-entry)))))
(with-tag ("content" `(("type" "xhtml")
("xml:lang" "de")
("xml:base" ,(link-to :index :absolute t))))