Improve response package

src/components/document.lisp

@@ -1,22 +0,0 @@
-(defpackage #:hp/components/document
-  (:use #:cl
-        #:hsx)
-  (:export #:document))
-(in-package #:hp/components/document)
-
-(defcomp document (&key title description children)
-  (hsx
-   (html :lang "ja"
-     (head
-       (meta :charset "UTF-8")
-       (meta :name "viewport" :content "width=device-width, initial-scale=1")
-       (link :rel "stylesheet" :href "https://cdn.jsdelivr.net/npm/uikit@3.21.5/dist/css/uikit.min.css")
-       (script :src "https://cdn.jsdelivr.net/npm/uikit@3.21.5/dist/js/uikit.min.js")
-       (script :src "https://cdn.jsdelivr.net/npm/htmx.org@1.9.12/dist/htmx.min.js")
-       (script :src "https://cdn.jsdelivr.net/npm/htmx.org@1.9.12/dist/ext/head-support.js")
-       (script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.0/dist/cdn.min.js" :defer t)
-       (title (format nil "~@[~a - ~]skyizwhite.dev" title))
-       (meta
-         :name "description"
-         :content (or description "pakuの個人サイト")))
-     children)))

src/components/layout.lisp

@@ -1,11 +0,0 @@
-(defpackage #:hp/components/layout
-  (:use #:cl
-        #:hsx)
-  (:export #:layout))
-(in-package #:hp/components/layout)
-
-(defcomp layout (&key children)
-  (hsx
-   (body :hx-ext "head-support"
-     (main :class "uk-container"
-       children))))