diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:29:58 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 12:29:58 +0200 |
| commit | 368e4e5ad04e1ce4ad2de94a1ccc3dea070a53b1 (patch) | |
| tree | 895d778356ad936a19b4cce7722c860b5d877ae6 | |
| parent | c70a0e096b72f74e098afa77df6d06fd10475893 (diff) | |
Save static files with a file-name extension of “xhtml”.
Ignore-this: 9a9f3d17c31172c06fcb74a5942b37b5
darcs-hash:abeff328e6d4f88c89632032f5dd8acf849cea72
| -rwxr-xr-x | journal.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/journal.lisp b/journal.lisp index 20d2558..0cb8a07 100755 --- a/journal.lisp +++ b/journal.lisp @@ -709,7 +709,7 @@ (update-comment-feed)) (defun update-index-page () - (let ((file-path (merge-pathnames "index.html" *static-dir*))) + (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)) @@ -723,7 +723,7 @@ (defun update-journal-entry-page (entry) (with-slots (id title) entry - (let* ((file-name (format nil "~D.html" id)) + (let* ((file-name (format nil "~D.xhtml" id)) (file-path (merge-pathnames file-name *static-dir*))) (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede) (with-yaclml-stream *standard-output* |