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

Optimize readbility

Browse source
This commit is contained in:
Marcus Kammer 2024-04-21 11:21:46 +02:00
parent e3dcb4caad
commit 72eb100fd6
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/component/form.lisp
View file

@ -76,9 +76,9 @@ defaults to an empty action, \"html-form\" as name and \"post\" as method.
BODY: The body of the form, which generally includes form elements such as input BODY: The body of the form, which generally includes form elements such as input
fields, checkboxes, radio buttons, etc." fields, checkboxes, radio buttons, etc."
`(spinneret:with-html `(spinneret:with-html
(:form ,@(if (not (null attr)) (:form ,@(if (null attr)
attr (list :action "" :name "html-form" :method "post")
(list :action "" :name "html-form" :method "post")) attr)
(:fieldset (:legend ,legend) (:fieldset (:legend ,legend)
,@body)))) ,@body))))