Update dropdowns

2023-07-02 09:15:20 +02:00 · 2023-07-02 09:15:20 +02:00 · 4ac4274cea
commit 4ac4274cea
parent 12f5abbe37
1 changed files with 19 additions and 0 deletions
--- a/src/dropdowns.lisp
+++ b/src/dropdowns.lisp
@ -1 +1,20 @@
 (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))))