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

Move position of function

Browse source
This commit is contained in:
Marcus Kammer 2024-04-22 22:19:15 +02:00
parent 400ee4bbe1
commit 06b022c7f7
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/form.lisp
View file

@ -402,21 +402,6 @@ Returns:
;; Return the reversed result list
(nreverse result)))
(defun resolve-input-type (type)
"Resolve the given input TYPE keyword to the corresponding HTML input type.
The function maps specific keywords to HTML input types. For example, it maps
\"single\" to \"radio\" and \"multiple\" to \"checkbox\". If the input TYPE
does not match these special cases, it is returned as-is.
TYPE: The input type keyword to resolve.
Returns:
The corresponding HTML input type string."
(cond ((string= type "single") "radio")
((string= type "multiple") "checkbox")
(t type)))
(declaim (ftype (function (choice) (values string list)) resolve-input-and-choice))
(defun resolve-input-and-choice (choice)
"Separate the input-type keyword from the remaining CHOICE in a list.
@ -463,6 +448,21 @@ Returns:
(ctrl-element #'ctrl)
(otherwise (error "Unknown type ~A" type))))
(defun resolve-input-type (type)
"Resolve the given input TYPE keyword to the corresponding HTML input type.
The function maps specific keywords to HTML input types. For example, it maps
\"single\" to \"radio\" and \"multiple\" to \"checkbox\". If the input TYPE
does not match these special cases, it is returned as-is.
TYPE: The input type keyword to resolve.
Returns:
The corresponding HTML input type string."
(cond ((string= type "single") "radio")
((string= type "multiple") "checkbox")
(t type)))
(defmacro form (action &optional list-style-type &body body)
"This macro generates an HTML form composed of multiple questions.