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

Divide button and multi-form

Browse source
This commit is contained in:
Marcus Kammer 2024-04-26 14:32:52 +02:00
parent 2d29b0c343
commit 3af7fa29f2
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/form.lisp
View file

@ -28,7 +28,7 @@
:spacing) :spacing)
(:export (:export
:root :root
:form :multi-form
:checkable :checkable
:checkable-radio :checkable-radio
:checkable-checkbox :checkable-checkbox
@ -477,7 +477,7 @@ Example 1:
,@(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 (:legend ,ask)
(:ol ,@(when style (list :style (format nil "list-style-type: ~a" 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))
collect `(progn collect `(progn
@ -485,7 +485,4 @@ Example 1:
`(:li (:select ,@(loop for value in values `(:li (:select ,@(loop for value in values
collect `(:option ,value)))) collect `(:option ,value))))
`(progn ,@(loop for value in values `(progn ,@(loop for value in values
collect `(:li (apply-input-form ,type ,group ,value)))))))))) collect `(:li (apply-input-form ,type ,group ,value))))))))))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*))))