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))