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

Fix macro name

Browse source
This commit is contained in:
Marcus Kammer 2024-04-22 15:56:43 +02:00
parent cd60d7bdba
commit f6a08eb8bd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/questionnaire.lisp
View file

@ -24,7 +24,7 @@
:spacing) :spacing)
(:import-from (:import-from
:dev.metalisp.sbt/form :dev.metalisp.sbt/form
:form :root
:checkable :checkable
:checkable-element :checkable-element
:ctrl :ctrl
@ -352,7 +352,7 @@ Example German:
:auswahl (:multiple \"Facebook\" \"Twitter\" \"Instagram\" :text \"Andere\")))" :auswahl (:multiple \"Facebook\" \"Twitter\" \"Instagram\" :text \"Andere\")))"
(let ((class-string (spacing :property "p" :side "y" :size 5))) (let ((class-string (spacing :property "p" :side "y" :size 5)))
`(spinneret:with-html `(spinneret:with-html
(form (:class ,class-string :action ,action :method "post") (root (:class ,class-string :action ,action :method "post")
,@(loop for q in body ,@(loop for q in body
for (ask group choices) = (multiple-value-list (extract-question-components q)) for (ask group choices) = (multiple-value-list (extract-question-components q))