Add DataTransfer.setDragImage

CHANGELOG.md

@@ -10,6 +10,7 @@ New features:
 - Added `languages` value for `Navigator` (#59 by @toastal)
 - Added `HTMLHtmlElement` module and `documentElement` function `HTMLDocument` (#60 by @toastal)
 - Added `onLine` value for `Navigator` (#61 by @toastal)
+- Added `setDragImage` function for `DataTransfer` (#65 by @ajarista)
 
 Bugfixes:
 

src/Web/HTML/Event/DataTransfer.js

@@ -26,6 +26,18 @@ exports._setData = function (format) {
   };
 };
 
+exports._setDragImage = function (dataTransfer) {
+  return function (image) {
+    return function (x) {
+      return function (y) {
+        return function () {
+          return dataTransfer.setDragImage(image, x, y);
+        };
+      };
+    };
+  };
+};
+
 exports._dropEffect = function (dataTransfer) {
   return function () {
     return dataTransfer.dropEffect;

src/Web/HTML/Event/DataTransfer.purs

@@ -4,6 +4,7 @@ module Web.HTML.Event.DataTransfer
   , types
   , getData
   , setData
+  , setDragImage
   , DropEffect(..)
   , dropEffect
   , setDropEffect
@@ -15,6 +16,7 @@ import Data.Maybe (Maybe)
 import Data.MediaType (MediaType(..))
 import Data.Nullable (Nullable, toMaybe)
 import Effect (Effect)
+import Web.DOM.Element (Element)
 import Web.File.FileList (FileList)
 
 foreign import data DataTransfer :: Type
@@ -57,6 +59,13 @@ setData
   -> Effect Unit
 setData (MediaType format) dat dt = _setData format dat dt
 
+foreign import _setDragImage :: DataTransfer -> Element -> Int -> Int -> Effect Unit
+
+-- | Sets the image to be used for dragging if a custom one is desired.
+-- | The image will typically be an <image> but could be any other *visible* element.
+-- | The x and y coordinates define where the image appears relative to the mouse.
+setDragImage :: DataTransfer -> Element -> Int -> Int -> Effect Unit
+setDragImage = _setDragImage
 foreign import _dropEffect :: DataTransfer -> Effect String
 
 data DropEffect = Copy | Link | Move | None