website/src/components/layout.lisp

19 lines
541 B
Common Lisp
Raw Normal View History

2024-02-14 02:41:41 +09:00
(uiop:define-package #:hp/components/layout
2024-01-30 00:48:47 +09:00
(:use #:cl)
2024-02-09 05:54:51 +09:00
(:local-nicknames (#:pi #:piccolo))
2024-01-30 00:48:47 +09:00
(:export #:layout))
2024-02-14 02:41:41 +09:00
(in-package #:hp/components/layout)
2024-01-30 00:48:47 +09:00
2024-02-09 05:54:51 +09:00
(pi:define-element layout ()
(pi:h
2024-02-03 13:57:35 +09:00
(html
2024-02-09 05:54:51 +09:00
(head
(title "skyizwhite.dev")
2024-04-11 23:01:47 +09:00
(script :src "/js/htmx.min.js")
(script :src "/js/htmx-ext/head-support.js")
(script :src "/js/alpine.min.js" :defer t)
(link :rel "stylesheet" :href "/style/main.css" type="text/css"))
(body :hx-ext "head-support"
(main
2024-02-21 20:42:41 +09:00
pi:children)))))