website/src/routes/about.lisp

22 lines
465 B
Common Lisp
Raw Normal View History

2025-05-03 13:26:31 +09:00
(defpackage #:website/routes/about
2025-04-29 18:04:02 +09:00
(:use #:cl
#:hsx)
2025-05-02 09:39:55 +09:00
(:import-from #:website/lib/cms
2025-05-03 13:26:31 +09:00
#:get-about)
2025-05-02 09:39:55 +09:00
(:import-from #:website/lib/time
#:datetime
#:jp-datetime)
2025-04-29 18:04:02 +09:00
(:export #:handle-get))
2025-05-03 13:26:31 +09:00
(in-package :website/routes/about)
2025-04-29 18:04:02 +09:00
(defparameter *metadata*
2025-05-03 23:36:01 +09:00
(list :title "about"))
2025-04-29 18:04:02 +09:00
(defcomp ~page ()
(hsx
2025-05-03 13:26:31 +09:00
(p "coming soon")))
2025-04-29 18:04:02 +09:00
(defun handle-get (params)
(declare (ignore params))
2025-05-03 21:06:39 +09:00
(list (~page) *metadata*))