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

Enable select to have sizes

Browse source
This commit is contained in:
Marcus Kammer 2023-08-12 09:16:37 +02:00
parent ffde44e4b3
commit 4ee0872e7a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 18 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/component/form.lisp
View file

@ -3,7 +3,8 @@
:cl)
(:export
:ctrl
:ctrl-col))
:ctrl-col
:select))
(in-package :cl-sbt/form)
@ -47,3 +48,14 @@
(:div :class "col-auto"
(:span :class "form-text"
,text)))))))
(defmacro select ((&key size) &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))))))

10
tests/component/form.lisp
View file

@ -47,7 +47,7 @@
(ok (search "Another Form" result)))))
(deftest test-select-default
(let ((result (spinneret:with-html-string (select (:option "One" :value 1) (:option "Two" :value 2) (:option "Three" :value 3)))))
(let ((result (spinneret:with-html-string (select () (:content "One" :value 1) (:content "Two" :value 2) (:content "Three" :value 3)))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "aria-label=\"Default select example\"" result))
@ -56,7 +56,7 @@
(ok (search "option value=3" result)))))
(deftest test-select-size-lg
(let ((result (spinneret:with-html-string (select (:size "lg") (:option "One" :value 1)))))
(let ((result (spinneret:with-html-string (select (:size "lg") (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-lg\"" result))
(ok (search "class=form-select" result))
@ -64,14 +64,14 @@
(ok (search "option value=1" result)))))
(deftest test-select-size-sm
(let ((result (spinneret:with-html-string (select (:size "sm") (:option "One" :value 1)))))
(let ((result (spinneret:with-html-string (select (:size "sm") (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-sm\"" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-multiple
(let ((result (spinneret:with-html-string (select (:size "multiple") (:option "One" :value 1)))))
(let ((result (spinneret:with-html-string (select (:size "multiple") (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "multiple" result))
@ -79,7 +79,7 @@
(ok (search "option value=1" result)))))
(deftest test-select-size-number
(let ((result (spinneret:with-html-string (select (:size 3) (:option "One" :value 1)))))
(let ((result (spinneret:with-html-string (select (:size 3) (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "size=3" result))