From f6a7d17213de3509ae936ce37c5a3143450fd8ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20St=C4=99pie=C5=84?= <jstepien@users.sourceforge.net>
Date: Fri, 18 Sep 2015 22:21:19 +0200
Subject: [PATCH] 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)