Change drag component to instantiate on enter the viewport

This commit is contained in:
alonso.torres 2024-01-30 14:55:55 +01:00
parent f75da999dc
commit 497b581576
9 changed files with 121 additions and 67 deletions

View file

@ -50,13 +50,6 @@
(fn []
(st/emit! (dsc/pop-shortcuts key))))))
(defn invisible-image
[]
(let [img (js/Image.)
imd "data:image/gif;base64,R0lGODlhAQABAIAAAAUEBAAAACwAAAAAAQABAAACAkQBADs="]
(set! (.-src img) imd)
img))
(defn- set-timer
[state ms func]
(assoc state :timer (ts/schedule ms func)))
@ -128,7 +121,7 @@
(do
(dom/stop-propagation event)
(dnd/set-data! event data-type data)
(dnd/set-drag-image! event (invisible-image))
(dnd/set-drag-image! event (dnd/invisible-image))
(dnd/set-allowed-effect! event "move")
(when (fn? on-drag)
(on-drag data)))))