website/src/routes/blog.lisp
2025-05-04 01:35:47 +09:00

19 lines
381 B
Common Lisp

(defpackage #:website/routes/blog
(:use #:cl
#:hsx
#:jingle)
(:export #:handle-get))
(in-package #:website/routes/blog)
(defparameter *metadata*
(list :title "blog"))
(defcomp ~page ()
(hsx
(p "coming soon")))
(defun handle-get (params)
(declare (ignore params))
(setf (context :cache) :dynamic)
(setf (context :metadata) *metadata*)
(~page))