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

Fix card-group

Browse source
This commit is contained in:
Marcus Kammer 2023-07-14 18:54:17 +02:00
parent 63e788d21d
commit a910bc2be9
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/component/card.lisp
View file

@ -40,7 +40,8 @@
:img
:body
:card-with-img
:card))
:card
:card-group))
(in-package :cl-sbt-card)
@ -160,10 +161,10 @@ Example:
(:div :class "card-group"
:id ,id
,@(loop for item in rest
collect (destructuring-bind (&key img-src title text (link (link-href "#") link-label)) item
collect (destructuring-bind (&key img-src body-title body-text link-href link-label) item
`(card (img (:src ,img-src))
(body (title ,title)
(text ,text)
(body (title ,bdy-title)
(text ,body-text)
(link (:href ,link-href) ,link-label))))))))
;; Kitchen sink