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: Example:
(select (:size \"sm\") (select (:size \"sm\")
(select-option (:content \"Option 1\" :value \"opt1\")))" (:content \"Option 1\" :value \"opt1\"))"
(let ((class-attr (cond (let ((class-attr (cond ((null size) "form-select")
((null size) "form-select") ((numberp size) "form-select")
((numberp size) "form-select") ((and (stringp size)
((and (stringp size) (string= size "multiple")) "form-select")
(string= size "multiple")) "form-select") ((stringp size)
((stringp size) (format nil "form-select form-select-~a" size))
(format nil "form-select form-select-~a" size)) (t (error "Invalid size specification: ~a" size)))))
(t (error "Invalid size specification: ~a" size)))))
`(spinneret:with-html `(spinneret:with-html
(:select :class ,class-attr (:select :class ,class-attr
,@(when (numberp size) `(:size ,size)) ,@(when (numberp size) `(:size ,size))