website/src/routes/index.lisp

22 lines
594 B
Common Lisp
Raw Normal View History

2024-06-15 18:13:04 +09:00
(defpackage #:hp/routes/index
2024-06-15 16:42:44 +09:00
(:use #:cl
2024-10-02 23:36:30 +09:00
#:hsx)
2024-04-14 16:40:47 +09:00
(:export #:handle-get))
2024-02-02 01:07:19 +09:00
(in-package #:hp/routes/index)
2024-06-01 22:21:15 +09:00
(defcomp page ()
(hsx
2024-11-17 22:18:59 +09:00
(section
; first view
(div :class "h-[100svh] bg-[url('/fv.jpg')] bg-cover bg-center flex"
(div :class "container flex items-end justify-between"
(h1 :class "flex flex-col text-6xl font-bold italic leading-normal pb-10"
(span :class "block"
"Beyond Differences,")
(span :class "block"
"Shaping Tomorrow")))))))
2024-02-02 01:07:19 +09:00
2024-04-14 16:40:47 +09:00
(defun handle-get (params)
2024-02-02 01:07:19 +09:00
(declare (ignore params))
2024-10-02 23:36:30 +09:00
(page))