Define navbar-brand macro

2023-07-10 17:42:17 +02:00 · 2023-07-10 17:42:17 +02:00 · 76a31d40c1
commit 76a31d40c1
parent 7645904ef4
1 changed files with 24 additions and 0 deletions
--- a/src/component/navbar.lisp
+++ b/src/component/navbar.lisp
@ -0,0 +1,24 @@
+(defmacro navbar-brand ((&key (logo-src nil)) &body body)
+  `(spinneret:with-html
+       (:div :class "container-fluid"
+             (:a :class "navbar-brand"
+                 :href "#"
+                 ,(if (null logo-src)
+                      nil
+                      (:img :src logo-src
+                            :alt "Logo"
+                            :width 30
+                            :height 24
+                            :class "d-inline-block align-text-top"))
+                 ,@body))))
+
+(defmacro navbar-nav ())
+
+(defmacro navbar-toggler ())
+
+(defmacro navbar-text ())
+
+(defmacro navbar (&body body)
+  `(spinneret:with-html
+     (:nav :class "navbar"
+           ,@body)))