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

Use &rest items instead of &body

Browse source
This commit is contained in:
Marcus Kammer 2024-08-03 09:41:51 +02:00
parent 5c5e53e43a
commit 99a78c1f7e
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/accordion.lisp
View file

@ -9,7 +9,7 @@
(in-package :ml-sbt/accordion)
(defmacro with-accordion ((&key (id "accordionExample") flush) &body body)
(defmacro with-accordion ((&key (id "accordionExample") flush) &rest items)
"This macro generates an accordion-style collapsible list.
ID: Specifies a unique identifier for the accordion. Defaults to 'accordionExample'.
@ -29,7 +29,7 @@ Example usage:
`(spinneret:with-html
(:div :class ,class
:id ,id
,@(loop for (title content) on body by #'cddr
,@(loop for (title content) on items by #'cddr
for counter from 1
for collapse-id = (format nil "collapse-~a-~a" id counter)
for collapse-class = (concatenate 'string "accordion-collapse collapse" (when (= counter 1) " show"))