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

Update the use of cards

Browse source
This commit is contained in:
Marcus Kammer 2023-07-06 23:06:00 +02:00
parent 11f7bef298
commit 2cd32c7535
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
examples/album/_card.lisp
View file

@ -2,7 +2,8 @@
(defmacro card (&body body) (defmacro card (&body body)
`(spinneret:with-html `(spinneret:with-html
(:div :class "card shadow-sm" (:div :class "col"
(:div :class "card-body" (:div :class "card shadow-sm"
(:p :class "card-text" (:div :class "card-body"
,@body))))) (:p :class "card-text"
,@body))))))

12
examples/album/_main.lisp
View file

@ -15,16 +15,14 @@
,headline) ,headline)
(:p :class "lead text-body-secondary" (:p :class "lead text-body-secondary"
,@body) ,@body)
(:p (:p (:a :class "btn btn-primary my-2"
(:a :class "btn btn-primary my-2" ,cta-1)
,cta-1) (:a :class "btn btn-secondary my-2"
(:a :class "btn btn-secondary my-2" ,cta-2)))))))
,cta-2)))))))
(defmacro album (&body body) (defmacro album (&body body)
`(spinneret:with-html `(spinneret:with-html
(:div :class "album py-5 bg-body-tertiary" (:div :class "album py-5 bg-body-tertiary"
(:div :class "container" (:div :class "container"
(:div :class "row row-cols-1 row-cols-sm-2 row-cols-md-3 g-3" (:div :class "row row-cols-1 row-cols-sm-2 row-cols-md-3 g-3"
(:div :class "col" ,@body)))))
,@body))))))