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

Use local var for class string

Browse source
This commit is contained in:
Marcus Kammer 2023-09-01 17:55:41 +02:00
parent fb1300ed3d
commit 5d9e3398fd
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/component/button.lisp
View file

@ -99,13 +99,14 @@ BODY: The contents of the button.
Example:
(btn (:type \"danger\" :size \"lg\") \"Delete\")"
`(spinneret:with-html
(:button :type ,type
:class ,(concatenate 'string
"btn"
(format nil " btn-~a" color)
(if (string-equal size "") nil (format nil " btn~a" size)))
,@body)))
(let ((class-str (concatenate 'string
"btn"
(format nil " btn-~a" color)
(if (string-equal size "") nil (format nil " btn~a" size)))))
`(spinneret:with-html
(:button :type ,type
:class ,class-str
,@body))))
(defmacro define-btn (color &optional (outline nil) (size nil))
"This macro defines a new macro for creating a Bootstrap button of a specific type, size, and outline style.