Execute grid-class at runtime

2025-02-07 16:05:46 +01:00 · 2025-02-07 16:05:46 +01:00 · 210fa347ba
commit 210fa347ba
parent 29b18e3d16
1 changed files with 6 additions and 7 deletions
--- a/src/section.lisp
+++ b/src/section.lisp
@ -54,13 +54,12 @@ GRID-CLASS: Set bootstrap grid classes.
 ROW-CLASS: Enable a div as row

 BODY: The content of the section, typically including a call to with-title-bar."
-  (let ((final-class `(combine-classes "mb-3" ,grid-class)))
-    `(spinneret:with-html
-       (:section :class ,final-class
-         ,@(if row-class
-               `((:div :class ,row-class
-                       ,@body))
-               body)))))
+  `(spinneret:with-html
+     (:section :class
+         ,@(progn `((combine-classes "mb-3" ,grid-class)))
+       ,@(if row-class
+             `((:div :class ,row-class ,@body))
+             body))))

 (defmacro define-section-type (name grid-class row-class)
  "Define section types.