website/src/routes/work.lisp

25 lines
532 B
Common Lisp
Raw Normal View History

2025-05-02 09:39:55 +09:00
(defpackage #:website/routes/work
2025-04-29 18:04:02 +09:00
(:use #:cl
#:hsx)
2025-05-02 09:39:55 +09:00
(:import-from #:website/lib/cms
#:get-work)
(:import-from #:website/lib/time
#:datetime
#:jp-datetime)
2025-04-29 18:04:02 +09:00
(:export #:handle-get))
2025-05-02 09:39:55 +09:00
(in-package :website/routes/work)
2025-04-29 18:04:02 +09:00
(defparameter *metadata*
2025-04-30 09:53:10 +09:00
(list :title "work"
:path "/work"))
2025-04-29 18:04:02 +09:00
(defcomp ~page ()
(hsx
2025-05-02 09:39:55 +09:00
(p "coming soon")))
2025-04-29 18:04:02 +09:00
(defun handle-get (params)
(declare (ignore params))
2025-05-01 00:37:46 +09:00
(list :body (~page)
:metadata *metadata*
:cache :dynamic))