|
|
|
@ -114,8 +114,10 @@
|
|
|
|
|
(particle-content "aside"))
|
|
|
|
|
|
|
|
|
|
(defn fill-in-placeholders [html page]
|
|
|
|
|
(let [simple (-> html
|
|
|
|
|
(string/replace #"&:content" (:content page ""))
|
|
|
|
|
(let [content (:content page "")
|
|
|
|
|
content (string/replace content #"<p><blink></p>" "")
|
|
|
|
|
simple (-> html
|
|
|
|
|
(string/replace #"&:content" content)
|
|
|
|
|
(string/replace #"&:title" (get-in page [:metadata :title] ""))
|
|
|
|
|
(string/replace #"&:generated-at" (now-str)))
|
|
|
|
|
particles (particles-in-content simple)
|
|
|
|
|