Allow HTML in article titles.

Ignore-this: 50e7b402ab0c62a0c18510b32b7b5ad

darcs-hash:ada0af9783ba687e2ad2d663e1e34459bb92a44e

1 files changed, 3 insertions, 2 deletions

diff --git a/journal.lisp b/journal.lisp
index 5cccfed..c27acda 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -156,8 +156,9 @@
     (with-slots (title date body categories last-modification id)
                 journal-entry
        (with-tag ("entry")
-         (emit-simple-tags :title title
-                           :id (format nil "urn:uuid:~(~A~)"
+         (with-tag ("title" `(("type" "html")))
+           (xml-out title))
+         (emit-simple-tags :id (format nil "urn:uuid:~(~A~)"
                                        (uuid-of journal-entry))
                            :updated (atom-time (or last-modification date))
                            :published (atom-time date))