Commit 736107d4 authored by Erik Huelsmann's avatar Erik Huelsmann

Only add page to processed-pages when actually processed (and clean up output)

Due to a missing 'and' before 'collect rel-page-path',
the page's path was *always* added to the processed
collection, instead of only when actually processed.

Additionally, clean up output a bit.
parent 2664a03e
......@@ -45,16 +45,17 @@
for satisfies-deps-p = (funcall satisfies-deps-fn)
unless satisfies-deps-p
collect (list satisfies-deps-fn content context rel-page-path) into delayed-pages
do (format t "Delayed ~a~%" rel-page-path)
and do (format t "Delayed rendering ~a~%" rel-page-path)
when satisfies-deps-p
do (preprocess-md-page content context
do (progn
(format t "Rendering ~A~%" rel-page-path))
(preprocess-md-page content context
(list #'preprocess-lisp-page
(lambda (p c next-processors)
(process-page p c))))
collect rel-page-path into processed-pages
do (loop for resolved-deps-pages =
and collect rel-page-path into processed-pages
and do (loop for resolved-deps-pages =
(loop for delay in delayed-pages
for satisfies-deps-p = (funcall (car delay))
when satisfies-deps-p
......@@ -77,7 +77,6 @@
(defun process-page (content context)
(let ((template-path (pathname (merge-pathnames *templates-dir* *DEFAULT-PAGE-TEMPLATE*))))
(format t "Rendering ~A~%" (cdr (assoc :content context)))
(render-page content context template-path)))
;; Process news
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