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 (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)