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

Update html properties and strings

Browse source
This commit is contained in:
Marcus Kammer 2023-09-07 15:10:34 +02:00
parent f6cdbf2cef
commit 269af5251f
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/component/form.lisp
View file

@ -113,12 +113,15 @@ NAME: The name attribute for the control.
LABEL: The label to display next to the control." LABEL: The label to display next to the control."
(let* ((name-str (build-name-str name)) (let* ((name-str (build-name-str name))
(class-str (build-class-str name))) (class-str (build-class-str name))
(id-str (build-id-str name label)))
(spinneret:with-html (spinneret:with-html
(:div :class (spacing :property "m" :side "b" :size 3) (:div :class (spacing :property "m" :side "b" :size 3)
(:label :class class-str (:label :class class-str
:for id-str
label label
(:input :class "form-control" (:input :class "form-control"
:id id-str
:type type :type type
:name name-str)))))) :name name-str))))))