Commit dd3ec040 authored by Erik Huelsmann's avatar Erik Huelsmann
Browse files

Make CL preprocessor behave

Note that the preprocessors are supposed to consume the 'content'
variable's value, but that the lisp preprocessor
grabbed the disk file's content instead.
This commit resolves that situation.
parent f5b89fe1
Pipeline #618 passed with stage
in 3 seconds
......@@ -61,8 +61,8 @@
(unless (string= (pathname-type lisp-file) "lisp")
(return-from preprocess-lisp-page (call-next-hook content context)))
(let (*computed-page-content*)
;;;###TODO not happy about loading the lisp file; it defeats the preprocessor/postprocessor purpose
(load (merge-pathnames lisp-file *pages-dir*))
(with-input-from-string (s content)
(load s))
(let ((headers (getf *computed-page-content* :headers)))
(call-next-hook (getf *computed-page-content* :html-string)
(append (mapcan #'(lambda (key value)
Supports Markdown
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