commit - 23019157ada99de6cad65e5c82639012bfc244ae
commit + 93cd9c5c4ce5ae166aef8537781183102366f135
blob - 44c5d148b84b8e7956a8513d9c8212fe0cc1fcf0
blob + a5aedd498080e3abcb62e0844f37e9473de7794f
--- src/blog/core.clj
+++ src/blog/core.clj
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 []))