2023-07-06 18:49:18 +02:00
|
|
|
(in-package :cl-sbt-album)
|
2023-07-06 16:09:48 +02:00
|
|
|
|
2023-07-06 18:49:18 +02:00
|
|
|
(load "examples/album/_card.lisp")
|
2023-07-06 16:09:48 +02:00
|
|
|
|
2023-07-05 16:07:28 +02:00
|
|
|
(defmacro main (&body body)
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:main ,@body)))
|
2023-07-06 16:09:48 +02:00
|
|
|
|
|
|
|
|
(defmacro hero ((&key (headline nil) (cta-1 nil) (cta-2 nil)) &body body)
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:section :class "py-5 text-center container"
|
|
|
|
|
(:div :class "row py-lg-5"
|
|
|
|
|
(:div :class "col-lg-6 col-md-8 mx-auto"
|
|
|
|
|
(:h1 :class "fw-light"
|
|
|
|
|
,headline)
|
|
|
|
|
(:p :class "lead text-body-secondary"
|
|
|
|
|
,@body)
|
|
|
|
|
(:p
|
|
|
|
|
(:a :class "btn btn-primary my-2"
|
|
|
|
|
,cta-1)
|
|
|
|
|
(:a :class "btn btn-secondary my-2"
|
|
|
|
|
,cta-2)))))))
|
|
|
|
|
|
|
|
|
|
(defmacro album (&body body)
|
|
|
|
|
`(spinneret:with-html
|
|
|
|
|
(:div :class "album py-5 bg-body-tertiary"
|
|
|
|
|
(:div :class "container"
|
|
|
|
|
(:div :class "row row-cols-1 row-cols-sm-2 row-cols-md-3 g-3"
|
|
|
|
|
(:div :class "col"
|
|
|
|
|
,@body))))))
|
