Commit cf69367d authored by Philipp Marek's avatar Philipp Marek

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

Make CL preprocessor behave

See merge request clo/cl-site!84
parents f5b89fe1 dd3ec040
...@@ -61,8 +61,8 @@ ...@@ -61,8 +61,8 @@
(unless (string= (pathname-type lisp-file) "lisp") (unless (string= (pathname-type lisp-file) "lisp")
(return-from preprocess-lisp-page (call-next-hook content context))) (return-from preprocess-lisp-page (call-next-hook content context)))
(let (*computed-page-content*) (let (*computed-page-content*)
;;;###TODO not happy about loading the lisp file; it defeats the preprocessor/postprocessor purpose (with-input-from-string (s content)
(load (merge-pathnames lisp-file *pages-dir*)) (load s))
(let ((headers (getf *computed-page-content* :headers))) (let ((headers (getf *computed-page-content* :headers)))
(call-next-hook (getf *computed-page-content* :html-string) (call-next-hook (getf *computed-page-content* :html-string)
(append (mapcan #'(lambda (key value) (append (mapcan #'(lambda (key value)
......
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