Zander671/myoji-accent
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update messages

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-05-18 22:45:54 +09:00
parent 9a61198f93
commit 83bb393528
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
index.lisp
View File

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