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

Dont use with-list-group macro in with-card*

Browse source
This commit is contained in:
Marcus Kammer 2025-01-23 13:52:52 +01:00
parent ed1987691b
commit 34a6e478e2
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/card.lisp
View file

@ -190,24 +190,26 @@ Example:
"Creates a Bootstrap card with a header, optional list items, and additional content.
Example:
(with-card* :col \"col-lg-12\"
(with-card* :col \"lg-12\"
:card-image (\"foo.png\" . \"foo image\")
:card-header \"Foo\"
:card-items '(\"foo\" \"bar\")
:card-body \"body\")"
(destructuring-bind (&key col card-image card-header card-items card-body) body
(let ((col-class (if col col "col"))
(let ((class-str (format nil "col~@[-~A~]" col))
(sizing-class "card h-100"))
`(spinneret:with-html
(:div :class ,col-class
(:div :class ,class-str
(:div :class ,sizing-class
,@(if card-image
`((:img :class "card-img-top"
:src ,(car card-image)
:alt ,(cdr card-image))))
`((:img :class "card-img-top"
:src ,(car card-image)
:alt ,(cdr card-image))))
,@(if card-header
`((:h5 :class "card-header" ,card-header)))
`((:h5 :class "card-header" ,card-header)))
,@(if card-items
`((with-list-group t ,card-items)))
`((:ul :class "list-group list-group-flush"
(dolist (item ,card-items)
(:li :class "list-group-item" item)))))
(:div :class "card-body"
,card-body)))))))