3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-02 02:06:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

Extract token apply function

Browse source
This commit is contained in:
Florian Schroedl 2024-05-16 09:02:48 +02:00
parent 4e3af1407d
commit cdca00a986
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
frontend/src/app/main/data/tokens.cljs
View file

@ -55,15 +55,20 @@
(->> (map (fn [attr] [attr token-id]) attributes) (->> (map (fn [attr] [attr token-id]) attributes)
(into {}))) (into {})))
(defn apply-token-id [{:keys [shape token-id attributes]}]
(let [token (token-from-attributes token-id attributes)]
(toggle-or-apply-token shape token)))
(defn update-token-from-attributes (defn update-token-from-attributes
[{:keys [token-id shape-id attributes]}] [{:keys [token-id shape-id attributes]}]
(ptk/reify ::update-token-from-attributes (ptk/reify ::update-token-from-attributes
ptk/WatchEvent ptk/WatchEvent
(watch [_ state _] (watch [_ state _]
(let [shape (get-shape-from-state shape-id state) (let [shape (get-shape-from-state shape-id state)
token (token-from-attributes token-id attributes) applied-tokens (apply-token-id {:shape shape
next-applied-tokens (toggle-or-apply-token shape token)] :token-id token-id
(rx/of (update-shape shape-id {:applied-tokens next-applied-tokens})))))) :attributes attributes})]
(rx/of (update-shape shape-id {:applied-tokens applied-tokens}))))))
(defn add-token (defn add-token
[token] [token]