From 1efdd09a7b73b6d3cc36ddc25c9f1b979c4e1a1e Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 9 Feb 2025 13:25:43 +0100 Subject: [PATCH] Simplify conditional check Replace cond with if --- src/section.lisp | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/src/section.lisp b/src/section.lisp index 2d1d8ab..ef18e2c 100644 --- a/src/section.lisp +++ b/src/section.lisp @@ -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))))