From 368e4e5ad04e1ce4ad2de94a1ccc3dea070a53b1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 11 Oct 2009 12:29:58 +0200 Subject: =?UTF-8?q?Save=20static=20files=20with=20a=20file-name=20extensio?= =?UTF-8?q?n=20of=20=E2=80=9Cxhtml=E2=80=9D.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Ignore-this: 9a9f3d17c31172c06fcb74a5942b37b5 darcs-hash:abeff328e6d4f88c89632032f5dd8acf849cea72 --- journal.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'journal.lisp') 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* -- cgit v1.2.3