From cdca00a986ca154e99f05a2ec771e7f35a3d2736 Mon Sep 17 00:00:00 2001 From: Florian Schroedl Date: Thu, 16 May 2024 09:02:48 +0200 Subject: [PATCH] Extract token apply function --- frontend/src/app/main/data/tokens.cljs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/frontend/src/app/main/data/tokens.cljs b/frontend/src/app/main/data/tokens.cljs index 503941a8b..f04dd7ad7 100644 --- a/frontend/src/app/main/data/tokens.cljs +++ b/frontend/src/app/main/data/tokens.cljs @@ -55,15 +55,20 @@ (->> (map (fn [attr] [attr token-id]) attributes) (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 [{:keys [token-id shape-id attributes]}] (ptk/reify ::update-token-from-attributes ptk/WatchEvent (watch [_ state _] (let [shape (get-shape-from-state shape-id state) - token (token-from-attributes token-id attributes) - next-applied-tokens (toggle-or-apply-token shape token)] - (rx/of (update-shape shape-id {:applied-tokens next-applied-tokens})))))) + applied-tokens (apply-token-id {:shape shape + :token-id token-id + :attributes attributes})] + (rx/of (update-shape shape-id {:applied-tokens applied-tokens})))))) (defn add-token [token]