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

Fix indentation

Browse source
This commit is contained in:
Marcus Kammer 2023-09-11 07:46:29 +02:00
parent e5e4fb01e2
commit e1711dfbca
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/component/form.lisp
View file

@ -175,16 +175,17 @@ Example:
(format nil "form-select form-select-~a" size)) (format nil "form-select form-select-~a" size))
(t "form-select")))) (t "form-select"))))
`(spinneret:with-html `(spinneret:with-html
(:select :class ,class-attr (:select :class ,class-attr
,@(when (numberp size) `(:size ,size)) ,@(when (numberp size) `(:size ,size))
,@(when (and (stringp size) (string= size "multiple")) (list :multiple t)) ,@(when (and (stringp size) (string= size "multiple")) (list :multiple t))
:aria-label "Default select example" :aria-label "Default select example"
(:option :selected t (find-l10n "select-option" (:option :selected t
spinneret:*html-lang* (find-l10n "option-selected"
l10n)) spinneret:*html-lang*
,@(loop for item in rest l10n))
collect (destructuring-bind (&key content value) item ,@(loop for item in rest
`(:option :value ,value ,content))))))) collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content)))))))
(defun search-form () (defun search-form ()
"This function generates a general-purpose search form. "This function generates a general-purpose search form.