Switch site language to English

This commit is contained in:
Akira Tempaku 2025-05-18 23:34:03 +09:00
parent c6e3c78394
commit 7e8fe6978d
Signed by: paku
GPG key ID: 5B4E8402BCC50607
3 changed files with 11 additions and 11 deletions

View file

@ -3,19 +3,19 @@
#:hsx)
(:import-from #:website/lib/time
#:datetime
#:jp-datetime)
#:asctime)
(:export #:~article))
(in-package #:website/components/article)
(defcomp ~article (&key title content revised-at draft-p)
(hsx
(<>
(and draft-p (hsx (p :class "text-lg text-pink-500" "下書きモード")))
(and draft-p (hsx (p :class "text-lg text-pink-500" "Draft Mode")))
(article :class "prose max-w-none"
(h1 title)
(raw! content)
(p :class "text-right"
"(最終更新:"
"(Last updated: "
(|time| :datetime (datetime revised-at)
(jp-datetime revised-at))
"")))))
(asctime revised-at))
")")))))

View file

@ -4,9 +4,10 @@
#:reread-timezone-repository
#:find-timezone-by-location-name
#:parse-timestring
#:format-timestring)
#:format-timestring
#:+asctime-format+)
(:export #:datetime
#:jp-datetime))
#:asctime))
(in-package #:website/lib/time)
(reread-timezone-repository)
@ -19,8 +20,7 @@
:format '(:year "-" (:month 2) "-" (:day 2) " "
(:hour 2) ":" (:min 2))))
(defun jp-datetime (timestring)
(defun asctime (timestring)
(format-timestring nil
(parse-timestring timestring)
:format '(:year "年" :month "月" :day "日" " "
:hour "時" :min "分")))
:format +asctime-format+))

View file

@ -28,7 +28,7 @@
(set-response-header :content-type "text/html; charset=utf-8")
(call-next-method app
(render-to-string
(hsx (html :lang "ja"
(hsx (html :lang "en"
(head
(~metadata :metadata (context :metadata))
(~scripts))