chore: add bb check-dev script for pre-commit server verification

Babashka script that checks all ui-dev tmux panes for compile errors,
verifies hiccup serves content, ensures squint .mjs files aren't
truncated, and confirms replicant JS is compiled. Replaces the manual
tmux capture-pane + curl checks documented in AGENTS.md.

scripts/check-dev.bb

@@ -0,0 +1,117 @@
+#!/usr/bin/env bb
+;; Check all ui-dev tmux panes for compile errors and verify dev servers.
+;; Exit 0 = all good, Exit 1 = errors found.
+
+(require '[babashka.process :as p]
+         '[clojure.string :as str]
+         '[babashka.http-client :as http])
+
+;; ── Helpers ─────────────────────────────────────────────────────────
+
+(def red "\033[0;31m")
+(def green "\033[0;32m")
+(def yellow "\033[0;33m")
+(def bold "\033[1m")
+(def nc "\033[0m")
+
+(defn sh [& args]
+  (let [r (apply p/sh args)]
+    (when (zero? (:exit r))
+      (str/trim (:out r)))))
+
+(defn println-ok [& parts] (println (str green "✓ " nc (str/join parts))))
+(defn println-err [& parts] (println (str red bold "✗ " nc (str/join parts))))
+(defn println-warn [& parts] (println (str yellow "⚠ " nc (str/join parts))))
+
+(def errors (atom 0))
+
+(defn fail! []
+  (swap! errors inc))
+
+;; ── 1. Tmux pane compile errors ────────────────────────────────────
+
+(def error-patterns
+  #"(?i)Build failure|CompilerException|WARNING:|SyntaxError|^ERROR|Exception|error:|failed")
+
+(defn tmux-session-exists? []
+  (some? (sh "tmux" "has-session" "-t" "ui-dev")))
+
+(defn pane-indices []
+  (some-> (sh "tmux" "list-panes" "-t" "ui-dev:1" "-F" "#{pane_index}")
+          (str/split-lines)))
+
+(defn capture-pane [idx]
+  (some-> (sh "tmux" "capture-pane" "-t" (str "ui-dev:1." idx) "-p" "-S" "-50")
+          (str/split-lines)
+          (->> (remove str/blank?)
+               (take-last 30)
+               vec)))
+
+(defn check-tmux-panes []
+  (if-not (tmux-session-exists?)
+    (println-warn "No ui-dev tmux session found — skipping pane checks")
+    (doseq [idx (pane-indices)]
+      (let [lines (capture-pane idx)
+            matches (seq (filter #(re-find error-patterns %) lines))]
+        (if matches
+          (do (println-err "Pane " idx " — errors found:")
+              (doseq [m matches] (println (str "  " m)))
+              (fail!))
+          (println-ok "Pane " idx " — " (last lines)))))))
+
+;; ── 2. Hiccup server ───────────────────────────────────────────────
+
+(defn check-hiccup []
+  (try
+    (let [body (:body (http/get "http://localhost:4003" {:throw false :timeout 3000}))]
+      (if (str/includes? (or body "") "sidebar-layout")
+        (println-ok "Hiccup — serving (sidebar-layout found)")
+        (do (println-err "Hiccup — responds but page content missing")
+            (fail!))))
+    (catch Exception _
+      (println-warn "Hiccup — not responding on :4003"))))
+
+;; ── 3. Squint compiled output ───────────────────────────────────────
+
+(defn check-squint []
+  (let [dir (clojure.java.io/file "dev/squint/.compiled")]
+    (if-not (.isDirectory dir)
+      (println-warn "Squint — dev/squint/.compiled not found")
+      (let [mjs-files (->> (file-seq dir)
+                           (filter #(str/ends-with? (.getName %) ".mjs"))
+                           (filter #(.isFile %)))
+            broken (filter (fn [f]
+                             (<= (count (str/split-lines (slurp f))) 1))
+                           mjs-files)]
+        (if (seq broken)
+          (doseq [f broken]
+            (println-err "Squint — empty/truncated: " (.getPath f))
+            (fail!))
+          (println-ok "Squint — all " (count mjs-files) " .mjs files have content"))))))
+
+;; ── 4. Replicant compiled JS ────────────────────────────────────────
+
+(defn check-replicant []
+  (let [dir (clojure.java.io/file "dev/replicant/public/js/cljs-runtime")]
+    (if-not (.isDirectory dir)
+      (println-warn "Replicant — cljs-runtime dir not found")
+      (let [ui-files (->> (.listFiles dir)
+                          (filter #(str/starts-with? (.getName %) "ui."))
+                          (filter #(str/ends-with? (.getName %) ".js")))]
+        (if (seq ui-files)
+          (println-ok "Replicant — " (count ui-files) " ui.*.js files compiled")
+          (do (println-err "Replicant — no ui.*.js files compiled")
+              (fail!)))))))
+
+;; ── Run ─────────────────────────────────────────────────────────────
+
+(check-tmux-panes)
+(check-hiccup)
+(check-squint)
+(check-replicant)
+
+(println)
+(if (pos? @errors)
+  (do (println (str red bold "✗ " @errors " error(s) found — do not commit" nc))
+      (System/exit 1))
+  (println (str green bold "✓ All checks passed" nc)))