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

Be able to recognise input type combo in form macro

Browse source
This commit is contained in:
Marcus Kammer 2024-04-23 19:10:17 +02:00
parent 7817a642de
commit 717035bb51
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/form.lisp
View file

@ -492,22 +492,23 @@ Example 2:
(method (or (getf attr :method) "post"))
(list-style-type (or (getf attr :list-style-type) nil)))
`(spinneret:with-html
(root (:class ,class :action ,action :method ,method)
`(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 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
,@(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))))))))))
,@(loop for value in values
collect `(:li (apply-input-form ,type ,group ,value))))))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*))))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang* *l10n*)))))