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

Legend in multi-form can be optional

Browse source
This commit is contained in:
Marcus Kammer 2024-08-04 19:33:47 +02:00
parent 8d9fad642d
commit 0b2c8b1899
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/form.lisp
View file

@ -494,7 +494,7 @@ See also: extract-question-components, split-list-by-keyword, resolve-input-and-
`(spinneret:with-html `(spinneret:with-html
,@(loop for q in body ,@(loop for q in body
for (ask group style choices) = (multiple-value-list (extract-question-components q)) for (ask group style choices) = (multiple-value-list (extract-question-components q))
collect `(:fieldset (:legend ,ask) collect `(:fieldset ,(when ask `(:legend ,ask))
(:ol ,@(when style (list :style style)) (:ol ,@(when style (list :style style))
,@(loop for choice in (split-list-by-keyword choices) ,@(loop for choice in (split-list-by-keyword choices)
for (type values) = (multiple-value-list (resolve-input-and-choice choice)) for (type values) = (multiple-value-list (resolve-input-and-choice choice))