From 60f785aad98aacfe56b76d6f7ef166f8975cb0c3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 23 Jan 2010 17:36:25 +0100
Subject: Allow HTML in article titles.

Ignore-this: 50e7b402ab0c62a0c18510b32b7b5ad

darcs-hash:ada0af9783ba687e2ad2d663e1e34459bb92a44e
---
 journal.lisp | 5 +++--
 1 file 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))
-- 
cgit v1.2.3