diff --git a/src/components/article.lisp b/src/components/article.lisp index d7ec861..5b8e884 100644 --- a/src/components/article.lisp +++ b/src/components/article.lisp @@ -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))))))))))) diff --git a/src/components/header.lisp b/src/components/header.lisp index 75e995c..3776a5d 100644 --- a/src/components/header.lisp +++ b/src/components/header.lisp @@ -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 diff --git a/src/renderer.lisp b/src/renderer.lisp index fc26902..161a45f 100644 --- a/src/renderer.lisp +++ b/src/renderer.lisp @@ -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))))))))) diff --git a/src/routes/blog/index.lisp b/src/routes/blog/index.lisp index 81dca37..33e02d5 100644 --- a/src/routes/blog/index.lisp +++ b/src/routes/blog/index.lisp @@ -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 ))))