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

Update accordion macro

Browse source
This commit is contained in:
Marcus Kammer 2024-11-04 17:29:30 +01:00
parent 266cc96fb3
commit b1a478d3c1
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

@ -25,7 +25,7 @@ the accordion item.
Example usage: Example usage:
(accordion () \"Title 1\" \"Content 1\" \"Title 2\" \"Content 2\")" (accordion () \"Title 1\" \"Content 1\" \"Title 2\" \"Content 2\")"
(let ((class (if flush "accordion accordion-flush" "accordion"))) (let ((class (concatenate 'string "shadow " (if flush "accordion accordion-flush" "accordion"))))
`(spinneret:with-html `(spinneret:with-html
(:div :class ,class (:div :class ,class
:id ,id :id ,id
@ -35,7 +35,7 @@ Example usage:
for collapse-class = (concatenate 'string "accordion-collapse collapse" (when (= counter 1) " show")) for collapse-class = (concatenate 'string "accordion-collapse collapse" (when (= counter 1) " show"))
for btn-class = (concatenate 'string "accordion-button" (when (not (= counter 1)) " collapsed")) for btn-class = (concatenate 'string "accordion-button" (when (not (= counter 1)) " collapsed"))
collect `(:div :class "accordion-item" collect `(:div :class "accordion-item"
(:h2 :class "accordion-header" (:div :class "accordion-header"
(:button :class ,btn-class (:button :class ,btn-class
:type "button" :type "button"
:data-bs-toggle "collapse" :data-bs-toggle "collapse"