website/src/ui/layout.lisp

17 lines
430 B
Common Lisp
Raw Normal View History

2024-01-30 10:16:17 +09:00
(defpackage #:hp/ui/layout
2024-01-30 00:48:47 +09:00
(:use #:cl)
2024-02-03 13:57:35 +09:00
(:local-nicknames (#:f #:flute))
2024-01-30 00:48:47 +09:00
(:export #:layout))
2024-01-30 10:16:17 +09:00
(in-package #:hp/ui/layout)
2024-01-30 00:48:47 +09:00
2024-02-03 13:57:35 +09:00
(f:define-element layout ()
(f:h
(html
(head
(title "skyizwhite.dev")
(script :src "/static/htmx.min.js")
(link :href "/static/main.css" :rel "stylesheet")
(link :href "/static/tailwind.css" :rel "stylesheet"))
(body :class "h-[100svh]"
f:children))))