From 47ba30a0350440ded8a263f4352ecf466efc655d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 11 Oct 2009 14:11:00 +0200 Subject: Show titles including HTML code correctly. Ignore-this: 5d0c1b14bd2da10ed4dcd6247ca5fc6a darcs-hash:b94922d88e1654c9ac99ec54a6f2337a2c3d8bbe --- journal.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/journal.lisp b/journal.lisp index 6652bdb..5004ad1 100755 --- a/journal.lisp +++ b/journal.lisp @@ -279,7 +279,7 @@ (unless *full-entry-view* (<:tr (<:td (<:a :href (link-to :view :post-id id) - (<:as-html title))) + (<:as-is title))) (<:td :style "text-align: right" (<:as-is (format-date nil "%day%.%mon%.%yr%, %hr%:%2min%" posting-date))) (<:td (<:a :href (link-to :view :post-id id) @@ -289,7 +289,7 @@ (when *full-entry-view* (<:div :class :journal-entry (<:h2 (<:a :href (link-to :view :post-id id) - (<:as-html title))) + (<:as-is title))) (<:div :class :journal-entry-header (<:span :class :journal-entry-date (<:as-html @@ -426,9 +426,9 @@ :lang "de" (<:head (<:title - (<:as-html + (<:as-is (if page-title - (format nil "~A -- Kompottkins Weisheiten" page-title) + (format nil "~A — Kompottkins Weisheiten" page-title) "Kompottkins Weisheiten"))) (<:link :rel "alternate" :type "application/atom+xml" -- cgit v1.2.3