website/src/routes/blog.lisp

20 lines
384 B
Common Lisp

(defpackage #:hp/routes/blog
(:use #:cl
#:hsx)
(:export #:handle-get))
(in-package :hp/routes/blog)
(defparameter *metadata*
(list :title "blog"
:path "/blog"))
(defcomp ~page ()
(hsx
(section
(p "Coming soon..."))))
(defun handle-get (params)
(declare (ignore params))
(list :body (~page)
:metadata *metadata*
:cache :dynamic))