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:
Jan Stępień 2015-09-18 22:21:19 +02:00
parent 933d213d15
commit f6a7d17213

View file

@ -255,7 +255,7 @@
(defn create-preview
"Creates a single post preview"
[blocks-per-preview post]
(merge (select-keys post [:title :author :date :uri])
(merge post
{:content (or (content-until-more-marker (:content post))
(->> ((tagsoup/parse-string (:content post)) 2)
(drop 2)