marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Update card component

Browse source
This commit is contained in:
Marcus Kammer 2023-07-07 20:45:03 +02:00
parent ecb36b1a87
commit 1c1e70884c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/component/card.lisp
View file

@ -8,11 +8,24 @@
(in-package :cl-sbt) (in-package :cl-sbt)
(defmacro card ((&key (img-src nil) (btn-txt nil)) &body body) (defmacro card-title (&body body)
`(spinneret:with-html
(:h5 :class "card-title" ,@body)))
(defmacro card-subtitle (&body body)
`(spinneret:with-html
(:h6 :class "card-subtitle mb-2 text-body-secondary" ,@body)))
(defmacro card-text (&body body)
`(spinneret:with-html
(:p :class "card-text" ,@body)))
(defmacro card-link (&body body)
`(spinneret:with-html
(:a :href "#" :class "card-link" ,@body)))
(defmacro card ((&key (img-src nil)) &body body)
`(spinneret:with-html `(spinneret:with-html
(:div :class "card" (:div :class "card"
,(when img-src `(:img :class "card-img-top" :src ,img-src)) ,(when img-src `(:img :class "card-img-top" :src ,img-src))
(:div :class "card-body" (:div :class "card-body" ,@body))))
(:p :class "card-text"
,@body)
,(when btn-txt `(btn-primary ,btn-txt))))))