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 15:25:51 +02:00
parent 1867223593
commit 932bbdb9d7
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/component/badge.lisp
View file

@ -32,17 +32,18 @@
(defmacro badge ((&key (color "primary") (pill nil)) &body body)
"This macro generates a Bootstrap badge.
COLOR: (optional) The type of the badge (like 'primary', 'secondary', 'success', etc.). Defaults to 'primary'.
COLOR: The type of the badge (like 'primary', 'secondary', 'success', etc.). Defaults to 'primary'.
BODY: The contents of the badge.
Example:
(badge (:color \"success\" :pill t) \"New\")"
`(spinneret:with-html
(:span :class ,(concatenate 'string
(let ((class-str (concatenate 'string
(format nil "badge text-bg-~a" color)
(if (null pill) "" " rounded-pill"))
,@body)))
(if (null pill) "" " rounded-pill"))))
`(spinneret:with-html
(:span :class ,class-str
,@body))))
(defmacro define-badge (color &optional (pill nil))
"This macro defines a new macro for creating a Bootstrap badge of a specific type.