diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 21:38:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 21:38:45 +0100 |
| commit | 3199fd448e0e15c23096460647b21f361561a2c7 (patch) | |
| tree | 076e36633c30b43ae43c897a682585c5bcd7eef6 /journal.lisp | |
| parent | 885f08e4eb78ce0ad6c2a86a33f89483a30018e0 (diff) | |
When returning a journal entry via XML-RPC, convert the content to HTML first.
Ignore-this: 9d27a2ac2c9b9f4b5b4c1ae95d7de792
darcs-hash:0d6505c5e3e851527d0ddcc858df798d366c580b
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") |