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

Add new macro for button group

Browse source
This commit is contained in:
Marcus Kammer 2024-07-26 18:02:01 +02:00
parent 39449d1855
commit 6b90a4371a
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/button.lisp
View file

@ -60,7 +60,8 @@
:btn-outline-info-sm :btn-outline-info-sm
:btn-outline-light-sm :btn-outline-light-sm
:btn-outline-dark-sm :btn-outline-dark-sm
:btn-outline-link-sm)) :btn-outline-link-sm
:with-btn-group))
(in-package :dev.metalisp.sbt/btn) (in-package :dev.metalisp.sbt/btn)
@ -131,3 +132,11 @@ button of the corresponding type, size, and outline style."
(define-btn ,color-name nil "sm"))))) (define-btn ,color-name nil "sm")))))
(define-btns (primary secondary success danger warning info light dark link)) (define-btns (primary secondary success danger warning info light dark link))
(defmacro with-btn-group (&rest buttons)
`(spinneret:with-html
(:div :class "d-flex justify-content-between"
,@(loop for (label url) on buttons by #'cddr
collect `(:a :class "btn btn-primary"
:href ,url
,label)))))