website/src/routes/blog.lisp

20 lines
381 B
Common Lisp
Raw Normal View History

2025-05-02 09:39:55 +09:00
(defpackage #:website/routes/blog
2025-04-29 18:04:02 +09:00
(:use #:cl
2025-05-04 00:26:49 +09:00
#:hsx
#:jingle)
2025-04-29 18:04:02 +09:00
(:export #:handle-get))
2025-05-04 00:38:07 +09:00
(in-package #:website/routes/blog)
2025-04-29 18:04:02 +09:00
(defparameter *metadata*
2025-05-03 23:36:01 +09:00
(list :title "blog"))
2025-04-29 18:04:02 +09:00
(defcomp ~page ()
(hsx
2025-05-03 21:06:39 +09:00
(p "coming soon")))
2025-04-29 18:04:02 +09:00
(defun handle-get (params)
(declare (ignore params))
2025-05-04 01:35:47 +09:00
(setf (context :cache) :dynamic)
2025-05-04 00:26:49 +09:00
(setf (context :metadata) *metadata*)
(~page))