diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-09 00:58:35 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-09 00:58:35 +0200 |
| commit | 7c1a65f0f384f1f4e6c0005952b85f140323d017 (patch) | |
| tree | 8088c97a5d3523036975c90eabbe821507ea3ef8 | |
| parent | e41cb9a693315df4cceac030070cb3a3ef71d1a6 (diff) | |
Add a comment about the option of using escaped HTML instead of embedded XHTML.
Ignore-this: 8054060bf5c28c72f0c1808eb5b376f4
darcs-hash:703f4f5878e0db0ab9350c97413de45a5fddfee9
| -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)))) |