Switch site language to English

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))
-         "）")))))
+         ")")))))

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 "日" " "
+                     :format +asctime-format+))
-                               :hour "時" :min "分")))

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