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

Add badges

Browse source
This commit is contained in:
Marcus Kammer 2023-07-01 19:24:53 +02:00
parent ed1be025ee
commit 001ac31b5e
2 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cl-sbt.asd
View file

@ -6,6 +6,7 @@
:components ((:module "src"
:components
((:file "main")
(:file "badges")
(:file "buttons")
(:file "accordion")
(:file "alerts"))))

26
src/badges.lisp
View file

@ -1,7 +1,33 @@
(in-package :cl-sbt)
(defmacro badge ((&key (classes nil)) &body body)
"https://getbootstrap.com/docs/5.3/components/badge/
Documentation and examples for badges, our small count and labeling component."
`(spinneret:with-html
(:span :class (concatenate 'string "badge"
(if ,classes (format nil " ~a" ,classes)))
,@body)))
(defmacro badge-pill-primary (&body body)
`(badge (:classes "rounded-pill text-bg-primary") ,@body))
(defmacro badge-pill-secondary (&body body)
`(badge (:classes "rounded-pill text-bg-secondary") ,@body))
(defmacro badge-pill-success (&body body)
`(badge (:classes "rounded-pill text-bg-success") ,@body))
(defmacro badge-pill-danger (&body body)
`(badge (:classes "rounded-pill text-bg-danger") ,@body))
(defmacro badge-pill-warning (&body body)
`(badge (:classes "rounded-pill text-bg-warning") ,@body))
(defmacro badge-pill-info (&body body)
`(badge (:classes "rounded-pill text-bg-info") ,@body))
(defmacro badge-pill-light (&body body)
`(badge (:classes "rounded-pill text-bg-light") ,@body))
(defmacro badge-pill-dark (&body body)
`(badge (:classes "rounded-pill text-bg-dark") ,@body))