mirror of
https://github.com/penpot/penpot.git
synced 2025-07-09 18:27:17 +02:00
7dd61968b5
* ✨ Allow token applying for supported shape types only * 🐛 Remove x/y attribute keys from spacing token * ✨ Shape specific context-menu * ✨ Only apply tokens to supported shapes when doing multi selection apply * ✨ Handle groups not supported by tokens yet * 🐛 Fix outdated tests * ♻️ Commentary * ✨ Add helper functions for attribute applicability checks * ♻️ Groups don't have own attributes * ♻️ Remove unused function * ♻️ Move attribute logic to common.types.token
203 lines
11 KiB
Clojure
203 lines
11 KiB
Clojure
(ns frontend-tests.tokens.context-menu-test
|
|
(:require
|
|
[app.common.test-helpers.compositions :as tho]
|
|
[app.common.test-helpers.files :as thf]
|
|
[app.common.test-helpers.shapes :as ths]
|
|
[app.common.test-helpers.tokens :as tht]
|
|
[app.common.types.tokens-lib :as ctob]
|
|
[app.main.ui.workspace.tokens.management.context-menu :as wtcm]
|
|
[clojure.test :as t]))
|
|
|
|
(defn setup-file []
|
|
(-> (thf/sample-file :file-1)
|
|
(tht/add-tokens-lib)
|
|
(tht/update-tokens-lib #(-> %
|
|
(ctob/add-set (ctob/make-token-set :name "test-token-set"))
|
|
(ctob/add-theme (ctob/make-token-theme :name "test-theme"
|
|
:sets #{"test-token-set"}))
|
|
(ctob/set-active-themes #{"/test-theme"})
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-radius"
|
|
:type :border-radius
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-color"
|
|
:type :color
|
|
:value "red"))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-spacing"
|
|
:type :spacing
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-sizing"
|
|
:type :sizing
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-rotation"
|
|
:type :rotation
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-opacity"
|
|
:type :opacity
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-dimensions"
|
|
:type :dimensions
|
|
:value 10))
|
|
(ctob/add-token-in-set "test-token-set"
|
|
(ctob/make-token :name "token-number"
|
|
:type :number
|
|
:value 10))))
|
|
;; app.main.data.workspace.tokens.application/generic-attributes
|
|
(tho/add-group :group1)
|
|
;; app.main.data.workspace.tokens.application/rect-attributes
|
|
(tho/add-rect :rect1)
|
|
;; app.main.data.workspace.tokens.application/frame-attributes
|
|
(tho/add-frame :frame1)
|
|
;; app.main.data.workspace.tokens.application/text-attributes
|
|
(tho/add-text :text1 "Hello World!")))
|
|
|
|
(defn token-menu-actions [shape-names token-name]
|
|
(let [file (setup-file)
|
|
token-set "test-token-set"
|
|
token (tht/get-token file token-set token-name)
|
|
selected-shapes (map #(ths/get-shape file %) shape-names)]
|
|
(wtcm/menu-actions
|
|
{:token token
|
|
:selected-shapes selected-shapes})))
|
|
|
|
(defn token-menu-action-labels [actions]
|
|
(mapv #(if (keyword? %) % (:title %)) actions))
|
|
|
|
(t/deftest border-radius-items
|
|
(t/testing "shows radius items for selection of supported shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1] "token-radius")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["All" "Top Right" "Bottom Right" "Top Left" "Bottom Left"]))))
|
|
|
|
(t/testing "shows radius items for mixed selection"
|
|
(let [actions (token-menu-actions [:frame1 :text1] "token-radius")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["All" "Top Right" "Bottom Right" "Top Left" "Bottom Left"]))))
|
|
|
|
(t/testing "hides radius for unrelated shapes"
|
|
(let [actions (token-menu-actions [:text1 :group1] "token-radius")]
|
|
(t/is (empty? actions)))))
|
|
|
|
(t/deftest color-items
|
|
(t/testing "shows color items for selection of all shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1 :text1] "token-color")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["Fill" "Stroke"])))))
|
|
|
|
(t/deftest spacing-items
|
|
(t/testing "shows spacing items for selection of supported shapes"
|
|
(let [actions (token-menu-actions [:frame1] "token-spacing")
|
|
action-titles (mapv #(if (keyword? %) % (:title %)) actions)]
|
|
(t/is (= action-titles ["All" "Column Gap" "Row Gap"
|
|
:separator
|
|
"All" "Horizontal" "Vertical"
|
|
"Padding top" "Padding right" "Padding bottom" "Padding left"
|
|
:separator
|
|
"All" "Horizontal" "Vertical"
|
|
"Margin top" "Margin right" "Margin bottom" "Margin left"]))))
|
|
|
|
(t/testing "shows radius items for mixed selection"
|
|
(let [actions (token-menu-actions [:frame1 :text1] "token-spacing")
|
|
action-titles (mapv #(if (keyword? %) % (:title %)) actions)]
|
|
(t/is (= action-titles ["All" "Column Gap" "Row Gap"
|
|
:separator
|
|
"All" "Horizontal" "Vertical"
|
|
"Padding top" "Padding right" "Padding bottom" "Padding left"
|
|
:separator
|
|
"All" "Horizontal" "Vertical"
|
|
"Margin top" "Margin right" "Margin bottom" "Margin left"]))))
|
|
|
|
(t/testing "hides radius for unrelated shapes"
|
|
(let [actions (token-menu-actions [:text1 :group1] "token-radius")]
|
|
(t/is (empty? actions)))))
|
|
|
|
(t/deftest sizing-items
|
|
(t/testing "shows sizing items for selection of all shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1 :text1] "token-sizing")
|
|
action-titles (mapv #(if (keyword? %) % (:title %)) actions)]
|
|
|
|
(t/is (= action-titles ["All" "Width" "Height"
|
|
:separator
|
|
"All" "Min Width" "Min Height"
|
|
:separator
|
|
"All" "Max Width" "Max Height"]))))
|
|
|
|
(t/testing "shows no sizing items for groups"
|
|
(let [actions (token-menu-actions [:group1] "token-sizing")]
|
|
(t/is (nil? actions)))))
|
|
|
|
(t/deftest rotation-items
|
|
(t/testing "shows color items for selection of all shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1 :text1] "token-rotation")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["Rotation"])))))
|
|
|
|
(t/deftest dimensions-items
|
|
(t/testing "shows `rect-attributes` dimension items for rect"
|
|
(let [actions (token-menu-actions [:rect1] "token-dimensions")
|
|
action-titles (mapv #(if (keyword? %) % (select-keys % [:title :submenu])) actions)]
|
|
(t/is (= action-titles [{:title "Sizing", :submenu :sizing}
|
|
:separator
|
|
{:title "Border Radius", :submenu :border-radius}
|
|
:separator
|
|
{:title "Stroke Width"}
|
|
:separator
|
|
{:title "X"}
|
|
{:title "Y"}]))))
|
|
|
|
(t/testing "shows all attribute dimension items for frame"
|
|
(let [actions (token-menu-actions [:frame1] "token-dimensions")
|
|
action-titles (mapv #(if (keyword? %) % (select-keys % [:title :submenu])) actions)]
|
|
(t/is (= action-titles [{:title "Sizing", :submenu :sizing}
|
|
{:title "Spacing", :submenu :spacing}
|
|
:separator
|
|
{:title "Border Radius", :submenu :border-radius}
|
|
:separator
|
|
{:title "Stroke Width"}
|
|
:separator
|
|
{:title "X"}
|
|
{:title "Y"}]))))
|
|
|
|
(t/testing "shows `text-attributes` dimension items for text"
|
|
(let [actions (token-menu-actions [:text1] "token-dimensions")
|
|
action-titles (mapv #(if (keyword? %) % (select-keys % [:title :submenu])) actions)]
|
|
(t/is (= action-titles [{:title "Sizing", :submenu :sizing}
|
|
:separator
|
|
{:title "Stroke Width"}
|
|
:separator
|
|
{:title "X"}
|
|
{:title "Y"}]))))
|
|
|
|
(t/testing "not attributes for groups as they are not supported yet"
|
|
(let [actions (token-menu-actions [:group1] "token-dimensions")]
|
|
(t/is (nil? actions)))))
|
|
|
|
(t/deftest number-items
|
|
(t/testing "shows all number attribute items for text"
|
|
(let [actions (token-menu-actions [:text1] "token-number")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["Rotation" "Line Height"]))))
|
|
|
|
(t/testing "shows non text attributes for non text shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1] "token-number")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["Rotation"])))))
|
|
|
|
(t/deftest stroke-width-items
|
|
(t/testing "shows stroke width items for all shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1 :text1] "token-dimensions")
|
|
stroke-width-action (first (filter #(and (map? %) (= (:title %) "Stroke Width")) actions))]
|
|
(t/is (some? stroke-width-action))
|
|
(t/is (= (:title stroke-width-action) "Stroke Width")))))
|
|
|
|
(t/deftest opacity-items
|
|
(t/testing "shows opacity items for all shapes"
|
|
(let [actions (token-menu-actions [:frame1 :rect1 :group1 :text1] "token-opacity")
|
|
action-titles (mapv :title actions)]
|
|
(t/is (= action-titles ["Opacity"])))))
|