From c7eb737c5716b9dd01dede9ab0cf2213378ac3cb Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 12:36:31 +0200
Subject: Fix static generation of the index page.

Ignore-this: 19cfc3daac44740a61085d7ddcd5ecde

darcs-hash:60ca3c13923e5e9cdd18e10be0158410e778a50e
---
 journal.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index 0cb8a07..d3ecc02 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -712,7 +712,8 @@
   (let ((file-path (merge-pathnames "index.xhtml" *static-dir*)))
     (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede)
       (with-yaclml-stream *standard-output*
-        (let ((*mode* :file))
+        (let ((*mode* :file)
+              (*action* :index))
           (show-web-journal))))))
 
 (defun update-all-journal-entry-pages ()
-- 
cgit v1.2.3