marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix write-document to work for feeds.

Browse source
This commit is contained in:
Brit Butler 2014-04-28 14:09:27 -04:00
parent 7e028d354e
commit 44e82382f3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/documents.lisp
View file

@ -58,7 +58,7 @@
(defun write-document (document &optional theme-fn &rest render-args)
"Write the given DOCUMENT to disk as HTML. If THEME-FN is present,
use it as the template passing any RENDER-ARGS."
(let ((html (if render-args
(let ((html (if (or theme-fn render-args)
(apply #'render-page document theme-fn render-args)
(render-page document nil))))
(write-file (page-path obj) html)))