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.

dev/squint/src/dev/squint.cljs

@@ -42,10 +42,11 @@
     (.removeAttribute layout "data-sidebar-open")))
 
 (defn section [title & children]
-  [:section {:style {"margin-bottom" "2.5rem"}}
-   [:h3 {:style {"color" "var(--fg-1)" "margin-bottom" "1rem"
-                  "border-bottom" "var(--border-0)" "padding-bottom" "0.5rem"}} title]
-   (into [:div {:style {"display" "flex" "flex-direction" "column" "gap" "1rem"}}] children)])
+  (let [id (.toLowerCase title)]
+    [:section {:id id :style {"margin-bottom" "2.5rem"}}
+     [:h3 {:style {"color" "var(--fg-1)" "margin-bottom" "1rem"
+                    "border-bottom" "var(--border-0)" "padding-bottom" "0.5rem"}} title]
+     (into [:div {:style {"display" "flex" "flex-direction" "column" "gap" "1rem"}}] children)]))
 
 (defn page-header [title subtitle]
   [:div {:style {"margin-bottom" "2rem"}}
@@ -353,6 +354,28 @@
 
 ;; ── Navigation ──────────────────────────────────────────────────────
 
+(def component-nav
+  [{:title "General"
+    :items [{:label "Button" :anchor "button"}
+            {:label "Badge" :anchor "badge"}
+            {:label "Card" :anchor "card"}]}
+   {:title "Forms"
+    :items [{:label "Form" :anchor "form"}
+            {:label "Switch" :anchor "switch"}]}
+   {:title "Data Display"
+    :items [{:label "Table" :anchor "table"}
+            {:label "Accordion" :anchor "accordion"}
+            {:label "Progress" :anchor "progress"}]}
+   {:title "Feedback"
+    :items [{:label "Alert" :anchor "alert"}
+            {:label "Dialog" :anchor "dialog"}
+            {:label "Spinner" :anchor "spinner"}
+            {:label "Skeleton" :anchor "skeleton"}
+            {:label "Tooltip" :anchor "tooltip"}]}
+   {:title "Navigation"
+    :items [{:label "Breadcrumb" :anchor "breadcrumb"}
+            {:label "Pagination" :anchor "pagination"}]}])
+
 (def nav-items
   [{:id "components" :label "Components"  :icon-name "package"}
    {:id "icons"      :label "Icons"       :icon-name "image"}
@@ -363,6 +386,17 @@
     (reset! !page page-id)
     (render!)))
 
+(defn navigate-to-section! [anchor]
+  (fn [_e]
+    (when (not= @!page "components")
+      (reset! !page "components")
+      (render!))
+    (js/setTimeout
+      (fn []
+        (when-let [el (js/document.getElementById anchor)]
+          (.scrollIntoView el {"behavior" "smooth" "block" "start"})))
+      50)))
+
 ;; ── App Shell ───────────────────────────────────────────────────────
 
 (defn own-port []
@@ -390,6 +424,15 @@
                        label))
                    nav-items)))
       (sidebar/sidebar-separator)
+      (into (sidebar/sidebar-group {:label "Components"})
+            (map (fn [{:keys [title items]}]
+                   (sidebar/sidebar-collapsible {:title title :open true}
+                     (into (sidebar/sidebar-menu {})
+                           (map (fn [{:keys [label anchor]}]
+                                  (sidebar/sidebar-menu-item {:on-click (navigate-to-section! anchor)} label))
+                                items))))
+                 component-nav))
+      (sidebar/sidebar-separator)
       (sidebar/sidebar-group {:label "Targets"}
         (into (sidebar/sidebar-menu {})
               (map (fn [{:keys [label port active]}]