From e4b7303d5ba53389703b7497e05a7efc30abf4ad Mon Sep 17 00:00:00 2001
From: Akira Tempaku <paku@skyizwhite.dev>
Date: Fri, 2 May 2025 11:28:35 +0900
Subject: [PATCH] Improve style of links
---
src/components/header.lisp | 2 +-
src/routes/index.lisp | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/components/header.lisp b/src/components/header.lisp
index 6e29235..88beb70 100644
--- a/src/components/header.lisp
+++ b/src/components/header.lisp
@@ -24,5 +24,5 @@
(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"
+ (hsx (li (a :href href :class "hover:text-pink-500"
label))))))))))
diff --git a/src/routes/index.lisp b/src/routes/index.lisp
index 77e03db..9492f04 100644
--- a/src/routes/index.lisp
+++ b/src/routes/index.lisp
@@ -24,7 +24,7 @@
(div :class "flex flex-col items-center"
(loop
: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)))))))
(defun handle-get (params)