Switch site language to English
This commit is contained in:
parent
c6e3c78394
commit
7e8fe6978d
3 changed files with 11 additions and 11 deletions
src
|
@ -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))
|
||||
")")))))
|
||||
|
|
|
@ -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+))
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue