diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/core.clj | 5 | ||||
| -rw-r--r-- | src/pages.clj | 14 |
2 files changed, 14 insertions, 5 deletions
diff --git a/src/core.clj b/src/core.clj index 4fc90a9..b2b0d08 100644 --- a/src/core.clj +++ b/src/core.clj @@ -1,6 +1,6 @@ (ns core (:require [clojure.java.io :as io] - [pages :refer [pages]])) + [pages :refer [pages e-404]])) (defn clean [] (let [target-dir (io/file "target")] @@ -19,7 +19,8 @@ (str "target/html" path "/index.html")) target-file (io/file target-path)] (io/make-parents target-file) - (spit target-file (str (page-fn)))))) + (spit target-file (str (page-fn))))) + (spit (io/file "target/html/404.html") (str (e-404)))) (defn -main [] (clean) diff --git a/src/pages.clj b/src/pages.clj index a1a71aa..ced4498 100644 --- a/src/pages.clj +++ b/src/pages.clj @@ -79,15 +79,23 @@ [:p "This is an example of a post with a code block:"] (code (highlight-clj - (println "hello, world!"))) + (println "hello, world!"))) [:p "Looks pretty good."]]))) +(defn e-404 [] + (page + (html + [:<> + [:h1 "404 Oh, be some other path!"] + [:p "What's in a path? That which we call a page" + [:br] + "by any other path would fail to load"]]))) + (defn pages [] {home-uri home books-2025-uri books-2025 code-example-uri code-example - past-work-uri past-work - }) + past-work-uri past-work}) (comment (require '[repl :refer [restart build]]) |