0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-21 14:12:36 -05:00

Restore apply overwrite

This commit is contained in:
Florian Schroedl 2024-10-02 17:02:10 +02:00
parent f9a49f82f8
commit 1097c1f282

View file

@ -102,39 +102,39 @@
(t/is (= (:rx rect-1') 24)) (t/is (= (:rx rect-1') 24))
(t/is (= (:ry rect-1') 24)))))))))) (t/is (= (:ry rect-1') 24))))))))))
;; (t/deftest test-apply-token-overwrite (t/deftest test-apply-token-overwrite
;; (t/testing "removes old token attributes and applies only single attribute" (t/testing "removes old token attributes and applies only single attribute"
;; (t/async (t/async
;; done done
;; (let [file (setup-file-with-tokens) (let [file (setup-file-with-tokens)
;; store (ths/setup-store file) store (ths/setup-store file)
;; rect-1 (cths/get-shape file :rect-1) rect-1 (cths/get-shape file :rect-1)
;; events [;; Apply `:token-1` to all border radius attributes events [;; Apply "borderRadius.sm" to all border radius attributes
;; (wtch/apply-token {:attributes #{:rx :ry :r1 :r2 :r3 :r4} (wtch/apply-token {:attributes #{:rx :ry :r1 :r2 :r3 :r4}
;; :token (toht/get-token file :token-1) :token (toht/get-token file "borderRadius.sm")
;; :shape-ids [(:id rect-1)] :shape-ids [(:id rect-1)]
;; :on-update-shape wtch/update-shape-radius-all}) :on-update-shape wtch/update-shape-radius-all})
;; ;; Apply single `:r1` attribute to same shape ;; Apply single `:r1` attribute to same shape
;; ;; while removing other attributes from the border-radius set ;; while removing other attributes from the border-radius set
;; ;; but keep `:r4` for testing purposes ;; but keep `:r4` for testing purposes
;; (wtch/apply-token {:attributes #{:r1} (wtch/apply-token {:attributes #{:r1}
;; :attributes-to-remove #{:rx :ry :r1 :r2 :r3} :attributes-to-remove #{:rx :ry :r1 :r2 :r3}
;; :token (toht/get-token file :token-2) :token (toht/get-token file "borderRadius.md")
;; :shape-ids [(:id rect-1)] :shape-ids [(:id rect-1)]
;; :on-update-shape wtch/update-shape-radius-all})]] :on-update-shape wtch/update-shape-radius-all})]]
;; (tohs/run-store-async (tohs/run-store-async
;; store done events store done events
;; (fn [new-state] (fn [new-state]
;; (let [file' (ths/get-file-from-store new-state) (let [file' (ths/get-file-from-store new-state)
;; token-1' (toht/get-token file' :token-1) token-sm (toht/get-token file' "borderRadius.sm")
;; token-2' (toht/get-token file' :token-2) token-md (toht/get-token file' "borderRadius.md")
;; rect-1' (cths/get-shape file' :rect-1)] rect-1' (cths/get-shape file' :rect-1)]
;; (t/testing "other border-radius attributes got removed" (t/testing "other border-radius attributes got removed"
;; (t/is (nil? (:rx (:applied-tokens rect-1'))))) (t/is (nil? (:rx (:applied-tokens rect-1')))))
;; (t/testing "r1 got applied with :token-2" (t/testing "r1 got applied with borderRadius.md"
;; (t/is (= (:r1 (:applied-tokens rect-1')) (wtt/token-identifier token-2')))) (t/is (= (:r1 (:applied-tokens rect-1')) (:name token-md))))
;; (t/testing "while :r4 was kept" (t/testing "while :r4 was kept with borderRadius.sm"
;; (t/is (= (:r4 (:applied-tokens rect-1')) (wtt/token-identifier token-1')))))))))));))))))))))) (t/is (= (:r4 (:applied-tokens rect-1')) (:name token-sm)))))))))))
;; (t/deftest test-apply-dimensions ;; (t/deftest test-apply-dimensions
;; (t/testing "applies dimensions token and updates the shapes width and height" ;; (t/testing "applies dimensions token and updates the shapes width and height"