2024-04-14 23:11:47 +09:00
|
|
|
(defpackage #:hp/routes/not-found
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:jg #:jingle))
|
|
|
|
(:local-nicknames (#:pi #:piccolo))
|
2024-04-22 13:14:26 +09:00
|
|
|
(:local-nicknames (#:view #:hp/view/*))
|
2024-04-14 23:11:47 +09:00
|
|
|
(: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*))
|