18043cb150
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.
53 lines
2.0 KiB
Clojure
53 lines
2.0 KiB
Clojure
(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)}]]))))
|