website/src/components/document.lisp

26 lines
993 B
Common Lisp
Raw Normal View History

2024-04-19 13:04:30 +09:00
(defpackage #:hp/components/document
2024-04-14 23:58:39 +09:00
(:use #:cl)
(:local-nicknames (#:pi #:piccolo))
2024-04-19 13:04:30 +09:00
(:export #:document))
(in-package #:hp/components/document)
2024-04-14 23:58:39 +09:00
(pi:define-element document (title description)
2024-04-19 03:56:30 +09:00
(pi:h
(html :lang "ja"
(head
(meta :charset "UTF-8")
(script :src "/assets/js/htmx.js")
(script :src "/assets/js/htmx-ext/head-support.js")
(script :src "/assets/js/alpine.js" :defer t)
(link :rel "stylesheet" :type "text/css" :href "/assets/css/dist.css")
(link :rel "preconnect" :href "https://fonts.googleapis.com")
(link :rel "preconnect" :href "https://fonts.gstatic.com" :crossorigin t)
(link
:rel "stylesheet"
:href "https://fonts.googleapis.com/css2?family=Noto+Sans+JP:wght@400;700&display=swap")
(title (format nil "~@[~a - ~]skyizwhite.dev" title))
(meta
:name "description"
:content (or description "pakuの個人サイト")))
2024-04-19 13:04:30 +09:00
pi:children)))