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

Add more button macros

Browse source
This commit is contained in:
Marcus Kammer 2023-06-29 22:50:38 +02:00
parent 110f399509
commit bd459d9607
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
src/buttons.lisp
View file

@ -7,3 +7,57 @@
(if ,type (format nil " btn-~a" ,type)) (if ,type (format nil " btn-~a" ,type))
(if ,size (format nil " btn-~a" ,size))) (if ,size (format nil " btn-~a" ,size)))
,@body))) ,@body)))
(defmacro sbt-btn-primary (&body body)
`(sbt-btn (:type "primary") ,@body))
(defmacro sbt-btn-secondary (&body body)
`(sbt-btn (:type "secondary") ,@body))
(defmacro sbt-btn-success (&body body)
`(sbt-btn (:type "success") ,@body))
(defmacro sbt-btn-danger (&body body)
`(sbt-btn (:type "danger") ,@body))
(defmacro sbt-btn-warning (&body body)
`(sbt-btn (:type "warning") ,@body))
(defmacro sbt-btn-info (&body body)
`(sbt-btn (:type "info") ,@body))
(defmacro sbt-btn-light (&body body)
`(sbt-btn (:type "light") ,@body))
(defmacro sbt-btn-dark (&body body)
`(sbt-btn (:type "dark") ,@body))
(defmacro sbt-btn-link (&body body)
`(sbt-btn (:type "link") ,@body))
(defmacro sbt-btn-outline-primary (&body body)
`(sbt-btn (:type "outline-primary") ,@body))
(defmacro sbt-btn-outline-secondary (&body body)
`(sbt-btn (:type "outline-secondary") ,@body))
(defmacro sbt-btn-outline-success (&body body)
`(sbt-btn (:type "outline-success") ,@body))
(defmacro sbt-btn-outline-danger (&body body)
`(sbt-btn (:type "outline-danger") ,@body))
(defmacro sbt-btn-outline-warning (&body body)
`(sbt-btn (:type "outline-warning") ,@body))
(defmacro sbt-btn-outline-info (&body body)
`(sbt-btn (:type "outline-info") ,@body))
(defmacro sbt-btn-outline-light (&body body)
`(sbt-btn (:type "outline-light") ,@body))
(defmacro sbt-btn-outline-dark (&body body)
`(sbt-btn (:type "outline-dark") ,@body))
(defmacro sbt-btn-outline-link (&body body)
`(sbt-btn (:type "outline-link") ,@body))