diff --git a/src/cryogen_core/compiler.clj b/src/cryogen_core/compiler.clj index 5d78bba..599a43f 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) @@ -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}))))