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-08-16 09:41:50 +02:00
parent d9985dcc98
commit 9538f5713e
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/component/form.lisp
View file

@ -103,15 +103,14 @@ BODY: The contents of the select menu, typically options.
Example:
(select (:size \"sm\")
(select-option (:content \"Option 1\" :value \"opt1\")))"
(let ((class-attr (cond
((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)))))
(:content \"Option 1\" :value \"opt1\"))"
(let ((class-attr (cond ((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))