commit - f51861010efb8d4b685e237ca15cf7755e3c0a1a
commit + 0ca1be33eb528ae0bad3d1648f76e97401457f1a
blob - b6e3315edab43d81f0208db436ba1759f9fba69a
blob + fa062023f0f8246e94c9f191b1a56fa42606cce2
--- src/blog/core.clj
+++ src/blog/core.clj
(io/copy in out)))
(defn post [{:keys [slug gemtext?] :as p}]
- (let [ext (if gemtext? ".gmi" ".md")]
+ (let [ext (if gemtext? ".gmi" ".md")
+ path (str "posts/" slug ext)
+ file (io/resource path)]
+ (when-not file
+ (throw (ex-info "51: post not found" {:slug slug
+ :gemtext? gemtext?
+ :path path})))
(-> p
- (assoc :body (-> (str "posts/" slug ext) io/resource slurp))
+ (assoc :body (slurp file))
(update :date time/parse))))
(def pages (atom nil))