Merge branch 'master' into pm/add-data-transfer-api

Author: pete-murphy

CHANGELOG.md

@@ -8,13 +8,21 @@ Breaking changes:
 
 New features:
 - Added `items` function for `DataTransfer` and related types (`DataTransferItem`, `DataTransferItemList`) (#55 by @ptrfrncsmrph)
+
+Bugfixes:
+
+Other improvements:
+
+## [v3.2.0](https://github.com/purescript-web/purescript-web-html/releases/tag/v3.2.0) - 2021-10-06
+
+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:
-
-Other improvements:
+- Removed duplicated `cells` export from the FFI in HTMLTableRowElement.js (#58 by @thomashoneyman)
 
 ## [v3.1.0](https://github.com/purescript-web/purescript-web-html/releases/tag/v3.1.0) - 2021-05-06
 

src/Web/HTML/Event/DataTransfer.js

@@ -30,6 +30,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

@@ -5,6 +5,7 @@ module Web.HTML.Event.DataTransfer
   , types
   , getData
   , setData
+  , setDragImage
   , DropEffect(..)
   , dropEffect
   , setDropEffect
@@ -16,6 +17,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)
 import Web.HTML.Event.DataTransfer.DataTransferItem (DataTransferItemList)
 
@@ -63,6 +65,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

src/Web/HTML/HTMLTableRowElement.js

@@ -24,14 +24,6 @@ exports.cells = function (row) {
 
 // ----------------------------------------------------------------------------
 
-exports.cells = function (row) {
-  return function () {
-    return row.cells;
-  };
-};
-
-// ----------------------------------------------------------------------------
-
 exports.insertCellAt = function (index) {
   return function (row) {
     return function () {