Improve view

src/components/document.lisp

@@ -0,0 +1,25 @@
+(defpackage #:hp/components/document
+  (:use #:cl)
+  (:local-nicknames (#:pi #:piccolo))
+  (:export #:document))
+(in-package #:hp/components/document)
+
+(pi:define-element document (title description)
+  (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の個人サイト")))
+      pi:children)))

src/components/layout.lisp

@@ -0,0 +1,13 @@
+(defpackage #:hp/components/layout
+  (:use #:cl)
+  (:local-nicknames (#:pi #:piccolo))
+  (:export #:layout))
+(in-package #:hp/components/layout)
+
+(pi:define-element layout ()
+  (pi:h
+    (body :hx-ext "head-support"
+      ; header
+      (main pi:children)
+      ; footer
+      )))