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

Move responsibility to resolve input type

Browse source
This commit is contained in:
Marcus Kammer 2023-09-04 15:49:26 +02:00
parent fadd2678cf
commit 8bd82afb1a
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/pattern/questionnaire.lisp
View file

@ -108,7 +108,7 @@ Returns two values:
2. The remaining choices in the list, excluding the input type keyword."
(let ((input-type-keyword (first choices)))
(if (keywordp input-type-keyword)
(values (string-downcase input-type-keyword) (rest choices))
(values (resolve-input-type (string-downcase input-type-keyword)) (rest choices))
(values nil choices))))
(defmacro questionnaire (action &rest questions)
@ -136,8 +136,7 @@ Example:
collect (destructuring-bind (&key ask group choices) q
(multiple-value-bind (input-type remaining-choices)
(resolve-input-and-choices choices)
(let ((input-type (resolve-input-type input-type)))
`(question ,ask (:group ,group :type ,input-type)
,@remaining-choices)))))
`(question ,ask (:group ,group :type ,input-type)
,@remaining-choices))))
(btn-primary (:type "submit")
(find-l10n "submit" spinneret:*html-lang*)))))