(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*))