summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp5
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))