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

Mcro to generate a form composed of multiple parts

Browse source
This commit is contained in:
Marcus Kammer 2024-04-24 08:26:14 +02:00
parent 16a2e57c41
commit 2d29b0c343
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 21 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
src/form.lisp
View file

@ -460,52 +460,32 @@ Returns:
((string= type "multiple") "checkbox") ((string= type "multiple") "checkbox")
(t type))) (t type)))
(defmacro form (attr &body body) (defmacro multi-form (&body body)
"This macro generates an HTML form composed of multiple questions. "This macro generates an HTML form composed of multiple parts.
ATTR: A property list specifying the properties of the form, like :action which BODY: A series of parts. Each part should contain the keys :ask, :group, :style and
specifies the URL where the form will be submitted, :method which sets the method to
be used when submitting the form, :class defining the CSS class of the form and
:list-style-type for the style of the list. If none are provided, default values are
used.
BODY: A series of questions. Each question should contain the keys :ask, :group, and
:choices. The first element of :choices should be a keyword specifying the type of :choices. The first element of :choices should be a keyword specifying the type of
input elements (e.g. :radio), followed by a list of answer options. input elements (e.g. :radio), followed by a list of answer options.
Example 1: Example 1:
(form \"/submit\" nil (multi-form
(:ask \"How old are you?\" (:ask \"How old are you?\"
:group \"age\" :group \"age\"
:choices (:radio \"18-24\" \"25-34\" \"35-44\"))) :style nil
:choices (:radio \"18-24\" \"25-34\" \"35-44\")))"
`(spinneret:with-html
,@(loop for q in body
for (ask group style choices) = (multiple-value-list (extract-question-components q))
collect `(:fieldset (:legend ,ask)
(:ol ,@(when style (list :style (format nil "list-style-type: ~a" style)))
,@(loop for choice in (split-list-by-keyword choices)
for (type values) = (multiple-value-list (resolve-input-and-choice choice))
collect `(progn
,(if (string= type "combo")
`(:li (:select ,@(loop for value in values
collect `(:option ,value))))
`(progn ,@(loop for value in values
collect `(:li (apply-input-form ,type ,group ,value))))))))))
Example 2: (btn-primary (:type "submit")
(form \"/submit\" nil (find-l10n "submit" spinneret:*html-lang* *l10n*))))
(:ask \"How old are you?\"
:group \"age\"
:choices (:single \"18-24\" \"25-34\" \"35-44\")))"
(let ((class (or (getf attr :class) (spacing :property "p" :side "y" :size 5)))
(action (or (getf attr :action) "#"))
(method (or (getf attr :method) "post"))
(list-style-type (or (getf attr :list-style-type) nil)))
`(root (:class ,class :action ,action :method ,method)
,@(loop for q in body
;; (:ask "" :group "" :choices ())
for (ask group choices) = (multiple-value-list (extract-question-components q))
collect `(:fieldset (:legend ,ask)
(: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)
;; (:radio "" :text) -> ((:radio "") (:text ""))
for (type values) = (multiple-value-list (resolve-input-and-choice choice))
collect `(progn
,(if (string= type "combo")
`(:li (:select ,@(loop for value in values
collect `(:option ,value))))
`(progn ,@(loop for value in values
collect `(:li (apply-input-form ,type ,group ,value))))))))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*)))))