Add DataTransferItem and related API

Author: pete-murphy

src/Web/HTML/Event/DataTransfer.js

@@ -4,6 +4,10 @@ exports._files = function (dataTransfer) {
   return dataTransfer.files;
 };
 
+exports.items = function (dataTransfer) {
+  return dataTransfer.items;
+};
+
 exports.types = function (dataTransfer) {
   return dataTransfer.types;
 };

src/Web/HTML/Event/DataTransfer.purs

@@ -16,6 +16,7 @@ import Data.MediaType (MediaType(..))
 import Data.Nullable (Nullable, toMaybe)
 import Effect (Effect)
 import Web.File.FileList (FileList)
+import Web.HTML.Event.DataTransfer.DataTransferItem (DataTransferItemList)
 
 foreign import data DataTransfer :: Type
 
@@ -29,6 +30,10 @@ files = toMaybe <$> _files
 
 foreign import _files :: DataTransfer -> Nullable FileList
 
+-- | Returns a `DataTransferItemList` object which is a list of all of the drag
+-- | data.
+foreign import items :: DataTransfer -> DataTransferItemList
+
 -- | Returns an array of data formats used in the drag operation.
 -- | If the drag operation included no data, then the array is empty.
 foreign import types :: DataTransfer -> Array String

src/Web/HTML/Event/DataTransfer/DataTransferItem.js

@@ -0,0 +1,19 @@
+"use strict";
+
+exports.kind = function (dataTransferItem) {
+  return dataTransferItem.kind;
+};
+
+exports.type_ = function (dataTransferItem) {
+  return dataTransferItem.type;
+};
+
+exports._dataTransferItem = function (index) {
+  return function (dataTransferItemList) {
+    return dataTransferItemList[index];
+  };
+};
+
+exports._length = function (dataTransferItemList) {
+  return dataTransferItemList.length;
+};

src/Web/HTML/Event/DataTransfer/DataTransferItem.purs

@@ -0,0 +1,35 @@
+module Web.HTML.Event.DataTransfer.DataTransferItem
+  ( DataTransferItem
+  , DataTransferItemList
+  ) where
+
+import Prelude
+import Data.Maybe (Maybe)
+import Data.Nullable (Nullable)
+import Data.Nullable as Nullable
+
+-- | Returns the drag data item kind, which is either "string" or "file".
+foreign import kind :: DataTransferItem -> String
+
+-- | A Unicode string giving the type or format of the data, generally given by
+-- | a MIME type. Some values that are not MIME types are special-cased for
+-- | legacy reasons. The API does not enforce the use of MIME types; other
+-- | values can be used as well. In all cases, however, the values are all
+-- | converted to ASCII lowercase by the API.
+-- | There is a limit of one text item per item type string.
+foreign import type_ :: DataTransferItem -> String
+
+-- | Access an item in the `DataTransferItemList` by index.
+dataTransferItem :: Int -> DataTransferItemList -> Maybe DataTransferItem
+dataTransferItem = map Nullable.toMaybe <$> _dataTransferItem
+
+foreign import _dataTransferItem :: Int -> DataTransferItemList -> Nullable DataTransferItem
+
+length :: DataTransferItemList -> Int
+length = _length
+
+foreign import _length :: DataTransferItemList -> Int
+
+foreign import data DataTransferItem :: Type
+
+foreign import data DataTransferItemList :: Type