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
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" (article :class "prose max-w-none"
(h1 title) (h1 title)
(raw! content) (raw! content)
(p :class "text-right" (p :class "text-right text-sm text-gray-500"
(and published-at (and published-at
(hsx (hsx
(span (span
"(Published: " "Published: "
(|time| :datetime (datetime published-at) (|time| :datetime (datetime published-at)
(asctime published-at)) (asctime published-at)))))
")")))
(and revised-at (and revised-at
(hsx (hsx
(<> (<>
(br) (br)
(span (span
"(Last updated: " "Last updated: "
(|time| :datetime (datetime revised-at) (|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 () (defcomp ~pc-header ()
(hsx (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" (p :class "z-20 text-3xl font-bold"
(a :preload "mouseover" :href "/" "skyizwhite")) (a :preload "mouseover" :href "/" "skyizwhite"))
(nav :class "flex items-end" (nav :class "flex items-end"
@ -27,7 +27,7 @@
(hsx (hsx
(header (header
:x-data "{ open: false }" :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" (p :class "z-20 text-2xl font-bold"
(a :preload "mousedown" :href "/" "skyizwhite")) (a :preload "mousedown" :href "/" "skyizwhite"))
(div (div

1
src/renderer.lisp
View file

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

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

@ -32,7 +32,7 @@
:href (format nil "/blog/~a" (getf item :id)) :href (format nil "/blog/~a" (getf item :id))
(span :class "font-bold" (span :class "font-bold"
"･ " (getf item :title)) "･ " (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)) ")")))))) "(" (asctime (getf item :published-at)) ")"))))))
;TODO: pagenation ;TODO: pagenation
)))) ))))