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

Add form macro

Browse source
This commit is contained in:
Marcus Kammer 2024-04-19 20:20:57 +02:00
parent bf8cb826bb
commit 4cddc06554
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/component/form.lisp
View file

@ -63,6 +63,15 @@
(in-package :dev.metalisp.sbt/component/form)
;;; form
(defmacro form ((&optional (attr nil)) &body body)
`(spinneret:with-html
(:form ,@(if (listp attr)
attr
(list :action "" :name "html-form" :method "post"))
(:fieldset ,@body))))
;;; checkable
(defvar checkable-elements