From b61c67a5ad07fae329374a947ace02f671ccbd01 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 10 Dec 2008 22:30:48 +0100
Subject: Fix code formatting.

darcs-hash:3d73e2fccd56f3c68e05836b4e5725e5b30b4322
---
 journal.lisp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/journal.lisp b/journal.lisp
index 957a0db..3737934 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -141,16 +141,16 @@
                                            posting-date comments comments-p)
   (<:div :class :journal-entry
    (<:h2 (<:a :href (link-to :view :post-id id)
-              (<:as-html title)))
-    (<:div :class :journal-entry-header
-     (<:span :class :journal-entry-date
-      (<:as-html
-       (format-date nil "%@day-of-week, den %day.%mon.%yr, %hr:%2min."
-                    posting-date)))
-     (unless (null categories)
-       (<:span :class :journal-entry-category
-        (<:as-html
-         (format nil "Abgeheftet unter ...")))))
+    (<:as-html title)))
+   (<:div :class :journal-entry-header
+    (<:span :class :journal-entry-date
+     (<:as-html
+      (format-date nil "%@day-of-week, den %day.%mon.%yr, %hr:%2min."
+                   posting-date)))
+    (unless (null categories)
+      (<:span :class :journal-entry-category
+       (<:as-html
+        (format nil "Abgeheftet unter ...")))))
     (when *full-entry-view*
       (<:div :class :journal-entry-body
        (<:as-is (journal-markup->html body))))
-- 
cgit v1.2.3