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

Update nav and tabs

Browse source
This commit is contained in:
Marcus Kammer 2023-07-07 15:06:43 +02:00
parent 46fe449091
commit 6365f744b4
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cl-sbt.asd
View file

@ -15,6 +15,7 @@
(:file "alert")
(:file "dropdown")
(:file "table")
(:file "navbar")
(:file "header"))))
:description ""
:in-order-to ((test-op (test-op "cl-sbt/tests"))))

19
src/component/nav-tab.lisp Normal file
View file

@ -0,0 +1,19 @@
(in-package :cl-sbt)
(defun tabpanel-class (active fade)
(concatenate 'string "tab-pane " (if fade " fade " nil) (if active " in active " nil)))
(defmacro nav-item (title active url)
`(spinneret:with-html
(:li :role "presentation"
:class ,(if active "active" "")
(:a :href (format nil "#~a" ,url)
:data-toggle "tab" ,title))))
(defmacro nav ((&key (tabs nil)) &rest rest)
`(spinneret:with-html
(:ul :class "nav"
:role "tablist"
,@(loop for tab in rest
collect (destructuring-bind (&key title active id content) tab
`(tab-nav ,title ,active ,id))))))