floscr/clj-ui-framework
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: replace BEM with utility classes, move component CSS to files

Browse Source 
- Rename CSS classes from BEM double-dash (btn--primary) to flat
  utility-style single-dash (btn-primary)
- Move button CSS from inline Clojure string in gen.clj to
  src/ui/button.css next to button.cljc
- gen.clj now auto-collects all src/ui/*.css files via babashka.fs glob
- Replace clojure.java.io with babashka.fs throughout gen.clj
- Update AGENTS.md to reflect new conventions
This commit is contained in:
Florian Schroedl
2026-03-03 11:11:47 +01:00
parent 6b4899f8bf
commit 988617617c
6 changed files with 123 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
test/ui/button_test.clj
View File

@@ -4,54 +4,54 @@
(deftest button-class-list-test
(testing "default variant and size"
(is (= ["btn" "btn--secondary"] (button/button-class-list {}))))
(is (= ["btn" "btn-secondary"] (button/button-class-list {}))))
(testing "explicit variant"
(is (= ["btn" "btn--primary"] (button/button-class-list {:variant :primary})))
(is (= ["btn" "btn--ghost"] (button/button-class-list {:variant :ghost})))
(is (= ["btn" "btn--danger"] (button/button-class-list {:variant :danger}))))
(is (= ["btn" "btn-primary"] (button/button-class-list {:variant :primary})))
(is (= ["btn" "btn-ghost"] (button/button-class-list {:variant :ghost})))
(is (= ["btn" "btn-danger"] (button/button-class-list {:variant :danger}))))
(testing "explicit size"
(is (= ["btn" "btn--secondary" "btn--sm"] (button/button-class-list {:size :sm})))
(is (= ["btn" "btn--secondary"] (button/button-class-list {:size :md})))
(is (= ["btn" "btn--secondary" "btn--lg"] (button/button-class-list {:size :lg}))))
(is (= ["btn" "btn-secondary" "btn-sm"] (button/button-class-list {:size :sm})))
(is (= ["btn" "btn-secondary"] (button/button-class-list {:size :md})))
(is (= ["btn" "btn-secondary" "btn-lg"] (button/button-class-list {:size :lg}))))
(testing "variant + size combined"
(is (= ["btn" "btn--primary" "btn--lg"] (button/button-class-list {:variant :primary :size :lg})))))
(is (= ["btn" "btn-primary" "btn-lg"] (button/button-class-list {:variant :primary :size :lg})))))
(deftest button-classes-test
(testing "default variant and size"
(is (= "btn btn--secondary" (button/button-classes {}))))
(is (= "btn btn-secondary" (button/button-classes {}))))
(testing "explicit variant"
(is (= "btn btn--primary" (button/button-classes {:variant :primary})))
(is (= "btn btn--ghost" (button/button-classes {:variant :ghost})))
(is (= "btn btn--danger" (button/button-classes {:variant :danger})))
(is (= "btn btn--secondary" (button/button-classes {:variant :secondary}))))
(is (= "btn btn-primary" (button/button-classes {:variant :primary})))
(is (= "btn btn-ghost" (button/button-classes {:variant :ghost})))
(is (= "btn btn-danger" (button/button-classes {:variant :danger})))
(is (= "btn btn-secondary" (button/button-classes {:variant :secondary}))))
(testing "explicit size"
(is (= "btn btn--secondary btn--sm" (button/button-classes {:size :sm})))
(is (= "btn btn--secondary" (button/button-classes {:size :md})))
(is (= "btn btn--secondary btn--lg" (button/button-classes {:size :lg}))))
(is (= "btn btn-secondary btn-sm" (button/button-classes {:size :sm})))
(is (= "btn btn-secondary" (button/button-classes {:size :md})))
(is (= "btn btn-secondary btn-lg" (button/button-classes {:size :lg}))))
(testing "variant + size combined"
(is (= "btn btn--primary btn--lg" (button/button-classes {:variant :primary :size :lg})))
(is (= "btn btn--danger btn--sm" (button/button-classes {:variant :danger :size :sm}))))
(is (= "btn btn-primary btn-lg" (button/button-classes {:variant :primary :size :lg})))
(is (= "btn btn-danger btn-sm" (button/button-classes {:variant :danger :size :sm}))))
(testing "nil variant falls back to default"
(is (= "btn btn--secondary" (button/button-classes {:variant nil}))))
(is (= "btn btn-secondary" (button/button-classes {:variant nil}))))
(testing "nil size falls back to default (md, no size class)"
(is (= "btn btn--secondary" (button/button-classes {:size nil}))))
(is (= "btn btn-secondary" (button/button-classes {:size nil}))))
(testing "string variants work"
(is (= "btn btn--primary" (button/button-classes {:variant "primary"})))))
(is (= "btn btn-primary" (button/button-classes {:variant "primary"})))))
(deftest button-component-test
(testing "basic button renders correct hiccup (clj target)"
(let [result (button/button {:variant :primary} "Click me")]
(is (= :button (first result)))
(is (= "btn btn--primary" (get-in result [1 :class])))
(is (= "btn btn-primary" (get-in result [1 :class])))
(is (= "Click me" (nth result 2)))))
(testing "disabled button has disabled attr"
@@ -64,7 +64,7 @@
(testing "extra class gets appended"
(let [result (button/button {:variant :primary :class "extra"} "Test")]
(is (= "btn btn--primary extra" (get-in result [1 :class])))))
(is (= "btn btn-primary extra" (get-in result [1 :class])))))
(testing "extra attrs get merged"
(let [result (button/button {:variant :primary :attrs {:id "my-btn"}} "Test")]