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

Reformat code to fit in 85 col

Browse source
This commit is contained in:
Marcus Kammer 2025-02-09 09:47:15 +01:00
parent de8c7bbbcd
commit 540da54866
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/section.lisp
View file

@ -67,12 +67,17 @@ ROW-CLASS: Similar to GRID-CLASS. Can be:
BODY: The content of the section."
`(spinneret:with-html
(:section :class
,(cond ((stringp grid-class) `(combine-classes "mb-3" ,grid-class))
((eq 'make-grid-class (first grid-class)) `(combine-classes "mb-3" ,grid-class))
(t `(combine-classes "mb-3" (apply #'make-grid-class ',grid-class))))
,(cond ((stringp grid-class)
`(combine-classes "mb-3" ,grid-class))
((eq 'make-grid-class (first grid-class))
`(combine-classes "mb-3" ,grid-class))
(t
`(combine-classes "mb-3"
(apply #'make-grid-class ',grid-class))))
,@(if row-class
`((:div :class ,(cond ((stringp row-class) row-class)
((eq 'make-grid-class (first row-class)) row-class)
((eq 'make-grid-class (first row-class))
row-class)
(t `(apply #'make-grid-class ',row-class)))
,@body))
body))))