♻️ Rename custom data types in drag&drop

This commit is contained in:
Andrés Moya 2021-03-15 13:30:30 +01:00 committed by Andrey Antukh
parent 374653d9f6
commit 797ba3ef9b
5 changed files with 16 additions and 16 deletions

View file

@ -55,11 +55,11 @@
(defn set-data!
([e data]
(set-data! e "app/data" data))
(set-data! e "penpot/data" data))
([e data-type data]
(let [dt (.-dataTransfer e)]
(if (or (str/starts-with? data-type "application")
(str/starts-with? data-type "app"))
(str/starts-with? data-type "penpot"))
(.setData dt data-type (t/encode data))
(.setData dt data-type data))
e)))
@ -100,10 +100,10 @@
(defn get-data
([e]
(get-data e "app/data"))
(get-data e "penpot/data"))
([e data-type]
(let [dt (.-dataTransfer e)]
(if (or (str/starts-with? data-type "app")
(if (or (str/starts-with? data-type "penpot")
(= data-type "application/json"))
(t/decode (.getData dt data-type))
(.getData dt data-type)))))