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