diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-05-22 10:11:16 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-05-22 10:11:16 -0400 |
| commit | 11ad43675ff067cc808f79148eff4db286a9a913 (patch) | |
| tree | 0973af76d9eb4da2914c59396525694932adacc9 /src/bitgloo_web/content.clj | |
| parent | dbd5c38bc75b59537b9f36f1dec743cef8aed217 (diff) | |
unify not found response
Diffstat (limited to 'src/bitgloo_web/content.clj')
| -rw-r--r-- | src/bitgloo_web/content.clj | 16 |
1 files changed, 5 insertions, 11 deletions
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])))) |