Improve view

This commit is contained in:
Akira Tempaku 2024-04-13 13:51:21 +09:00
commit 1d7f8b6ed5
5 changed files with 27 additions and 44 deletions

View file

@ -1,26 +0,0 @@
(defpackage #:hp/components/global/document
(:use #:cl)
(:local-nicknames (#:pi #:piccolo))
(:export #:document))
(in-package #:hp/components/global/document)
(pi:define-element document (title description)
(pi:h
(html :lang "ja"
(head
(meta :charset "UTF-8")
(script :src "/scripts/htmx.js")
(script :src "/scripts/htmx-ext/head-support.js")
(script :src "/scripts/alpine.js" :defer t)
(link :rel "stylesheet" :type "text/css" :href "/styles/ress.css")
(link :rel "stylesheet" :type "text/css" :href "/styles/global.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)))

View file

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

View file

@ -1,8 +1,8 @@
(defpackage #:hp/components/global/not-found
(defpackage #:hp/components/not-found
(:use #:cl)
(:local-nicknames (#:pi #:piccolo))
(:export #:not-found-page))
(in-package #:hp/components/global/not-found)
(in-package #:hp/components/not-found)
(pi:define-element not-found-page ()
(pi:h