Commit 6c092646 authored by Mariano Montone's avatar Mariano Montone

Output messages on site generation

parent 34f94ae1
......@@ -52,9 +52,11 @@
output-stream))))
(defun process-pages ()
(let
((template-path (pathname (merge-pathnames *LAYOUT-DIR* *DEFAULT-PAGE-TEMPLATE*))))
(progn (ensure-directories-exist *OUTPUT-DIR*)
(loop for page in *PAGES*
do
(render-page page template-path)))))
(format t "Processing pages..~%")
(let ((template-path (pathname (merge-pathnames *LAYOUT-DIR* *DEFAULT-PAGE-TEMPLATE*))))
(ensure-directories-exist *OUTPUT-DIR*)
(loop for page in *PAGES*
do
(format t "Generating ~A~%" (cdr (assoc :content page)))
(render-page page template-path))
(format t "Done.~%")))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment