Merge pull request #43 from jstepien/previews

Previews

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