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

Fix indentation

Browse source
This commit is contained in:
Marcus Kammer 2024-02-03 18:53:45 +01:00
parent c8928bff1a
commit 44f8fe0b43
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/component/accordion.lisp
View file

@ -100,10 +100,10 @@ Example:
(defmacro accordion ((&key id flush) &body body) (defmacro accordion ((&key id flush) &body body)
(let ((class (concatenate 'string "accordion" (when flush " accordion-flush")))) (let ((class (concatenate 'string "accordion" (when flush " accordion-flush"))))
`(spinneret:with-html `(spinneret:with-html
(:div :class ,class (:div :class ,class
:id ,id :id ,id
,@(loop for (title . content) in body ,@(loop for (title . content) in body
collect `(:div :class "accordion-item" collect `(:div :class "accordion-item"
(:h5 :class "accordion-header" ,title) (:h5 :class "accordion-header" ,title)
(:div :class "accordion-body" ,content))))))) (:div :class "accordion-body" ,content)))))))