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

Improve style

Browse source
This commit is contained in:
Akira Tempaku 2025-05-03 13:01:49 +09:00
commit d10deb6517
Signed by: paku
GPG key ID: 5B4E8402BCC50607
10 changed files with 104 additions and 22 deletions
src/routes
index.lisp

32
src/routes/index.lisp
View file

@ -6,11 +6,21 @@
(in-package #:website/routes/index)
(defparameter *links*
'(("Keyoxide" "https://keyoxide.org/f39d5b2c951d16732a5cd3528f0c1a22f26d7e62")
("GitHub" "https://github.com/skyizwhite")
("Forgejo" "https://code.skyizwhite.dev/paku")
("Fediverse" "https://himagine.club/@skyizwhite")
("Service Status" "https://status.skyizwhite.dev")))
'(("Keyoxide"
"https://keyoxide.org/f39d5b2c951d16732a5cd3528f0c1a22f26d7e62"
"/img/icon/key.svg")
("GitHub"
"https://github.com/skyizwhite"
"/img/icon/github.svg")
("Forgejo"
"https://code.skyizwhite.dev/paku"
"/img/icon/forgejo.svg")
("Fediverse"
"https://himagine.club/@skyizwhite"
"/img/icon/discussion.svg")
("Service Status"
"https://status.skyizwhite.dev"
"/img/icon/server.svg")))
(defcomp ~page ()
(hsx
@ -21,11 +31,15 @@
"Akira Tempaku")
(p :class "text-xl"
"Web developer"))
(div :class "flex flex-col items-center"
(div :class "flex flex-col gap-2 items-left"
(loop
:for (name url) :in *links*
:collect (hsx (a :href url :target "_blank" :class "text-lg hover:text-pink-500"
name)))))))
:for (name url icon) :in *links*
:collect (hsx (a
:href url
:target "_blank"
:class "flex items-center gap-2 text-lg hover:text-pink-500"
(img :src icon :alt name :class "size-4 mt-1")
(span name))))))))
(defun handle-get (params)
(declare (ignore params))