2024-04-14 23:11:47 +09:00
|
|
|
(defpackage #:hp/routes/not-found
|
2024-04-26 01:22:50 +09:00
|
|
|
(:use #:cl
|
2024-10-02 23:36:30 +09:00
|
|
|
#:hsx)
|
|
|
|
|
(:local-nicknames (#:jg #:jingle))
|
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 "お探しのページは見つかりませんでした。"))
|
|
|
|
|
|
2024-06-01 22:21:15 +09:00
|
|
|
(defcomp page ()
|
|
|
|
|
(hsx
|
2024-10-03 02:03:14 +09:00
|
|
|
(h1 :class "text-red-600"
|
2024-10-02 23:36:30 +09:00
|
|
|
"404 Not Found")))
|
2024-04-14 23:11:47 +09:00
|
|
|
|
|
|
|
|
(defun handle-not-found ()
|
2024-10-02 23:36:30 +09:00
|
|
|
(jg:set-response-status :not-found)
|
|
|
|
|
(list (page) *metadata*))
|
