From 11ad43675ff067cc808f79148eff4db286a9a913 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Mon, 22 May 2023 10:11:16 -0400 Subject: unify not found response --- src/bitgloo_web/content.clj | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) (limited to 'src/bitgloo_web/content.clj') diff --git a/src/bitgloo_web/content.clj b/src/bitgloo_web/content.clj index 4aaa2c0..00a8e2a 100644 --- a/src/bitgloo_web/content.clj +++ b/src/bitgloo_web/content.clj @@ -13,8 +13,6 @@ (def page-footer [:div#footer [:span "© Clyne Sullivan 2023"]]) -(def page-not-found [:div "Page not found"]) - (defn md-file? [path] (str/ends-with? path ".md")) (defn get-file-list [path] (->> path io/file .listFiles sort)) @@ -23,14 +21,10 @@ (defn render-md-files [file-list] (for [f file-list] [:div.block (parse-md-file f)])) -(defn load-page-contents [path] - (let [file-list (filter md-file? (get-file-list path))] - (if (empty? file-list) - page-not-found - [:div#posts (render-md-files file-list)]))) - (defn load-page [path] - (page/html5 - [:head [:title "bitgloo"] (page/include-css "/main.css")] - [:body [:div#container page-header (load-page-contents path) page-footer]])) + (let [file-list (filter md-file? (get-file-list path))] + (when-not (empty? file-list) + (page/html5 + [:head [:title "bitgloo"] (page/include-css "/main.css")] + [:body page-header [:div#posts (render-md-files file-list)] page-footer])))) -- cgit v1.2.3