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

Create another navbar macro approach

Browse source
This commit is contained in:
Marcus Kammer 2024-05-26 20:32:35 +02:00
parent 5f45398575
commit 69984a6499
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
src/navbar.lisp
View file

@ -177,3 +177,48 @@ Example:
"container-fluid"
"container")
,@body))))
(defun navbar*-class-str (expand spacing)
(concatenate 'string
"navbar bg-body-tertiary"
" "
"navbar-expand-"
expand
" "
(if spacing
(apply #'dev.metalisp.sbt/utility:spacing spacing)
(dev.metalisp.sbt/utility:spacing :property "m" :side "b" :size 5))))
(defmacro navbar* (expand (&key spacing) &body body)
(let ((class-str (navbar*-class-str expand spacing)))
`(spinneret:with-html
(:nav :class ,class-str
(:div :class "container-fluid"
,(if (listp (first body))
`(:a :class "navbar-brand"
:href ,(getf (first body) :url)
(:img :src ,(getf (first body) :src)
:alt "Company Logo"
:width ,(getf (first body) :width)))
nil)
,(if (stringp (second body))
`(:button :class "navbar-toggler"
:type "button"
:data-bs-toggle "collapse"
:data-bs-target ,(second body)
:aria-controls ,(second body)
:aria-expanded "false"
:aria-label "Toggle Navigation"
(:span :class "navbar-toggler-icon"))
nil)
,(if (listp (third body))
`(:div :class "collapse navbar-collapse"
,@(when (second body) (list :id (second body)))
(:ul :class "navbar-nav"
,@(loop for navitem in (third body)
collect
`(:li :class "nav-item"
(:a :class "nav-link"
:href ,(getf navitem :url)
,(getf navitem :name))))))
nil))))))