31 lines
665 B
Common Lisp
31 lines
665 B
Common Lisp
(defpackage cl-sbt/tbl
|
|
(:use :cl)
|
|
(:export
|
|
:table))
|
|
|
|
(in-package :cl-sbt/tbl)
|
|
|
|
(defmacro table (&body body)
|
|
`(spinneret:with-html
|
|
(:table :class "table"
|
|
,@body)))
|
|
|
|
(defmacro table-striped (&body body)
|
|
`(spinneret:with-html
|
|
(:table :class "table table-striped"
|
|
,@body)))
|
|
|
|
(defmacro table-bordered (&body body)
|
|
`(spinneret:with-html
|
|
(:table :class "table table-bordered"
|
|
,@body)))
|
|
|
|
(defmacro table-hover (&body body)
|
|
`(spinneret:with-html
|
|
(:table :class "table table-hover"
|
|
,@body)))
|
|
|
|
(defmacro table-condensed (&body body)
|
|
`(spinneret:with-html
|
|
(:table :class "table table-condensed"
|
|
,@body)))
|