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