From 9183e40327da5367aae51caa8cfdfd643c77f006 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sat, 9 Sep 2023 08:57:06 +0200 Subject: [PATCH] Set l10n for select option --- src/component/form.lisp | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/src/component/form.lisp b/src/component/form.lisp index 527e8da..2559cc9 100644 --- a/src/component/form.lisp +++ b/src/component/form.lisp @@ -8,6 +8,9 @@ (defpackage cl-sbt/form (:use :cl) + (:import-from + :cl-sbt + :find-l10n) (:import-from :cl-sbt/btn :btn-outline-success @@ -27,7 +30,10 @@ (defvar l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre")) ("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler")) ("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) "Removes all special characters from the string STR except numbers and @@ -173,7 +179,9 @@ Example: ,@(when (numberp size) `(:size ,size)) ,@(when (and (stringp size) (string= size "multiple")) (list :multiple t)) :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 collect (destructuring-bind (&key content value) item `(:option :value ,value ,content))))))) @@ -197,4 +205,5 @@ Example usage: :aria-label "Search") (btn-outline-success (:type "submit") (find-l10n "search" - spinneret:*html-lang*))))) + spinneret:*html-lang* + l10n)))))