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

Extend questionnaire with list-style-type

Browse source
This commit is contained in:
Marcus Kammer 2024-04-21 22:01:14 +02:00
parent 50d3c79f4b
commit 5d273e1d19
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/questionnaire.lisp
View file

@ -312,7 +312,7 @@ Example German:
(btn-primary (:type "submit") (btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*)))))) (find-l10n "submit" spinneret:*html-lang* *l10n*))))))
(defmacro questionnaire (action &body body) (defmacro questionnaire (action &optional list-style-type &body body)
"This macro generates an HTML form composed of multiple questions. "This macro generates an HTML form composed of multiple questions.
ACTION: Specifies the URL where the form will be submitted. This should be a ACTION: Specifies the URL where the form will be submitted. This should be a
@ -357,10 +357,11 @@ Example German:
,@(loop for q in body ,@(loop for q in body
for (ask group choices) = (multiple-value-list (extract-question-components q)) for (ask group choices) = (multiple-value-list (extract-question-components q))
collect `(:fieldset (:legend ,ask) collect `(:fieldset (:legend ,ask)
(:ol ,@(loop for choice in (split-list-by-keyword choices) (:ol ,@(when list-style-type (list :style (format nil "list-style-type: ~a" list-style-type)))
,@(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 `(:li ,@(loop for value in values collect `(progn ,@(loop for value in values
collect `(apply-input-form ,type ,group ,value))))))) collect `(:li (apply-input-form ,type ,group ,value))))))))
(btn-primary (:type "submit") (btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*)))))) (find-l10n "submit" spinneret:*html-lang* *l10n*))))))