From f6a7d17213de3509ae936ce37c5a3143450fd8ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20St=C4=99pie=C5=84?= Date: Fri, 18 Sep 2015 22:21:19 +0200 Subject: [PATCH 1/2] Don't invoke select-keys on post in create-preview This allows preview templates to access all of post's metadata. --- src/cryogen_core/compiler.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cryogen_core/compiler.clj b/src/cryogen_core/compiler.clj index 5d78bba..70aa9c0 100644 --- a/src/cryogen_core/compiler.clj +++ b/src/cryogen_core/compiler.clj @@ -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) From 1a7c48731a2cf765daaffd3c55ba6cc724338466 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20St=C4=99pie=C5=84?= Date: Fri, 18 Sep 2015 22:22:40 +0200 Subject: [PATCH 2/2] Simplify create-previews with map --- src/cryogen_core/compiler.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cryogen_core/compiler.clj b/src/cryogen_core/compiler.clj index 70aa9c0..599a43f 100644 --- a/src/cryogen_core/compiler.clj +++ b/src/cryogen_core/compiler.clj @@ -266,7 +266,7 @@ "Returns a sequence of vectors, each containing a set of post previews" [posts-per-page blocks-per-preview posts] (->> posts - (reduce (fn [v post] (conj v (create-preview blocks-per-preview post))) []) + (map #(create-preview blocks-per-preview %)) (partition-all posts-per-page) (map-indexed (fn [i v] {:index (inc i) :posts v}))))