ci: local ci via bb

Author: TimoKramer

bb.edn

@@ -1,3 +1,19 @@
 {:paths ["src" "test"]
- :tasks {test:bb {:extra-deps {io.github.cognitect-labs/test-runner {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
-                  :task cognitect.test-runner/-main}}}
+ :tasks
+ {test:bb {:extra-deps {io.github.cognitect-labs/test-runner {:git/tag "v0.5.1" :git/sha "dfb30dd"}}
+                    :task cognitect.test-runner/-main}
+
+  format {:doc "Check formatting"
+          :task (clojure "-M:format")}
+
+  lint {:doc "Lint code"
+        :task (clojure "-M:lint")}
+
+  test {:doc "Run tests"
+        :task (clojure "-M:test")}
+
+  build {:doc "Build jar"
+         :task (clojure "-T:build jar")}
+
+  ci {:doc "Run ci"
+      :depends [test format lint build]}}}

deps.edn

@@ -24,5 +24,8 @@
                  slipset/deps-deploy {:mvn/version "0.2.2"}}
           :ns-default build}
 
-  :lint {:extra-deps {io.github.clj-kondo/clj-kondo {:mvn/version "2026.01.19"}}
-         :main-opts ["-m" "clj-kondo.main"]}}}
+  :format {:extra-deps {dev.weavejester/cljfmt {:mvn/version "0.16.0"}}
+           :main-opts ["-m" "cljfmt.main" "check" "src" "test"]}
+
+  :lint {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2026.01.19"}}
+         :main-opts ["-m" "clj-kondo.main" "--fail-level" "error" "--lint" "src" "test"]}}}

src/charm/style/overlay.clj

@@ -102,16 +102,16 @@
   (let [[base-w base-h] (text-dimensions base)
         [overlay-w overlay-h] (text-dimensions overlay)
         [x y] (case position
-                 :center       [(quot (- base-w overlay-w) 2)
-                                (quot (- base-h overlay-h) 2)]
-                 :top-left     [0 0]
-                 :top-right    [(- base-w overlay-w) 0]
-                 :top-center   [(quot (- base-w overlay-w) 2) 0]
-                 :bottom-left  [0 (- base-h overlay-h)]
-                 :bottom-right [(- base-w overlay-w) (- base-h overlay-h)]
-                 :bottom-center [(quot (- base-w overlay-w) 2)
-                                 (- base-h overlay-h)]
-                 :center-left  [0 (quot (- base-h overlay-h) 2)]
-                 :center-right [(- base-w overlay-w)
-                                (quot (- base-h overlay-h) 2)])]
+                :center       [(quot (- base-w overlay-w) 2)
+                               (quot (- base-h overlay-h) 2)]
+                :top-left     [0 0]
+                :top-right    [(- base-w overlay-w) 0]
+                :top-center   [(quot (- base-w overlay-w) 2) 0]
+                :bottom-left  [0 (- base-h overlay-h)]
+                :bottom-right [(- base-w overlay-w) (- base-h overlay-h)]
+                :bottom-center [(quot (- base-w overlay-w) 2)
+                                (- base-h overlay-h)]
+                :center-left  [0 (quot (- base-h overlay-h) 2)]
+                :center-right [(- base-w overlay-w)
+                               (quot (- base-h overlay-h) 2)])]
     (place-overlay base overlay (max 0 x) (max 0 y))))