2023-06-29 17:19:12 +02:00
|
|
|
(defpackage cl-sbt
|
2023-07-01 16:30:10 +02:00
|
|
|
(:use :cl)
|
2023-07-14 16:20:55 +02:00
|
|
|
(:export
|
|
|
|
|
:container
|
|
|
|
|
:col-md
|
|
|
|
|
:col-xs
|
|
|
|
|
:col-sm
|
|
|
|
|
:col-lg
|
|
|
|
|
:icon
|
|
|
|
|
:well
|
|
|
|
|
:with-page))
|
2023-07-01 16:30:10 +02:00
|
|
|
|
2023-06-29 17:19:12 +02:00
|
|
|
(in-package :cl-sbt)
|
2023-07-03 14:43:58 +02:00
|
|
|
|
|
|
|
|
(defmacro container ((&key (fluid nil)) &body body)
|
|
|
|
|
"Bootstrap Grid Container. Set :fluid t for fluid layout."
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:div :class ,(if fluid "container-fluid" "container")
|
|
|
|
|
,@body)))
|
|
|
|
|
|
|
|
|
|
(defmacro row (&body body)
|
|
|
|
|
"Use rows to create horizontal groups of columns."
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:div :class "row"
|
|
|
|
|
,@body)))
|
|
|
|
|
|
|
|
|
|
(defmacro icon ((&key (glyph "asterisk")))
|
|
|
|
|
"Glyphicon from bootstrap"
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:span :class (format nil "glyphicon glyphicon-~a" ,glyph))))
|
|
|
|
|
|
|
|
|
|
(defmacro well (&body body)
|
|
|
|
|
"bootstrap well"
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:div :class "well"
|
|
|
|
|
,@body)))
|
