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 (defapp index
:prefix "/" :prefix "/"
:name "苗字アクセント辞典") :name "日本人の姓のアクセント")
(defwidget index-page () (defwidget index-page ()
((last-search :initform nil ((last-search :initform nil
@ -27,6 +27,10 @@ search.")))
(|#page-title| (|#page-title|
:text-align "center" :text-align "center"
:font-size xxx-large :font-size xxx-large
:margin-bottom "20px")
(|#description|
:text-align "center"
:font-size x-large
:margin-bottom "30px") :margin-bottom "30px")
(|#search-form| (|#search-form|
:margin auto :margin auto
@ -37,16 +41,16 @@ search.")))
:flex auto) :flex auto)
(|#submit-button| (|#submit-button|
:margin-left "5px" :margin-left "5px"
:font-size xx-large)) :font-size x-large))
(|#error-message| (|#error-message|
:margin-top "20px" :margin-top "20px"
:font-size xx-large :font-size x-large
:text-align center :text-align center
:color "red") :color "red")
(|#entry-list| (|#entry-list|
:margin-top "20px" :margin-top "20px"
(.myoji-entry (.myoji-entry
:font-size xx-large :font-size x-large
:text-align center :text-align center
((:parent (:not :first-child)) ((:parent (:not :first-child))
:margin-top "10px"))) :margin-top "10px")))
@ -86,14 +90,24 @@ search.")))
(with-slots (last-search myoji-list) widget (with-slots (last-search myoji-list) widget
(with-html (with-html
(:div :id "page-title" (: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) (with-html-form (:POST #'(lambda (&key query &allow-other-keys)
(handle-search widget :query query)) (handle-search widget :query query))
:id "search-form") :id "search-form")
(:input :id "query-input" (:input :id "query-input"
:type "text" :type "text"
:name "query" :name "query"
:placeholder "苗字を入力して検索する" :placeholder "（例：さかぐち／坂口）"
:value (or (slot-value widget 'last-search) "")) :value (or (slot-value widget 'last-search) ""))
(:input :id "submit-button" (:input :id "submit-button"
:type "submit" :type "submit"
@ -118,5 +132,5 @@ search.")))
(defmethod reblocks/page:init-page ((app index) (url-path string) expire-at) (defmethod reblocks/page:init-page ((app index) (url-path string) expire-at)
(declare (ignorable url-path expire-at)) (declare (ignorable url-path expire-at))
(setf (reblocks/page:get-title) "苗字アクセント辞典") (setf (reblocks/page:get-title) "日本人の姓のアクセント")
(make-instance 'index-page)) (make-instance 'index-page))