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

Optimized select macro

Browse source
This commit is contained in:
Marcus Kammer 2023-08-12 10:35:04 +02:00
parent 4ee0872e7a
commit 90d811e11d
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/component/form.lisp
View file

@ -4,7 +4,8 @@
(:export
:ctrl
:ctrl-col
:select))
:select
:select-option))
(in-package :cl-sbt/form)
@ -49,13 +50,22 @@
(:span :class "form-text"
,text)))))))
(defmacro select ((&key size) &rest rest)
(defmacro select-option (&rest rest)
`(spinneret:with-html
(:select :class ,(concatenate 'string
"form-select"
(if size (format nil " form-select-~a" size)))
:aria-label "Default select example"
(:option :selected "Open this selected menu")
,@(loop for item in rest
collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content))))))
,@(loop for item in rest
collect (destructuring-bind (&key content value) item
`(:option :value ,value ,content)))))
(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)))))
`(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))))