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

Remove unnecessary macro

Browse source
This commit is contained in:
Marcus Kammer 2023-09-04 21:28:44 +02:00
parent 89e870966a
commit 9a05b95337
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 0 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/pattern/questionnaire.lisp
View file

@ -91,29 +91,6 @@ Example:
collect `(:li (checkable ,type ,group ,item))))) collect `(:li (checkable ,type ,group ,item)))))
(:hr :class "my-4"))))) (:hr :class "my-4")))))
(defmacro questionnaire-1 (action &body body)
"This macro generates an HTML form composed of multiple questions, each
rendered using the `question` macro.
ACTION: Specifies the URL where the form will be submitted. This should be a
string representing the URL path.
BODY: A series of calls to the `question` macro to define each question.
Example:
(questionnaire \"/submit\"
(question \"How old are you?\"
(:name \"age\" :type \"radio\")
\"18-24\" \"25-34\" \"35-44\")
(question \"What's your favorite color?\"
(:name \"color\" :type \"radio\")
\"Red\" \"Blue\" \"Green\"))"
`(spinneret:with-html
(:form :action ,action
:method "post"
,@body
(btn-primary (:type "submit") "Submit"))))
(defun split-plist-by-keyword (plist) (defun split-plist-by-keyword (plist)
(let ((result '()) (let ((result '())
(current-list '())) (current-list '()))