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

Define mixed type of choices for questionnaires

Browse source
This commit is contained in:
Marcus Kammer 2023-09-05 16:11:36 +02:00
parent 4d03f4cdcc
commit 38c4f17057
1 changed files with 24 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/pattern/questionnaire.lisp
View file

@ -29,7 +29,8 @@
(:import-from (:import-from
:cl-sbt/form :cl-sbt/form
:find-l10n :find-l10n
:checkable) :checkable
:ctrl-1)
(:export (:export
:question :question
:questionnaire)) :questionnaire))
@ -67,29 +68,33 @@ Returns two values:
(values (resolve-input-type (string-downcase input-type-keyword)) (rest choices)) (values (resolve-input-type (string-downcase input-type-keyword)) (rest choices))
(values nil choices)))) (values nil choices))))
(defun choose-input-form (type group item)
(cond ((or (string= type "radio")
(string= type "checkbox"))
(checkable type group item))
((string= type "text")
(ctrl-1 type group item))))
(defmacro question (ask group &rest choices) (defmacro question (ask group &rest choices)
"This macro generates a fieldset for a question with multiple answers. "This macro generates a fieldset for a question with multiple answers.
QUESTION: The text of the question to be displayed in the legend. ASK: The text of the question to be displayed in the legend.
NAME: Specifies the name attribute for the input elements. GROUP: Specifies the name attribute for the input elements.
TYPE: Specifies the type of input elements. Commonly used value is \"radio\". CHOICES: A list of strings starting with a keyword representing the different
answers available for selection.
CHOICES: A list of strings representing the different answers available for
selection.
Example: Example:
(question \"How old are you?\" (question \"How old are you?\" \"age\" (:radio \"18-24\" \"25-34\" \"35-44\")"
(:group \"age\" :type \"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 choices
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
collect `(:li (checkable ,type ,group ,item))))) collect `(:li (choose-input-form ,type ,group ,item))))))
(:hr :class "my-4"))))) (:hr :class (spacing :property "m" :side "y" :size 4)))))
(defun split-plist-by-keyword (plist) (defun split-plist-by-keyword (plist)
(let ((result '()) (let ((result '())
@ -131,7 +136,12 @@ Example 3:
(questionnaire \"/submit\" (questionnaire \"/submit\"
(:ask \"Which social media platforms do you use regularly?\" (:ask \"Which social media platforms do you use regularly?\"
:group \"age\" :group \"age\"
:choices (:multiple \"Facebook\" \"Twitter\" \"Instagram\" \"LinkedIn\" \"TikTok\" \"Snapchat\")))" :choices (:multiple \"Facebook\" \"Twitter\" \"Instagram\")))
Example 4:
(questionnaire \"/submit\"
(:ask \"Which social media platforms do you use regularly?\"
:group \"age\"
:choices (:multiple \"Facebook\" \"Twitter\" \"Instagram\" :text \"Others\")))"
`(spinneret:with-html `(spinneret:with-html
(:form :action ,action (:form :action ,action
:method "post" :method "post"