paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Update hsx to v0.4.0

Browse source
This commit is contained in:
Akira Tempaku 2024-12-12 13:21:19 +09:00
commit 2e325fbc06
7 changed files with 27 additions and 24 deletions
src/components
header.lisp

13
src/components/header.lisp
View file

@ -1,10 +1,10 @@
(defpackage #:hp/components/header
(:use #:cl
#:hsx)
(:export #:page-header))
(:export #:~header))
(in-package #:hp/components/header)
(defcomp page-header ()
(defcomp ~header ()
(let ((links '(("Home" "/")
("About" "/about")
("Work" "/work")
@ -20,7 +20,8 @@
:class "w-52 h-auto")))
(ul :class "flex flex-col gap-4"
(loop
:for (content href) :in links :collect
(li :class "flex items-center"
(a :href href :class "text-lg hover:text-orange-600"
content)))))))))
:for (title href) :in links :collect
(hsx
(li :class "flex items-center"
(a :href href :class "text-lg hover:text-orange-600"
title))))))))))