From 83bb39352821d67a4765ca8b65838c9e991666f0 Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Sun, 18 May 2025 22:45:54 +0900
Subject: [PATCH] Update messages

---
 index.lisp | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/index.lisp b/index.lisp
index 51edb1f..1021ce9 100644
--- a/index.lisp
+++ b/index.lisp
@@ -2,7 +2,7 @@
 
 (defapp index
   :prefix "/"
-  :name "苗字アクセント辞典")
+  :name "日本人の姓のアクセント")
 
 (defwidget index-page ()
   ((last-search :initform nil
@@ -27,6 +27,10 @@ search.")))
         (|#page-title|
          :text-align "center"
          :font-size xxx-large
+         :margin-bottom "20px")
+        (|#description|
+         :text-align "center"
+         :font-size x-large
          :margin-bottom "30px")
         (|#search-form|
          :margin auto
@@ -37,16 +41,16 @@ search.")))
           :flex auto)
          (|#submit-button|
           :margin-left "5px"
-          :font-size xx-large))
+          :font-size x-large))
         (|#error-message|
          :margin-top "20px"
-         :font-size xx-large
+         :font-size x-large
          :text-align center
          :color "red")
         (|#entry-list|
          :margin-top "20px"
          (.myoji-entry
-          :font-size xx-large
+          :font-size x-large
           :text-align center
           ((:parent (:not :first-child))
            :margin-top "10px")))
@@ -86,14 +90,24 @@ search.")))
   (with-slots (last-search myoji-list) widget
     (with-html
       (:div :id "page-title"
-            "苗字アクセント辞典")
+            "日本人の姓のアクセント")
+      (:div :id "description"
+            "アクセントを知りたい"
+            (:ruby "姓" (:rp "（") (:rt "せい") (:rp "）"))
+            "／"
+            (:ruby "名字" (:rp "（") (:rt "みょうじ") (:rp "）"))
+            "・"
+            (:ruby "苗字" (:rp "（") (:rt "みょうじ") (:rp "）"))
+            "（last name／family name／surname）を"
+            (:ruby "平仮名" (:rp "（") (:rt "ひらがな") (:rp  "）"))
+            "か漢字で入力してください。")
       (with-html-form (:POST #'(lambda (&key query &allow-other-keys)
                                  (handle-search widget :query query))
                        :id "search-form")
         (:input :id "query-input"
                 :type "text"
                 :name "query"
-                :placeholder "苗字を入力して検索する"
+                :placeholder "（例：さかぐち／坂口）"
                 :value (or (slot-value widget 'last-search) ""))
         (:input :id "submit-button"
                 :type "submit"
@@ -118,5 +132,5 @@ search.")))
 
 (defmethod reblocks/page:init-page ((app index) (url-path string) expire-at)
   (declare (ignorable url-path expire-at))
-  (setf (reblocks/page:get-title) "苗字アクセント辞典")
+  (setf (reblocks/page:get-title) "日本人の姓のアクセント")
   (make-instance 'index-page))