Implement layout (wip)

src/components/layout/footer.lisp

@@ -0,0 +1,9 @@
+(defpackage #:hp/components/layout/footer
+  (:use #:cl)
+  (:local-nicknames (#:pi #:piccolo))
+  (:export #:layout-footer))
+(in-package #:hp/components/layout/footer)
+
+(pi:define-element layout-footer ()
+  (pi:h
+    (footer :data-css "components/layout/footer.css")))

src/components/layout/header.lisp

@@ -0,0 +1,10 @@
+(defpackage #:hp/components/layout/header
+  (:use #:cl)
+  (:local-nicknames (#:pi #:piccolo))
+  (:export #:layout-header))
+(in-package #:hp/components/layout/header)
+
+(pi:define-element layout-header ()
+  (pi:h
+    (header :data-css "components/layout/header.css"
+      (p "skyizwhite.dev"))))

src/components/layout/main.lisp

@@ -0,0 +1,21 @@
+(defpackage #:hp/components/layout/main
+  (:use #:cl)
+  (:local-nicknames (#:pi #:piccolo))
+  (:local-nicknames (#:cfg #:hp/config/asset))
+  (:import-from #:hp/components/layout/header
+                #:layout-header)
+  (:import-from #:hp/components/layout/footer
+                #:layout-footer)
+  (:export #:layout))
+(in-package #:hp/components/layout/main)
+
+(pi:define-element layout ()
+  (pi:h
+    (body
+      :hx-ext cfg:*hx-ext*
+      :data-css "components/layout/main.css"
+      (layout-header)
+      (main :class "main"
+        pi:children)
+      (layout-footer)
+      )))