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

Fix recognize size as number and add multiple value

Browse source
This commit is contained in:
Marcus Kammer 2023-08-12 12:02:58 +02:00
parent 014a075de9
commit 5d55563481
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/component/form.lisp
View file

@ -58,14 +58,17 @@
(defmacro select ((&key size) &body body)
(let ((class-attr (cond
((null size) "form-select")
((numberp size) "form-select")
((string= size "multiple") "form-select")
((stringp size) (format nil "form-select form-select-~a" size)))))
((null size) "form-select")
((numberp size) "form-select")
((and (stringp size)
(string= size "multiple")) "form-select")
((stringp size)
(format nil "form-select form-select-~a" size))
(t (error "Invalid size specification: ~a" size)))))
`(spinneret:with-html
(:select :class ,class-attr
,@(when (numberp size) `(:size ,size))
,@(when (string= size "multiple") '(:multiple t))
:aria-label "Default select example"
(:option :selected t "Open this selected menu")
,@body))))
,@(when (numberp size) `(:size ,size))
,@(when (and (stringp size) (string= size "multiple")) (list :multiple t))
:aria-label "Default select example"
(:option :selected t "Open this selected menu")
,@body))))