commit 0ca1be33eb528ae0bad3d1648f76e97401457f1a
from: Omar Polo <op@omarpolo.com>
date: Wed Dec 30 10:36:06 2020 UTC

throw useful exception on post not found

I found this more useful than a "nil reader" error from slurp.

commit - f51861010efb8d4b685e237ca15cf7755e3c0a1a
commit + 0ca1be33eb528ae0bad3d1648f76e97401457f1a
blob - b6e3315edab43d81f0208db436ba1759f9fba69a
blob + fa062023f0f8246e94c9f191b1a56fa42606cce2
--- src/blog/core.clj
+++ src/blog/core.clj
@@ -20,9 +20,15 @@
     (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))