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

Use strings instead of symbols

Browse source
This commit is contained in:
Marcus Kammer 2023-08-29 19:17:23 +02:00
parent f83bedeec4
commit 32d8843930
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/component/form.lisp
View file

@ -17,10 +17,10 @@
(in-package :cl-sbt/form)
(defun find-l10n (key lang)
(let ((l10n '((submit ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
(cancel ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
(search ("en" "Search" "de" "Suchen" "fr" "Cherchent")))))
(cadr (member lang (cadr (assoc key l10n)) :test #'string=))))
(let ((l10n '(("submit" ("en" "Submit" "de" "Absenden" "fr" "Soumettre"))
("cancel" ("en" "Cancel" "de" "Abbrechen" "fr" "Annuler"))
("search" ("en" "Search" "de" "Suchen" "fr" "Cherchent")))))
(cadr (member lang (cadr (assoc key l10n :test #'string=)) :test #'string=))))
(defmacro ctrl (&rest rest)
"This macro generates Bootstrap form controls.
@ -154,5 +154,5 @@ Example usage:
:placeholder "Search"
:aria-label "Search")
(btn-outline-success (:type "submit")
(find-l10n 'search
(find-l10n "search"
spinneret:*html-lang*)))))

3
src/pattern/questionnaire.lisp
View file

@ -140,5 +140,4 @@ Example:
`(question ,ask
(:group ,group :type ,input-type)
,@remaining-choices)))))
(btn-primary (:type "submit") (find-l10n 'cl-sbt/form::submit
spinneret:*html-lang*)))))
(btn-primary (:type "submit") (find-l10n "submit" spinneret:*html-lang*)))))