Just one place to define breakpoints

src/layout/grid.lisp

@@ -37,6 +37,9 @@
 
 (defpackage cl-sbt/grid
   (:use :cl)
+  (:import-from
+   :cl-sbt/utility
+   :*breakpoints*)
   (:export
    :con
    :row
@@ -44,8 +47,6 @@
 
 (in-package :cl-sbt/grid)
 
-(defvar *breakpoints* '("xs" "sm" "md" "lg" "xl" "xxl"))
-
 (defun string-clean (str)
   (string-trim " " (string-downcase str)))
 

src/utility.lisp

@@ -41,6 +41,9 @@
 (defpackage :cl-sbt/utility
   (:use :cl)
   (:export
+   :*colors*
+   :*breakpoints*
+   :*sides*
    :background
    :color
    :opacity