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

Use body for new syntactic constructs

Browse source
This commit is contained in:
Marcus Kammer 2023-09-14 19:58:28 +02:00
parent 86bacf8f4d
commit f12ebd4f2e
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/pattern/questionnaire.lisp
View file

@ -100,21 +100,21 @@ Returns:
The HTML form element generated for the ITEM." The HTML form element generated for the ITEM."
(funcall (choose-input-form type) type group item)) (funcall (choose-input-form type) type group item))
(defmacro question (ask group &rest choices) (defmacro question (ask group &body body)
"This macro generates a fieldset for a question with multiple answers. "This macro generates a fieldset for a question with multiple answers.
ASK: The text of the question to be displayed in the legend. ASK: The text of the question to be displayed in the legend.
GROUP: Specifies the name attribute for the input elements. GROUP: Specifies the name attribute for the input elements.
CHOICES: A list of strings starting with a keyword representing the different BODY: A list of strings starting with a keyword representing the different
answers available for selection. answers available for selection.
Example: Example:
(question \"How old are you?\" \"age\" (:radio \"18-24\" \"25-34\" \"35-44\"))" (question \"How old are you?\" \"age\" (:radio \"18-24\" \"25-34\" \"35-44\"))"
`(spinneret:with-html `(spinneret:with-html
(:fieldset (:legend ,ask) (:fieldset (:legend ,ask)
(:ol ,@(loop for choice in choices (:ol ,@(loop for choice in body
append (multiple-value-bind (type choices) append (multiple-value-bind (type choices)
(resolve-input-and-choices choice) (resolve-input-and-choices choice)
(loop for item in choices (loop for item in choices