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." BODY: The content of the section."
`(spinneret:with-html `(spinneret:with-html
(:section :class (:section :class
,(cond ((stringp grid-class) ,(if (or (stringp grid-class)
`(combine-classes "mb-3" ,grid-class)) (eq 'make-grid-class (first grid-class)))
((eq 'make-grid-class (first grid-class)) `(combine-classes "mb-3" ,grid-class)
`(combine-classes "mb-3" ,grid-class)) `(combine-classes "mb-3" (apply #'make-grid-class ',grid-class)))
(t
`(combine-classes "mb-3"
(apply #'make-grid-class ',grid-class))))
,@(if row-class ,@(if row-class
`((:div :class `((:div :class
,(cond ((stringp row-class) row-class) ,(if (or (stringp row-class)
((eq 'make-grid-class (first row-class)) (eq 'make-grid-class (first row-class)))
row-class) row-class
(t `(apply #'make-grid-class ',row-class))) `(apply #'make-grid-class ',row-class))
,@body)) ,@body))
body)))) body))))