From de82d774f1ed0cf07a581e27d18b357567fd6098 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 22 Sep 2023 18:45:11 +0200 Subject: [PATCH] Fix symbol name l10n --- src/component/form.lisp | 6 +++--- src/pattern/questionnaire.lisp | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/component/form.lisp b/src/component/form.lisp index b663ae8..4bcac8f 100644 --- a/src/component/form.lisp +++ b/src/component/form.lisp @@ -10,7 +10,7 @@ :cl) (:import-from :cl-sbt - :l10n + :*l10n* :find-l10n) (:import-from :cl-sbt/btn @@ -195,7 +195,7 @@ Example 2: (:select :class ,class-attr ,@(when (numberp multiple) (list :size multiple :multiple 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 collect (let ((value-prop-str (build-value-prop-str item))) @@ -243,4 +243,4 @@ Example usage: (btn-outline-success (:type "submit") (find-l10n "search" spinneret:*html-lang* - l10n))))) + *l10n*))))) diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp index 93ed591..a3b52c1 100644 --- a/src/pattern/questionnaire.lisp +++ b/src/pattern/questionnaire.lisp @@ -11,7 +11,7 @@ :cl) (:import-from :cl-sbt - :l10n + :*l10n* :find-l10n) (:import-from :cl-sbt/btn @@ -300,4 +300,4 @@ Example 4: (error "Invalid question format: ~a" q)) collect `(question ,ask ,group ,@(split-list-by-keyword choices))) (btn-primary (:type "submit") - (find-l10n "submit" spinneret:*html-lang* l10n)))))) + (find-l10n "submit" spinneret:*html-lang* *l10n*))))))