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

Simplify conditional check

Browse source 
Replace cond with if
This commit is contained in:
Marcus Kammer 2025-02-09 13:25:43 +01:00
parent f626414314
commit 1efdd09a7b
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/section.lisp
View file

@ -70,19 +70,16 @@ 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))))
,(if (or (stringp grid-class)
(eq 'make-grid-class (first grid-class)))
`(combine-classes "mb-3" ,grid-class)
`(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)
(t `(apply #'make-grid-class ',row-class)))
,(if (or (stringp row-class)
(eq 'make-grid-class (first row-class)))
row-class
`(apply #'make-grid-class ',row-class))
,@body))
body))))