From 7e8fe6978d170fd53e57000b6a04e7d4eb701c3c Mon Sep 17 00:00:00 2001 From: Akira Tempaku <paku@skyizwhite.dev> Date: Sun, 18 May 2025 23:34:03 +0900 Subject: [PATCH] Switch site language to English --- src/components/article.lisp | 10 +++++----- src/lib/time.lisp | 10 +++++----- src/renderer.lisp | 2 +- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/src/components/article.lisp b/src/components/article.lisp index 5177c7d..e008cb1 100644 --- a/src/components/article.lisp +++ b/src/components/article.lisp @@ -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)) + ")"))))) diff --git a/src/lib/time.lisp b/src/lib/time.lisp index 9d73708..7a740ad 100644 --- a/src/lib/time.lisp +++ b/src/lib/time.lisp @@ -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+)) diff --git a/src/renderer.lisp b/src/renderer.lisp index b3acbf2..7dc3d73 100644 --- a/src/renderer.lisp +++ b/src/renderer.lisp @@ -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))