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-25 16:14:27 +09:00
parent efcb6087b3
commit 1b407e7d12
Signed by: paku
GPG key ID: 5B4E8402BCC50607
4 changed files with 8 additions and 11 deletions

12
src/components/article.lisp
View file

@ -18,20 +18,18 @@
(article :class "prose max-w-none"
(h1 title)
(raw! content)
(p :class "text-right"
(p :class "text-right text-sm text-gray-500"
(and published-at
(hsx
(span
"(Published: "
"Published: "
(|time| :datetime (datetime published-at)
(asctime published-at))
")")))
(asctime published-at)))))
(and revised-at
(hsx
(<>
(br)
(span
"(Last updated: "
"Last updated: "
(|time| :datetime (datetime revised-at)
(asctime revised-at))
")")))))))))
(asctime revised-at)))))))))))

4
src/components/header.lisp
View file

@ -12,7 +12,7 @@
(defcomp ~pc-header ()
(hsx
(header :class "hidden md:flex justify-between py-4 border-b-1 top-0 bg-stone-100"
(header :class "hidden md:flex justify-between py-4 border-b-1 top-0 bg-white"
(p :class "z-20 text-3xl font-bold"
(a :preload "mouseover" :href "/" "skyizwhite"))
(nav :class "flex items-end"
@ -27,7 +27,7 @@
(hsx
(header
:x-data "{ open: false }"
:class "flex md:hidden justify-between py-2 border-b-1 top-0 bg-stone-100"
:class "flex md:hidden justify-between py-2 border-b-1 top-0 bg-white"
(p :class "z-20 text-2xl font-bold"
(a :preload "mousedown" :href "/" "skyizwhite"))
(div

1
src/renderer.lisp
View file

@ -37,5 +37,4 @@
(and (not (dev-mode-p)) "preload"))
:hx-boost "true" :hx-swap "transition:true"
:hx-target-404 "body" :hx-target-5* "body"
:class "bg-stone-100"
(~layout result)))))))))

2
src/routes/blog/index.lisp
View file

@ -32,7 +32,7 @@
:href (format nil "/blog/~a" (getf item :id))
(span :class "font-bold"
"･ " (getf item :title))
(span :class "text-sm text-gray-400 ml-2"
(span :class "text-sm text-gray-500 ml-2"
"(" (asctime (getf item :published-at)) ")"))))))
;TODO: pagenation
))))