Commit cf69367d authored by Philipp Marek's avatar Philipp Marek
Browse files

Merge branch 'behaving-lisp-preprocessor' into 'less-rendering-output'

Make CL preprocessor behave

See merge request !84
parents f5b89fe1 dd3ec040
Pipeline #621 passed with stage
in 9 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