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

Rename function

Browse source
This commit is contained in:
Marcus Kammer 2024-04-03 10:24:13 +02:00
parent 5a06aae7a1
commit b84394c3dc
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

@ -17,7 +17,7 @@
:build-str-name :build-str-name
:build-str-value :build-str-value
:build-str-value-prop :build-str-value-prop
:build-class-str :build-str-class
:build-id-str) :build-id-str)
(:import-from (:import-from
:dev.metalisp.sbt/component/btn :dev.metalisp.sbt/component/btn
@ -85,7 +85,7 @@ VALUE: The value attribute for the control."
(let* ((name-str (build-str-name name)) (let* ((name-str (build-str-name name))
(value-str (build-str-value value)) (value-str (build-str-value value))
(value-prop-str (build-str-value-prop value)) (value-prop-str (build-str-value-prop value))
(class-str (build-class-str "form-check-label" name)) (class-str (build-str-class "form-check-label" name))
(id-str (build-id-str name value))) (id-str (build-id-str name value)))
(spinneret:with-html (spinneret:with-html
(:comment "FORM/CHECKABLE") (:comment "FORM/CHECKABLE")
@ -147,7 +147,7 @@ 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."
(check-type type ctrl-element) (check-type type ctrl-element)
(let* ((name-str (build-str-name name)) (let* ((name-str (build-str-name name))
(class-str (build-class-str "form-label" name)) (class-str (build-str-class "form-label" name))
(id-str (build-id-str name label))) (id-str (build-id-str name label)))
(spinneret:with-html (spinneret:with-html
(:comment "FORM/CTRL") (:comment "FORM/CTRL")