Remove bg, add header

src/components/header.lisp

@@ -0,0 +1,28 @@
+(defpackage #:hp/components/header
+  (:use #:cl
+        #:hsx)
+  (:import-from #:jingle
+                #:request-uri)
+  (:export #:~header))
+(in-package #:hp/components/header)
+
+(defparameter *nav-menu*
+  '(("/bio" "bio")
+    ("/work" "work")
+    ("/blog" "blog")))
+
+(defcomp ~header ()
+  (hsx
+   (header :class "flex justify-between pb-2 md:pb-4 border-b-1"            
+     (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"
+         (loop
+           :for (href label) :in *nav-menu* :collect
+              (if (search href (request-uri jingle:*request*))
+                  (hsx (li :class "text-pink-500"
+                         label))
+                  (hsx (li (a :href href :class "underline hover:text-pink-500"
+                             label))))))))))