Add header

This commit is contained in:
Akira Tempaku 2024-04-26 04:04:41 +09:00
commit ceea9f2b5a
8 changed files with 97 additions and 15 deletions
src/components

View file

@ -1,15 +1,50 @@
(defpackage #:hp/components/layout
(:use #:cl
#:piccolo)
(:local-nicknames (#:cfg #:hp/config/*))
#:piccolo
#:cl-interpol)
(:import-from #:hp/config/asset
#:*hx-ext*)
(:import-from #:hp/view/asset
#:defasset)
(:export #:layout))
(in-package #:hp/components/layout)
(named-readtables:in-readtable :interpol-syntax)
(defparameter *header-nav-items*
'((:href "/" :label "Home")
(:href "/about" :label "About")
(:href "/work" :label "Work")
(:href "/contact" :label "Contact")))
(define-element header-nav-item (href label)
(li
:class "px-2 rounded-full"
:|:class| #?"isCurrentPath('${href}') && 'font-bold bg-lime-200 pointer-events-none'"
(a :href href
label)))
(define-element layout-header ()
(header :class "px-10 py-6 flex justify-between"
(H1 :class "font-bold text-2xl"
"skyizwhite.dev")
(nav
:x-data "{
currentPath: window.location.pathname,
isCurrentPath(path) {
return this.currentPath === path
}
}"
:hx-boost "true"
(ul :class "h-full flex items-center gap-6 text-lg"
(mapcar (lambda (item) (header-nav-item item))
*header-nav-items*)))))
(define-element layout ()
(body
:hx-ext cfg:*hx-ext*
:class "h-[100svh] flex flex-col"
(header)
:hx-ext *hx-ext*
:class "h-[100svh] flex flex-col"
(layout-header)
(main :class "flex-1"
children)
; footer