diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:36:31 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:36:31 +0200 |
| commit | c7eb737c5716b9dd01dede9ab0cf2213378ac3cb (patch) | |
| tree | d255f43ec4b3bd54793a004412d0305a97262632 | |
| parent | 368e4e5ad04e1ce4ad2de94a1ccc3dea070a53b1 (diff) | |
Fix static generation of the index page.
Ignore-this: 19cfc3daac44740a61085d7ddcd5ecde
darcs-hash:60ca3c13923e5e9cdd18e10be0158410e778a50e
| -rwxr-xr-x | journal.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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 () |