marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Set l10n for select option

Browse source
This commit is contained in:
Marcus Kammer 2023-09-09 08:57:06 +02:00
parent ed474c9d87
commit 9183e40327
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/component/form.lisp
View file

@ -8,6 +8,9 @@
(defpackage cl-sbt/form (defpackage cl-sbt/form
(:use (:use
:cl) :cl)
(:import-from
:cl-sbt
:find-l10n)
(:import-from (:import-from
:cl-sbt/btn :cl-sbt/btn
:btn-outline-success :btn-outline-success
@ -27,7 +30,10 @@
(defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre")) (defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler")) ("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger")) ("upload" ("en" "Upload" "de" "Hochladen" "fr" "Télécharger"))
("search" ("en" "Search" "de" "Suchen" "fr" "Cherchent")))) ("search" ("en" "Search" "de" "Suchen" "fr" "Cherchent"))
("select-option" ("en" "Open this selected menu"
"de" "Das ausgewählte Menü öffnen"
"fr" "Ouvrir le menu sélectionné"))))
(defun remove-special-chars (str) (defun remove-special-chars (str)
"Removes all special characters from the string STR except numbers and "Removes all special characters from the string STR except numbers and
@ -173,7 +179,9 @@ Example:
,@(when (numberp size) `(:size ,size)) ,@(when (numberp size) `(:size ,size))
,@(when (and (stringp size) (string= size "multiple")) (list :multiple t)) ,@(when (and (stringp size) (string= size "multiple")) (list :multiple t))
:aria-label "Default select example" :aria-label "Default select example"
(:option :selected t "Open this selected menu") (:option :selected t (find-l10n "select-option"
spinneret:*html-lang*
l10n))
,@(loop for item in rest ,@(loop for item in rest
collect (destructuring-bind (&key content value) item collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content))))))) `(:option :value ,value ,content)))))))
@ -197,4 +205,5 @@ Example usage:
:aria-label "Search") :aria-label "Search")
(btn-outline-success (:type "submit") (btn-outline-success (:type "submit")
(find-l10n "search" (find-l10n "search"
spinneret:*html-lang*))))) spinneret:*html-lang*
l10n)))))