# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1578266593 18000
# Node ID 14a9e325836e1736cd63c3424b979473828fb052
# Parent  65c17aa7972bd1f37d27a1de76e82fea7c9fa4d6
Add 404 page

diff -r 65c17aa7972b -r 14a9e325836e generate.lisp
--- a/generate.lisp	Sun Jan 05 18:21:15 2020 -0500
+++ b/generate.lisp	Sun Jan 05 18:23:13 2020 -0500
@@ -201,6 +201,12 @@
        (:a :href "mailto:steve@stevelosh.com" "email")
        " is best."))))
 
+(defun t/404 ()
+  (with-base ("not-found")
+    (who
+      (:h1 "404 Not Fount")
+      (:p "If you followed a link to get here, it's bad."))))
+
 
 ;;;; Generation ---------------------------------------------------------------
 (defparameter *generate-timestamp* (file-write-date "generate.lisp"))
@@ -231,6 +237,10 @@
   (render "build/index.html" nil
     (t/home)))
 
+(defun page/404 ()
+  (render "build/404.html" nil
+    (t/404)))
+
 (defun page/blog/index (entries)
   (render "build/blog/index.html" (mapcar #'modified-timestamp entries)
     (t/blog/index entries)))
@@ -261,6 +271,7 @@
         (links (read-content "content/links.markdown"))
         (projects (read-content "content/projects.markdown")))
     (page/home)
+    (page/404)
     (page/blog/index blog-entries)
     (page/blog/entries blog-entries)
     (page/photography/index photo-galleries)