commit - 23019157ada99de6cad65e5c82639012bfc244ae
commit + 93cd9c5c4ce5ae166aef8537781183102366f135
blob - 44c5d148b84b8e7956a8513d9c8212fe0cc1fcf0
blob + a5aedd498080e3abcb62e0844f37e9473de7794f
--- src/blog/core.clj
+++ src/blog/core.clj
@@ -17,15 +17,10 @@
               out (io/output-stream (io/file dst))]
     (io/copy in out)))
 
-(defn post [{:keys [slug title short date tags toot]}]
-  (let [f (io/resource (str "posts/" slug ".md"))]
-    {:slug  slug
-     :title title
-     :short short
-     :date  (time/parse date)
-     :body  (slurp f)
-     :tags  tags
-     :toot  toot}))
+(defn post [{:keys [slug] :as p}]
+  (-> p
+      (assoc  :body (-> (str "posts/" slug ".md") io/resource slurp))
+      (update :date time/parse)))
 
 (def per-tag (atom {}))
 (def posts (atom []))