Commit d70d88b8 authored by Erik Huelsmann's avatar Erik Huelsmann

Pass all available context to the content processing phase

Note that we no longer write the newsbox.html file, but instead
put the content into the global context. Thus the global context
needs to be passed to the expansion of the 'index.html' content.
And if there, why not everywhere? (It'll open possibilities we
haven't thought of yet...)
parent 361f8ee2
......@@ -37,12 +37,14 @@
:direction :output
:if-exists :supersede)
(with-output-to-string (string-stream)
(let ((stream (make-broadcast-stream output-stream string-stream)))
(render-template template-path
(append (acons :page-content (render-template* content)
(acons :rel-path (enough-namestring (cdr (assoc :content context)) *pages-dir*)
context))
*GLOBAL-CONTEXT*)
(let* ((stream (make-broadcast-stream output-stream string-stream))
(page-context (append (acons :rel-path
(enough-namestring (cdr (assoc :content context)) *pages-dir*)
context)
*global-context*))
(page-content (render-template* content page-context)))
(render-template template-path (acons :page-content page-content
page-context)
stream))))))
(defun preprocess-md-page (content context next-processors)
......
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