|
@@ -12,7 +12,9 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
|
12
|
12
|
(filepath (merge-pathnames path (staging *config*)))
|
13
|
13
|
(page (funcall (theme-fn (or theme-fn 'base))
|
14
|
14
|
(list :config *config*
|
15
|
|
- :content (apply 'render content render-args)
|
|
15
|
+ :content content
|
|
16
|
+ :raw (apply 'render content render-args)
|
|
17
|
+ :pubdate (make-pubdate)
|
16
|
18
|
:body-inject (gethash :body *injections*)
|
17
|
19
|
:head-inject (gethash :head *injections*)))))
|
18
|
20
|
(ensure-directories-exist filepath)
|