Print more detailed html comment

This commit is contained in:
Marcus Kammer 2024-04-03 15:18:30 +02:00
parent b0d7084a74
commit 8cecf9ff42

View file

@ -150,7 +150,7 @@ LABEL: The label to display next to the control."
(class-str (build-str-class "form-label" name))
(id-str (build-str-id name label)))
(spinneret:with-html
(:comment "FORM/CTRL")
(:comment (format nil "FORM/CTRL ~A ~A" type name))
(:div :class (spacing :property "m" :side "b" :size 3)
(:label :class class-str
:for id-str