Don't invoke select-keys on post in create-preview
This allows preview templates to access all of post's metadata.
This commit is contained in:
parent
933d213d15
commit
f6a7d17213
1 changed files with 1 additions and 1 deletions
|
@ -255,7 +255,7 @@
|
||||||
(defn create-preview
|
(defn create-preview
|
||||||
"Creates a single post preview"
|
"Creates a single post preview"
|
||||||
[blocks-per-preview post]
|
[blocks-per-preview post]
|
||||||
(merge (select-keys post [:title :author :date :uri])
|
(merge post
|
||||||
{:content (or (content-until-more-marker (:content post))
|
{:content (or (content-until-more-marker (:content post))
|
||||||
(->> ((tagsoup/parse-string (:content post)) 2)
|
(->> ((tagsoup/parse-string (:content post)) 2)
|
||||||
(drop 2)
|
(drop 2)
|
||||||
|
|
Loading…
Reference in a new issue