Update ningle-fbr
This commit is contained in:
parent
a8062f1d57
commit
1045b38387
5 changed files with 22 additions and 20 deletions
src/routes
21
src/routes/not-found.lisp
Normal file
21
src/routes/not-found.lisp
Normal 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*))
|
Loading…
Add table
Add a link
Reference in a new issue