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

Output messages on site generation

parent 34f94ae1
...@@ -52,9 +52,11 @@ ...@@ -52,9 +52,11 @@
output-stream)))) output-stream))))
(defun process-pages () (defun process-pages ()
(let (format t "Processing pages..~%")
((template-path (pathname (merge-pathnames *LAYOUT-DIR* *DEFAULT-PAGE-TEMPLATE*)))) (let ((template-path (pathname (merge-pathnames *LAYOUT-DIR* *DEFAULT-PAGE-TEMPLATE*))))
(progn (ensure-directories-exist *OUTPUT-DIR*) (ensure-directories-exist *OUTPUT-DIR*)
(loop for page in *PAGES* (loop for page in *PAGES*
do do
(render-page page template-path))))) (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