2024-04-21 11:33:19 +02:00
|
|
|
(defpackage dev.metalisp.sbt/tbl
|
2023-07-14 13:33:50 +02:00
|
|
|
(:use :cl)
|
|
|
|
|
(:export
|
|
|
|
|
:table))
|
|
|
|
|
|
2024-04-21 11:33:19 +02:00
|
|
|
(in-package :dev.metalisp.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)))
|
