From 8073f76ad38b864e6165cf453f3ff2c91c5534f0 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 15 Jan 2025 08:52:41 +0100 Subject: [PATCH] Fix missing parameter --- src/btn.lisp | 2 +- src/form.lisp | 6 +++--- src/main.lisp | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/btn.lisp b/src/btn.lisp index e9a31a8..1c218ba 100644 --- a/src/btn.lisp +++ b/src/btn.lisp @@ -162,7 +162,7 @@ Example: Returns HTML for a flexbox div containing styled anchor tags as buttons." `(spinneret:with-html - (:div :class "btn-group" :role "group" :aria-label (t9n "btn-group") + (:div :class "btn-group" :role "group" :aria-label (t9n "btn-group" "en") ,@(loop for (label url) on buttons by #'cddr collect `(btn (:color ,color :size "sm" :url ,url) ,label))))) diff --git a/src/form.lisp b/src/form.lisp index fb042f6..c135c9f 100644 --- a/src/form.lisp +++ b/src/form.lisp @@ -240,7 +240,7 @@ Example 2: (:select :class ,class-attr ,@(when (numberp multiple) (list :size multiple :multiple t)) (:option :selected t - (t9n "option-selected")) + (t9n "option-selected" "en")) ,@(loop for item in body collect (let ((value-prop-str (build-str-value-prop item))) @@ -288,7 +288,7 @@ Example usage: :placeholder "Search" :title "Search") (btn-outline-success (:type "submit") - (t9n "search"))))) + (t9n "search" "en"))))) ;;; TODO input groups @@ -521,4 +521,4 @@ INTRO: Write some information related to the form. Could be a introduction." `((:input :type "hidden" :name "csrf-token" :value ,csrf-token))) ,@body (btn-primary (:type "submit") - (t9n "submit")))))) + (t9n "submit" "en")))))) diff --git a/src/main.lisp b/src/main.lisp index e54b6e7..1c47ac0 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -176,7 +176,7 @@ Example usage: (:div :class "skippy visually-hidden-focusable overflow-hidden" (:a :href "#main-content" :class "d-inline-flex p-2 m-1" - (t9n "skip-link"))) + (t9n "skip-link" "en"))) ,@body (:div :class (if ,container (concatenate 'string "container-" ,container)