20 lines
624 B
Common Lisp
20 lines
624 B
Common Lisp
|
(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))))))
|