Merge branch 'main' of ssh://code.metalisp.dev:2222/marcuskammer/www.metalisp.dev

index.lisp

@@ -6,6 +6,7 @@
 (defpackage :website
   (:use :cl #:ml-sbt)
   (:import-from #:ml-sbt/section
+                #:define-section-type
                 #:with-section
                 #:with-section-row
                 #:with-section-col
@@ -18,6 +19,8 @@
                 #:with-list-group*)
   (:import-from #:ml-sbt/card
                 #:with-card*)
+  (:import-from #:ml-sbt/utility
+                #:make-grid-class)
   (:import-from #:ml-sbt/btn
                 #:btn))
 
@@ -25,6 +28,8 @@
 
 (defvar *lang* "en")
 
+(define-section-type with-section-projects (make-grid-class :row 1 :sm 2 :md 3 :g 3) nil)
+
 (defparameter *active-projects*
   '(("metalisp.sbt"
      ("Library of Common Lisp Macros to generate HTML." "In Active Development" "Common Lisp")
@@ -79,7 +84,7 @@
       ;; --
       (with-section
         (with-title-bar "Active Projects")
-        (with-section-row
+        (with-section-projects
           (dolist (project *active-projects*)
             (destructuring-bind (cheader citems curl) project
               (with-card*