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

simplify duplicate token function

Browse source
This commit is contained in:
Akshay Gupta 2024-05-16 15:48:39 +05:30
parent e1ae3d55af
commit c44ac862f0
1 changed files with 5 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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