Improve

src/components/header.lisp

@@ -13,12 +13,12 @@
 
 (defcomp ~header ()
   (hsx
-   (header :class "flex justify-between pb-2 md:pb-4 border-b-1"            
+   (header :class "flex justify-between py-2 md:py-4 border-b-1 sticky top-0 bg-white"
      (h1 :class "text-2xl md:text-3xl font-bold"
        (a :href "/"
          "skyizwhite"))
      (nav :class "flex items-end"
-       (ul :preload "mouseover" :class "flex gap-4 text-lg"
+       (ul :preload "mouseover" :class "flex gap-4 text-xl"
          (loop
            :for (href label) :in *nav-menu* :collect
               (if (search href (request-uri jingle:*request*))

src/components/layout.lisp

@@ -1,7 +1,7 @@
 (defpackage #:hp/components/layout
   (:use #:cl
         #:hsx)
-  (:import-from #:hp/lib/metadata
+  (:import-from #:hp/components/metadata
                 #:~metadata)
   (:import-from #:hp/components/header
                 #:~header)
@@ -37,9 +37,9 @@
        :hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
        :class (<> 
                 "flex flex-col h-[100svh] w-full max-w-[700px] "
-                "p-2 md:pt-6 mx-auto")
+                "px-2 mx-auto")
        (~header)
-       (main :class "flex-1 px-2 py-6 md:px-4 md:py-8 overflow-y-scroll"
+       (main :class "flex-1 px-2 py-6 md:px-4 md:py-8"
          children)
        (footer :class "flex p-2 justify-center text-sm border-t-1"
          (p "© 2025 Akira Tempaku"))))))

src/components/metadata.lisp

@@ -1,10 +1,10 @@
-(defpackage #:hp/lib/metadata
+(defpackage #:hp/components/metadata
   (:use #:cl
         #:hsx)
   (:import-from #:hp/lib/env
                 #:hp-url)
   (:export #:~metadata))
-(in-package #:hp/lib/metadata)
+(in-package #:hp/components/metadata)
 
 (defun create-metadata (&key title
                              description