From 7e7203eb7cd1e494fd5c497ba5d439597b0868f4 Mon Sep 17 00:00:00 2001
From: Florian Schroedl <flo.schroedl@gmail.com>
Date: Fri, 23 Aug 2024 16:44:11 +0200
Subject: [PATCH] Allow passing custom functions

---
 .../ui/workspace/tokens/modals/themes.cljs    |  9 ++++++---
 .../app/main/ui/workspace/tokens/sets.cljs    | 19 ++++++++++++-------
 2 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/frontend/src/app/main/ui/workspace/tokens/modals/themes.cljs b/frontend/src/app/main/ui/workspace/tokens/modals/themes.cljs
index eac37fe8e..7d9467bb8 100644
--- a/frontend/src/app/main/ui/workspace/tokens/modals/themes.cljs
+++ b/frontend/src/app/main/ui/workspace/tokens/modals/themes.cljs
@@ -111,9 +111,12 @@
     [:div {:class (stl/css :sets-list-wrapper)}
      [:& wts/controlled-sets-list
       {:token-sets token-sets
-       :selected-token-set-id selected-token-set-id
-       :token-set-selected? token-set-selected?
-       :token-set-active? token-set-active?}]]))
+       :token-set-selected? (constantly false)
+       :token-set-active? token-set-active?
+       :on-select (fn [id]
+                    (js/console.log "id" id))
+       :on-toggle (fn [id]
+                    (js/console.log "id" id))}]]))
 
 (mf/defc themes
   [{:keys [] :as _args}]
diff --git a/frontend/src/app/main/ui/workspace/tokens/sets.cljs b/frontend/src/app/main/ui/workspace/tokens/sets.cljs
index fb1780469..00d8da654 100644
--- a/frontend/src/app/main/ui/workspace/tokens/sets.cljs
+++ b/frontend/src/app/main/ui/workspace/tokens/sets.cljs
@@ -17,11 +17,10 @@
 (def ^:private chevron-icon
   (i/icon-xref :arrow (stl/css :chevron-icon)))
 
-(defn on-toggle-token-set-click [id event]
-  (dom/stop-propagation event)
+(defn on-toggle-token-set-click [id]
   (st/emit! (wdt/toggle-token-set id)))
 
-(defn on-select-token-set-click [id event]
+(defn on-select-token-set-click [id]
   (st/emit! (wdt/set-selected-token-set-id id)))
 
 (defn on-delete-token-set-click [id event]
@@ -29,7 +28,7 @@
   (st/emit! (wdt/delete-token-set id)))
 
 (mf/defc sets-tree
-  [{:keys [token-set token-set-active? token-set-selected?] :as _props}]
+  [{:keys [token-set token-set-active? token-set-selected? on-select on-toggle] :as _props}]
   (let [{:keys [id name _children]} token-set
         selected? (and set? (token-set-selected? id))
         visible? (token-set-active? id)
@@ -37,7 +36,9 @@
         set? true #_(= type :set)
         group? false #_(= type :group)]
     [:div {:class (stl/css :set-item-container)
-           :on-click #(on-select-token-set-click id %)}
+           :on-click (fn [event]
+                       (dom/stop-propagation event)
+                       (on-select id))}
      [:div {:class (stl/css-case :set-item-group group?
                                  :set-item-set set?
                                  :selected-set selected?)}
@@ -54,7 +55,9 @@
         i/delete]]
       (when set?
         [:span {:class (stl/css :action-btn)
-                :on-click #(on-toggle-token-set-click id %)}
+                :on-click (fn [event]
+                            (dom/stop-propagation event)
+                            (on-toggle id))}
          (if visible? i/shown i/hide)])]
      #_(when (and children (not @collapsed?))
          [:div {:class (stl/css :set-children)}
@@ -90,4 +93,6 @@
      {:token-sets token-sets
       :selected-token-set-id selected-token-set-id
       :token-set-selected? token-set-selected?
-      :token-set-active? token-set-active?}]))
+      :token-set-active? token-set-active?
+      :on-select on-select-token-set-click
+      :on-toggle on-toggle-token-set-click}]))