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.

src/ui/progress.cljc

@@ -0,0 +1,52 @@
+(ns ui.progress
+  (:require [clojure.string :as str]))
+
+#?(:squint (defn- kw-name [s] s)
+   :cljs   (defn- kw-name [s] (name s))
+   :clj    (defn- kw-name [s] (name s)))
+
+(defn progress-bar-class-list
+  "Generate a vector of CSS class strings for the progress bar fill.
+   Variants: nil (default/accent), :success, :warning, :danger."
+  [{:keys [variant]}]
+  (cond-> ["progress-bar"]
+    variant (conj (str "progress-bar--" (kw-name variant)))))
+
+(defn progress-bar-classes
+  "Generate CSS class string for the progress bar fill."
+  [opts]
+  (str/join " " (progress-bar-class-list opts)))
+
+(defn progress
+  "Render a progress bar.
+
+   Props:
+     :value   - number 0-100
+     :variant - nil, :success, :warning, :danger
+     :class   - additional CSS classes
+     :attrs   - additional HTML attributes"
+  [{:keys [value variant class attrs] :as _props}]
+  (let [pct (str (or value 0) "%")]
+    #?(:squint
+       (let [classes (cond-> "progress" class (str " " class))
+             bar-cls (progress-bar-classes {:variant variant})]
+         [:div (merge {:class classes :role "progressbar"
+                       :aria-valuenow (str (or value 0))
+                       :aria-valuemin "0" :aria-valuemax "100"} attrs)
+          [:div {:class bar-cls :style {"width" pct}}]])
+
+       :cljs
+       (let [cls (cond-> ["progress"] class (conj class))
+             bar-cls (progress-bar-class-list {:variant variant})]
+         [:div (merge {:class cls :role "progressbar"
+                       :aria-valuenow (str (or value 0))
+                       :aria-valuemin "0" :aria-valuemax "100"} attrs)
+          [:div {:class bar-cls :style {:width pct}}]])
+
+       :clj
+       (let [classes (cond-> "progress" class (str " " class))
+             bar-cls (progress-bar-classes {:variant variant})]
+         [:div (merge {:class classes :role "progressbar"
+                       :aria-valuenow (str (or value 0))
+                       :aria-valuemin "0" :aria-valuemax "100"} attrs)
+          [:div {:class bar-cls :style (str "width: " pct)}]]))))