Update ningle-fbr

This commit is contained in:
Akira Tempaku 2024-04-14 23:11:47 +09:00
parent a8062f1d57
commit 1045b38387
5 changed files with 22 additions and 20 deletions
src/routes

21
src/routes/not-found.lisp Normal file
View file

@ -0,0 +1,21 @@
(defpackage #:hp/routes/not-found
(:use #:cl)
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:pi #:piccolo))
(:local-nicknames (#:view #:hp/view))
(:export #:handle-not-found))
(in-package #:hp/routes/not-found)
(defparameter *metadata*
'(:title "404 Not Found"
:description "お探しのページは見つかりませんでした。"))
(pi:define-element page ()
(pi:h
(section
(h1 "404 Not Found"))))
(defun handle-not-found ()
(view:render (page)
:status :not-found
:metadata *metadata*))