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

Fix naming process-choice -> choice

Browse source
This commit is contained in:
Marcus Kammer 2023-09-22 12:46:20 +02:00
parent f044072d2a
commit 43ce50933f
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

@ -149,7 +149,7 @@ 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 process-choice (group choice) (defmacro choice (group choice)
"Generate HTML list elements based on the CHOICE specification for a question group. "Generate HTML list elements based on the CHOICE specification for a question group.
GROUP is the name attribute for the HTML form elements. GROUP is the name attribute for the HTML form elements.
@ -158,7 +158,7 @@ CHOICE is the list that defines the input types and values for those form
elements. See `choicep' elements. See `choicep'
Example: Example:
(process-choice \"hobbies\" '(:radio \"Reading\" \"Swimming\" \"Coding\"))" (choice \"hobbies\" '(:radio \"Reading\" \"Swimming\" \"Coding\"))"
(unless (choicep choice) (unless (choicep choice)
(error "Invalid question format: ~a" choice)) (error "Invalid question format: ~a" choice))
(multiple-value-bind (type values) (multiple-value-bind (type values)
@ -196,7 +196,7 @@ Example 4:
(:fieldset (:legend ,ask) (:fieldset (:legend ,ask)
(:ol ,@(loop for choice in body (:ol ,@(loop for choice in body
append append
`((process-choice ,group ,choice)))) `((choice ,group ,choice))))
(:hr :class (spacing :property "m" :side "y" :size 4))))) (:hr :class (spacing :property "m" :side "y" :size 4)))))
(declaim (ftype (function (composite-list) list) split-list-by-keyword)) (declaim (ftype (function (composite-list) list) split-list-by-keyword))