Update dropdowns
This commit is contained in:
parent
12f5abbe37
commit
4ac4274cea
1 changed files with 19 additions and 0 deletions
|
@ -1 +1,20 @@
|
||||||
(in-package :cl-sbt)
|
(in-package :cl-sbt)
|
||||||
|
|
||||||
|
(defmacro dropdown ((&key (title "")) &body body)
|
||||||
|
`(spinneret:with-html
|
||||||
|
(:div :class "dropdown"
|
||||||
|
(:button :class "btn btn-secondary dropdown-toggle"
|
||||||
|
:type "button"
|
||||||
|
:data-bs-toggle "dropdown"
|
||||||
|
:aria-expanded "false"
|
||||||
|
,title)
|
||||||
|
,@body)))
|
||||||
|
|
||||||
|
(defmacro dropdown-menu (&body body)
|
||||||
|
`(spinneret:with-html
|
||||||
|
(:ul :class "dropdown-menu"
|
||||||
|
,@body)))
|
||||||
|
|
||||||
|
(defmacro dropdown-item (&body body)
|
||||||
|
`(spinneret:with-html
|
||||||
|
(:li (:a :class "dropdown-item" :href "#" ,@body))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue