feat: add 13 components adapted from Oat UI

Components (.cljc + .css + tests):
- Alert (success/warning/danger/info variants)
- Badge (primary/secondary/outline/success/warning/danger)
- Card (card/card-header/card-body/card-footer)
- Accordion (collapsible with open/closed state)
- Table (headers/rows, striped/bordered variants)
- Dialog (modal with header/body/footer sections)
- Breadcrumb (nav with active item)
- Pagination (current/total with prev/next)
- Progress (value bar with color variants)
- Spinner (sm/md/lg sizes)
- Skeleton (line/box/circle/heading placeholders)
- Switch (toggle with checked/disabled states)
- Tooltip (hover text via data-tooltip attr)

CSS-only additions:
- Form elements (inputs, selects, checkboxes, radios, range, groups)
- Grid (12-column system with offsets, responsive)
- Utilities (flex, spacing, alignment, sr-only)

Also adds warning/fg-on-warning tokens to light and dark themes.
All 3 dev targets updated with full component showcase.
40 tests, 213 assertions, all passing.

test/ui/badge_test.clj

@@ -0,0 +1,31 @@
+(ns ui.badge-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [ui.badge :as badge]))
+
+(deftest badge-class-list-test
+  (testing "default variant (primary)"
+    (is (= ["badge"] (badge/badge-class-list {}))))
+
+  (testing "explicit variants"
+    (is (= ["badge"] (badge/badge-class-list {:variant :primary})))
+    (is (= ["badge" "badge-secondary"] (badge/badge-class-list {:variant :secondary})))
+    (is (= ["badge" "badge-outline"] (badge/badge-class-list {:variant :outline})))
+    (is (= ["badge" "badge-success"] (badge/badge-class-list {:variant :success})))
+    (is (= ["badge" "badge-warning"] (badge/badge-class-list {:variant :warning})))
+    (is (= ["badge" "badge-danger"] (badge/badge-class-list {:variant :danger})))))
+
+(deftest badge-classes-test
+  (testing "space-joined output"
+    (is (= "badge" (badge/badge-classes {})))
+    (is (= "badge badge-danger" (badge/badge-classes {:variant :danger})))))
+
+(deftest badge-component-test
+  (testing "renders a span"
+    (let [result (badge/badge {} "New")]
+      (is (= :span (first result)))
+      (is (= "badge" (get-in result [1 :class])))
+      (is (= "New" (nth result 2)))))
+
+  (testing "extra class gets appended"
+    (let [result (badge/badge {:class "extra"} "X")]
+      (is (= "badge extra" (get-in result [1 :class]))))))