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))
(t "form-select"))))
`(spinneret:with-html
(:select :class ,class-attr
,@(when (numberp size) `(:size ,size))
,@(when (and (stringp size) (string= size "multiple")) (list :multiple t))
:aria-label "Default select example"
(:option :selected t (find-l10n "select-option"
spinneret:*html-lang*
l10n))
,@(loop for item in rest
collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content)))))))
(:select :class ,class-attr
,@(when (numberp size) `(:size ,size))
,@(when (and (stringp size) (string= size "multiple")) (list :multiple t))
:aria-label "Default select example"
(:option :selected t
(find-l10n "option-selected"
spinneret:*html-lang*
l10n))
,@(loop for item in rest
collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content)))))))
(defun search-form ()
"This function generates a general-purpose search form.