diff options
| -rwxr-xr-x | journal.lisp | 8 |
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)))) |