Fix code formatting.

darcs-hash:3d73e2fccd56f3c68e05836b4e5725e5b30b4322

1 files 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))))