2025-04-29 18:04:02 +09:00
|
|
|
(defpackage #:hp/routes/blog
|
|
|
|
|
(:use #:cl
|
|
|
|
|
#:hsx)
|
|
|
|
|
(:export #:handle-get))
|
|
|
|
|
(in-package :hp/routes/blog)
|
|
|
|
|
|
|
|
|
|
(defparameter *metadata*
|
2025-04-30 09:53:10 +09:00
|
|
|
(list :title "blog"
|
|
|
|
|
:path "/blog"))
|
2025-04-29 18:04:02 +09:00
|
|
|
|
|
|
|
|
(defcomp ~page ()
|
|
|
|
|
(hsx
|
|
|
|
|
(section
|
|
|
|
|
(p "Coming soon..."))))
|
|
|
|
|
|
|
|
|
|
(defun handle-get (params)
|
|
|
|
|
(declare (ignore params))
|
2025-05-01 00:05:47 +09:00
|
|
|
(list :body (~page)
|
|
|
|
|
:metadata *metadata*
|
|
|
|
|
:cache :dynamic))
|
