Merge pull request #82 from themoritz/clipboard

Add ClipboardEvent type

Author: garyb

src/DOM/Event/ClipboardEvent.js

@@ -0,0 +1,5 @@
+"use strict";
+
+exports.clipboardData = function (e) {
+  return e.clipboardData;
+};

src/DOM/Event/ClipboardEvent.purs

@@ -0,0 +1,17 @@
+module DOM.Event.ClipboardEvent
+  ( module T
+  , module DT
+  , eventToClipboardEvent
+  , clipboardData
+  ) where
+
+import Prelude
+import DOM.Event.Types (Event, ClipboardEvent, readClipboardEvent)
+import DOM.Event.Types (ClipboardEvent, clipboardEventToEvent, readClipboardEvent) as T
+import DOM.HTML.Event.DataTransfer (DataTransfer) as DT
+import Data.Foreign (F, toForeign)
+
+eventToClipboardEvent :: Event -> F ClipboardEvent
+eventToClipboardEvent = readClipboardEvent <<< toForeign
+
+foreign import clipboardData :: ClipboardEvent -> DT.DataTransfer

src/DOM/Event/Types.purs

@@ -33,6 +33,9 @@ module DOM.Event.Types
   , ProgressEvent
   , progressEventToEvent
   , readProgressEvent
+  , ClipboardEvent
+  , clipboardEventToEvent
+  , readClipboardEvent
   ) where
 
 import Prelude
@@ -176,3 +179,14 @@ readProgressEvent = unsafeReadTagged "ProgressEvent"
 
 instance isForeignProgressEvent :: IsForeign ProgressEvent where
   read = readProgressEvent
+
+foreign import data ClipboardEvent :: *
+
+clipboardEventToEvent :: ClipboardEvent -> Event
+clipboardEventToEvent = U.unsafeCoerce
+
+readClipboardEvent :: Foreign -> F ClipboardEvent
+readClipboardEvent = unsafeReadTagged "ClipboardEvent"
+
+instance isForeignClipboardEvent :: IsForeign ClipboardEvent where
+  read = readClipboardEvent

src/DOM/HTML/Event/DataTransfer.js

@@ -0,0 +1,27 @@
+"use strict";
+
+exports.filesNullable = function (dataTransfer) {
+  return dataTransfer.files;
+};
+
+exports.types = function (dataTransfer) {
+  return dataTransfer.types;
+};
+
+exports.getDataImpl = function (format) {
+  return function (dataTransfer) {
+    return function () {
+      return dataTransfer.getData(format);
+    };
+  };
+};
+
+exports.setDataImpl = function (format) {
+  return function (data) {
+    return function (dataTransfer) {
+      return function () {
+        return dataTransfer.setData(format, data);
+      };
+    };
+  };
+};

src/DOM/HTML/Event/DataTransfer.purs

@@ -0,0 +1,64 @@
+module DOM.HTML.Event.DataTransfer
+  ( DataTransfer
+  , files
+  , filesNullable
+  , types
+  , getData
+  , setData
+  ) where
+
+import Prelude
+import Control.Monad.Eff (Eff)
+import DOM (DOM)
+import DOM.File.Types (FileList)
+import Data.Maybe (Maybe)
+import Data.MediaType (MediaType(..))
+import Data.Nullable (Nullable, toMaybe)
+
+foreign import data DataTransfer :: *
+
+-- | Contains a list of all the local files available on the data transfer.
+-- | Empty if the drag operation doesn't involve dragging files.
+-- |
+-- | It's possible that a drag operation may have null files, instead of an
+-- | empty file list. In these cases Nothing is returned.
+files :: DataTransfer -> Maybe FileList
+files = toMaybe <$> filesNullable
+
+foreign import filesNullable :: DataTransfer -> Nullable FileList
+
+-- | 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
+
+foreign import getDataImpl
+  :: forall eff
+   . String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) String
+
+-- | Retrieves the data for a given media type, or an empty string if data for
+-- | that type does not exist or the data transfer object contains no data.
+getData
+  :: forall eff. MediaType -> DataTransfer -> Eff (dom :: DOM | eff) String
+getData (MediaType format) dt = getDataImpl format dt
+
+foreign import setDataImpl
+  :: forall eff
+   . String
+  -> String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) Unit
+
+-- | Sets the data transfer object's data for a given media format.
+-- |
+-- | Example:
+-- |
+-- |     setData textPlain "Foo" dataTransfer
+setData
+  :: forall eff
+   . MediaType
+  -> String
+  -> DataTransfer
+  -> Eff (dom :: DOM | eff) Unit
+setData (MediaType format) dat dt = setDataImpl format dat dt

src/DOM/HTML/Event/DragEvent/DataTransfer.js

@@ -1,27 +1,5 @@
 module DOM.HTML.Event.DragEvent.DataTransfer
-  ( DataTransfer
-  , files
-  , filesNullable
-  , types
+  ( module DataTransfer
   ) where
 
-import Prelude
-import DOM.File.Types (FileList)
-import Data.Maybe (Maybe)
-import Data.Nullable (Nullable, toMaybe)
-
-foreign import data DataTransfer :: *
-
--- | Contains a list of all the local files available on the data transfer.
--- | Empty if the drag operation doesn't involve dragging files.
--- |
--- | It's possible that a drag operation may have null files, instead of an
--- | empty file list. In these cases Nothing is returned.
-files :: DataTransfer -> Maybe FileList
-files = toMaybe <$> filesNullable
-
-foreign import filesNullable :: DataTransfer -> Nullable FileList
-
--- | 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
+import DOM.HTML.Event.DataTransfer as DataTransfer

src/DOM/HTML/Event/DragEvent/DataTransfer.purs

@@ -41,6 +41,12 @@ compositionupdate = EventType "compositionupdate"
 contextmenu :: EventType
 contextmenu = EventType "contextmenu"
 
+copy :: EventType
+copy = EventType "copy"
+
+cut :: EventType
+cut = EventType "cut"
+
 dblclick :: EventType
 dblclick = EventType "dblclick"
 
@@ -134,6 +140,9 @@ pagehide = EventType "pagehide"
 pageshow :: EventType
 pageshow = EventType "pageshow"
 
+paste :: EventType
+paste = EventType "paste"
+
 pause :: EventType
 pause = EventType "pause"