From f10af4bc0d8fb2a16b5bc6a89e710fa2f74ca12f Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Fri, 11 Aug 2023 20:43:42 -0400 Subject: [pages] Fix htaccess builder and update 404 page --- haunt/haunt.scm | 2 +- haunt/pages/404.sxml | 14 ++++++++++++-- 2 files changed, 13 insertions(+), 3 deletions(-) (limited to 'haunt') diff --git a/haunt/haunt.scm b/haunt/haunt.scm index 79d05e4..cf254fc 100644 --- a/haunt/haunt.scm +++ b/haunt/haunt.scm @@ -47,7 +47,7 @@ (list (atom-feed #:max-entries 1024) (blog) (blogroll) - (htaccess #:error-documents '((404 . "pages/404.html"))) + (htaccess #:error-documents '((404 . "/pages/404.html"))) (outbox) (static-pages) (static-directory "static"))) diff --git a/haunt/pages/404.sxml b/haunt/pages/404.sxml index d28396e..71136a9 100644 --- a/haunt/pages/404.sxml +++ b/haunt/pages/404.sxml @@ -1,6 +1,6 @@ ;;; -*- scheme -*- -;;; Copyright © 2019 - 2020 Jakob L. Kreuze +;;; Copyright © 2019 - 2023 Jakob L. Kreuze ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -16,4 +16,14 @@ ;;; along with this program. If not, see ;;; . -`(p "Test") +(use-modules (jakob theme) + (jakob utils sxml)) + +(theme + #:title "Page Not Found" + #:content + `((p "Server responded with a status of 404: Not Found.") + (p "Whatever you're looking for, it's not here... anymore, at least.") + (p "That could be due to link rot. Perhaps the " + ,(hyperlink "https://web.archive.org/" "Wayback Machine") + " has it?"))) -- cgit v1.3