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

Fix symbol name l10n

Browse source
This commit is contained in:
Marcus Kammer 2023-09-22 18:45:11 +02:00
parent 5fc14cbed5
commit de82d774f1
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/component/form.lisp
View file

@ -10,7 +10,7 @@
:cl) :cl)
(:import-from (:import-from
:cl-sbt :cl-sbt
:l10n :*l10n*
:find-l10n) :find-l10n)
(:import-from (:import-from
:cl-sbt/btn :cl-sbt/btn
@ -195,7 +195,7 @@ Example 2:
(:select :class ,class-attr (:select :class ,class-attr
,@(when (numberp multiple) (list :size multiple :multiple t)) ,@(when (numberp multiple) (list :size multiple :multiple t))
(:option :selected t (:option :selected t
(find-l10n "option-selected" spinneret:*html-lang* l10n)) (find-l10n "option-selected" spinneret:*html-lang* *l10n*))
,@(loop for item in body ,@(loop for item in body
collect collect
(let ((value-prop-str (build-value-prop-str item))) (let ((value-prop-str (build-value-prop-str item)))
@ -243,4 +243,4 @@ Example usage:
(btn-outline-success (:type "submit") (btn-outline-success (:type "submit")
(find-l10n "search" (find-l10n "search"
spinneret:*html-lang* spinneret:*html-lang*
l10n))))) *l10n*)))))

4
src/pattern/questionnaire.lisp
View file

@ -11,7 +11,7 @@
:cl) :cl)
(:import-from (:import-from
:cl-sbt :cl-sbt
:l10n :*l10n*
:find-l10n) :find-l10n)
(:import-from (:import-from
:cl-sbt/btn :cl-sbt/btn
@ -300,4 +300,4 @@ Example 4:
(error "Invalid question format: ~a" q)) (error "Invalid question format: ~a" q))
collect `(question ,ask ,group ,@(split-list-by-keyword choices))) collect `(question ,ask ,group ,@(split-list-by-keyword choices)))
(btn-primary (:type "submit") (btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* l10n)))))) (find-l10n "submit" spinneret:*html-lang* *l10n*))))))