Commit ec0a4aa0 authored by Erik Huelsmann's avatar Erik Huelsmann

Fix output-dir function argument being ignored (and *output-dir* global being used)

Note that the value of 'output-dir' defaults to *output-dir*
but that it /can/ be overridden. In case of an override, we
should honor the setting instead of using *output-dir* behind
the caller's back.
parent 74563d90
......@@ -8,13 +8,12 @@
(member d processed-pages :test #'string=))
dependencies)))
(defun make-site (&optional output-dir)
(let ((*output-dir* (or output-dir *output-dir*))
(pages (populate-pages)))
(ensure-directories-exist *OUTPUT-DIR*)
(format t "Generating site in ~A.~%" *output-dir*)
(process-static *static-dir* *output-dir*)
(process-static (merge-pathnames #P"static/" *layout-dir*) *output-dir*)
(defun make-site (&optional (output-dir *output-dir*))
(let ((pages (populate-pages)))
(ensure-directories-exist output-dir)
(format t "Generating site in ~A.~%" output-dir)
(process-static *static-dir* output-dir)
(process-static (merge-pathnames #P"static/" *layout-dir*) output-dir)
(loop with processed-pages = '()
with delayed-pages = '()
......
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