From 2a149b1e147d6420b14ee267516624ebe9e713a3 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Fri, 19 Jul 2024 01:03:44 -0600
Subject: Add custom 404 page

---
 src/operationnull/pages.scm | 5 +++++
 src/operationnull/site.scm  | 1 +
 2 files changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index 42c9231..319199a 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -1,6 +1,7 @@
 (define-module (operationnull pages)
   #:export (index-content
             contact-content
+            e404
             gold-content))
 
 
@@ -37,6 +38,10 @@
                 (li (b "IRC: ") "@ Isaz @ libera.chat")
                 (li (b "matrix: ") "@bdunahu:tchncs.de"))))
 
+(define e404
+  '(article (h2 "403/404 Error")
+            (p "The requested page does not exist, or you do not have access.")))
+
 (define gold-content
   '(article (h2 "More Worthless than Gold")
             (div (@ (class "date"))
diff --git a/src/operationnull/site.scm b/src/operationnull/site.scm
index ad63b51..f1acfce 100644
--- a/src/operationnull/site.scm
+++ b/src/operationnull/site.scm
@@ -29,6 +29,7 @@
                          (blog #:theme main-theme
                                #:prefix "/posts/"
                                #:collections %blog-collection)
+                         (static-page e404 "/404.html" "404 Error")
                          (static-page gold-content "/gold.html" "More Worthless than Gold")
                          (atom-feed #:file-name "atom.xml"
                                     #:subtitle "Recent Posts")
-- 
cgit v1.2.3