2023-07-14 13:33:50 +02:00
|
|
|
(defpackage cl-sbt-tbl
|
|
|
|
|
(:use :cl)
|
|
|
|
|
(:export
|
|
|
|
|
:table))
|
|
|
|
|
|
|
|
|
|
(in-package :cl-sbt-tbl)
|
2023-07-02 13:21:47 +02:00
|
|
|
|
|
|
|
|
(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)))
|
