From e1ae3d55afb5b159c9527f395b075c64908337fb Mon Sep 17 00:00:00 2001
From: Akshay Gupta <gravity.akshay@gmail.com>
Date: Thu, 16 May 2024 14:08:11 +0530
Subject: [PATCH 1/2] ad functionality to duplicate token from context menu

---
 frontend/src/app/main/data/tokens.cljs         | 18 ++++++++++++++++++
 .../main/ui/workspace/tokens/context_menu.cljs |  2 +-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/frontend/src/app/main/data/tokens.cljs b/frontend/src/app/main/data/tokens.cljs
index 503941a8bc..824edbf7b0 100644
--- a/frontend/src/app/main/data/tokens.cljs
+++ b/frontend/src/app/main/data/tokens.cljs
@@ -12,9 +12,12 @@
    [app.common.types.shape :as cts]
    [app.common.uuid :as uuid]
    [app.main.data.workspace.changes :as dch]
+   [app.main.refs :as refs]
+   [app.main.store :as st]
    [app.main.ui.workspace.tokens.common :refer [workspace-shapes]]
    [beicon.v2.core :as rx]
    [clojure.data :as data]
+   [cuerdas.core :as str]
    [potok.v2.core :as ptk]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -65,6 +68,11 @@
             next-applied-tokens (toggle-or-apply-token shape token)]
         (rx/of (update-shape shape-id {:applied-tokens next-applied-tokens}))))))
 
+(defn get-token-data-from-token-id
+  [id]
+  (let [workspace-data (deref refs/workspace-data)]
+    (get (:tokens workspace-data) id)))        
+
 (defn add-token
   [token]
   (let [token (update token :id #(or % (uuid/next)))]
@@ -87,6 +95,16 @@
                         (pcb/delete-token id))]
         (rx/of (dch/commit-changes changes))))))
 
+(defn duplicate-token
+  [id]
+  (let [token-data (get-token-data-from-token-id id)
+        duplicate-token-name (str/concat (:name token-data) "-copy")
+        duplicate-token {:name duplicate-token-name
+                         :value (:value token-data)
+                         :type (:type token-data)
+                         :description (or (:description token-data) "")}]
+    (st/emit! (add-token duplicate-token))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; TEMP (Move to test)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/frontend/src/app/main/ui/workspace/tokens/context_menu.cljs b/frontend/src/app/main/ui/workspace/tokens/context_menu.cljs
index ec4fcb4c25..c6825f621d 100644
--- a/frontend/src/app/main/ui/workspace/tokens/context_menu.cljs
+++ b/frontend/src/app/main/ui/workspace/tokens/context_menu.cljs
@@ -29,7 +29,7 @@
 (mf/defc token-pill-context-menu
   [{:keys [token-id]}]
   (let [do-delete #(st/emit! (dt/delete-token token-id))
-        do-duplicate #(js/console.log "Duplicating")
+        do-duplicate #(st/emit! (dt/duplicate-token token-id))
         do-edit #(js/console.log "Editing")]
     [:*
      [:& menu-entry {:title "Delete Token" :on-click do-delete}]

From c44ac862f019c70e40e74619cbcccbf43741b08c Mon Sep 17 00:00:00 2001
From: Akshay Gupta <gravity.akshay@gmail.com>
Date: Thu, 16 May 2024 15:48:39 +0530
Subject: [PATCH 2/2] simplify duplicate token function

---
 frontend/src/app/main/data/tokens.cljs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/frontend/src/app/main/data/tokens.cljs b/frontend/src/app/main/data/tokens.cljs
index 824edbf7b0..b406a44725 100644
--- a/frontend/src/app/main/data/tokens.cljs
+++ b/frontend/src/app/main/data/tokens.cljs
@@ -13,7 +13,6 @@
    [app.common.uuid :as uuid]
    [app.main.data.workspace.changes :as dch]
    [app.main.refs :as refs]
-   [app.main.store :as st]
    [app.main.ui.workspace.tokens.common :refer [workspace-shapes]]
    [beicon.v2.core :as rx]
    [clojure.data :as data]
@@ -71,7 +70,7 @@
 (defn get-token-data-from-token-id
   [id]
   (let [workspace-data (deref refs/workspace-data)]
-    (get (:tokens workspace-data) id)))        
+    (get (:tokens workspace-data) id)))
 
 (defn add-token
   [token]
@@ -97,13 +96,10 @@
 
 (defn duplicate-token
   [id]
-  (let [token-data (get-token-data-from-token-id id)
-        duplicate-token-name (str/concat (:name token-data) "-copy")
-        duplicate-token {:name duplicate-token-name
-                         :value (:value token-data)
-                         :type (:type token-data)
-                         :description (or (:description token-data) "")}]
-    (st/emit! (add-token duplicate-token))))
+  (let [new-token (-> (get-token-data-from-token-id id)
+                      (dissoc :id)
+                      (update :name #(str/concat % "-copy")))]
+    (add-token new-token)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; TEMP (Move to test)