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

Improve style of links

Browse source
This commit is contained in:
Akira Tempaku 2025-05-02 11:28:35 +09:00
parent 3d687992c0
commit e4b7303d5b
Signed by: paku
GPG key ID: 5B4E8402BCC50607
2 changed files with 2 additions and 2 deletions
src
components
header.lisp
routes
index.lisp

2
src/components/header.lisp
View file

@ -24,5 +24,5 @@
(if (search href (request-uri jingle:*request*)) (if (search href (request-uri jingle:*request*))
(hsx (li :class "text-pink-500" (hsx (li :class "text-pink-500"
label)) label))
(hsx (li (a :href href :class "underline hover:text-pink-500" (hsx (li (a :href href :class "hover:text-pink-500"
label)))))))))) label))))))))))

2
src/routes/index.lisp
View file

@ -24,7 +24,7 @@
(div :class "flex flex-col items-center" (div :class "flex flex-col items-center"
(loop (loop
:for (name url) :in *links* :for (name url) :in *links*
:collect (hsx (a :href url :target "_blank" :class "text-lg underline hover:text-pink-500" :collect (hsx (a :href url :target "_blank" :class "text-lg hover:text-pink-500"
name))))))) name)))))))
(defun handle-get (params) (defun handle-get (params)