diff options
Diffstat (limited to 'journal.lisp')
| -rwxr-xr-x | journal.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/journal.lisp b/journal.lisp index 96bc7c6..74dfb40 100755 --- a/journal.lisp +++ b/journal.lisp @@ -177,12 +177,16 @@ ("xml:lang" "de") ("xml:base" ,(link-to :index :absolute t)))) (with-tag ("div" '(("xmlns" "http://www.w3.org/1999/xhtml"))) - (xml-as-is (if (equal (entry-type-of journal-entry) "html") - (body-of journal-entry) - (journal-markup->html (body-of journal-entry)))))))))) + (xml-as-is (htmlise-entry journal-entry)))))))) #.(restore-sql-reader-syntax-state)) +(defun htmlise-entry (journal-entry) + (if (equal (entry-type-of journal-entry) "html") + (body-of journal-entry) + (journal-markup->html (body-of journal-entry)))) + + (defun show-atom-feed (&key include-edit-links full-content) #.(locally-enable-sql-reader-syntax) (revalidate-cache-or-die "application/atom+xml; charset=UTF-8") |