Add events and types

Author: garyb

src/Web/HTML/Event/DataTransfer.js

@@ -0,0 +1,41 @@
+"use strict";
+
+exports._files = function (dataTransfer) {
+  return dataTransfer.files;
+};
+
+exports.types = function (dataTransfer) {
+  return dataTransfer.types;
+};
+
+exports._getData = function (format) {
+  return function (dataTransfer) {
+    return function () {
+      return dataTransfer.getData(format);
+    };
+  };
+};
+
+exports._setData = function (format) {
+  return function (data) {
+    return function (dataTransfer) {
+      return function () {
+        return dataTransfer.setData(format, data);
+      };
+    };
+  };
+};
+
+exports._dropEffect = function (dataTransfer) {
+  return function () {
+    return dataTransfer.dropEffect;
+  };
+};
+
+exports._setDropEffect = function (e) {
+  return function (dataTransfer) {
+    return function () {
+      dataTransfer.dropEffect = e;
+    };
+  };
+};

src/Web/HTML/Event/DataTransfer.purs

@@ -0,0 +1,86 @@
+module Web.HTML.Event.DataTransfer
+  ( DataTransfer
+  , files
+  , types
+  , getData
+  , setData
+  , DropEffect(..)
+  , dropEffect
+  , setDropEffect
+  ) where
+
+import Prelude
+
+import Data.Maybe (Maybe)
+import Data.MediaType (MediaType(..))
+import Data.Nullable (Nullable, toMaybe)
+import Effect (Effect)
+import Partial.Unsafe (unsafeCrashWith)
+import Web.File.FileList (FileList)
+
+foreign import data DataTransfer :: Type
+
+-- | 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 <$> _files
+
+foreign import _files :: 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 _getData
+  :: String
+  -> DataTransfer
+  -> Effect 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 :: MediaType -> DataTransfer -> Effect String
+getData (MediaType format) dt = _getData format dt
+
+foreign import _setData
+  :: String
+  -> String
+  -> DataTransfer
+  -> Effect Unit
+
+-- | Sets the data transfer object's data for a given media format.
+setData
+  :: MediaType
+  -> String
+  -> DataTransfer
+  -> Effect Unit
+setData (MediaType format) dat dt = _setData format dat dt
+
+foreign import _dropEffect :: DataTransfer -> Effect String
+
+data DropEffect = Copy | Link | Move | None
+
+derive instance eqDropEffect :: Eq DropEffect
+derive instance ordDropEffect :: Ord DropEffect
+
+-- | Gets the data transfer object's drop effect.
+dropEffect :: DataTransfer -> Effect DropEffect
+dropEffect dt =
+  _dropEffect dt <#> case _ of
+    "copy" -> Copy
+    "link" -> Link
+    "move" -> Move
+    "none" -> None
+    de -> unsafeCrashWith ("Found unexpected 'dropEffect' value: " <> de)
+
+foreign import _setDropEffect :: String -> DataTransfer -> Effect Unit
+
+-- | Sets the data transfer object's drop effect.
+setDropEffect :: DropEffect -> DataTransfer -> Effect Unit
+setDropEffect de = _setDropEffect case de of
+  Copy -> "copy"
+  Link -> "link"
+  Move -> "move"
+  None -> "none"

src/Web/HTML/Event/DragEvent.js

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

src/Web/HTML/Event/DragEvent.purs

@@ -0,0 +1,16 @@
+module Web.HTML.Event.DragEvent where
+
+import Foreign (Foreign, F, unsafeReadTagged)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Types (Event)
+import Web.HTML.Event.DataTransfer (DataTransfer)
+
+foreign import data DragEvent :: Type
+
+dragEventToEvent :: DragEvent -> Event
+dragEventToEvent = unsafeCoerce
+
+readDragEvent :: Foreign -> F DragEvent
+readDragEvent = unsafeReadTagged "DragEvent"
+
+foreign import dataTransfer :: DragEvent -> DataTransfer

src/Web/HTML/Event/DragEvent/EventTypes.purs

@@ -0,0 +1,27 @@
+module Web.HTML.Event.DragEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+dragstart :: EventType
+dragstart = EventType "dragstart"
+
+drag :: EventType
+drag = EventType "drag"
+
+dragenter :: EventType
+dragenter = EventType "dragenter"
+
+dragexit :: EventType
+dragexit = EventType "dragexit"
+
+dragleave :: EventType
+dragleave = EventType "dragleave"
+
+dragover :: EventType
+dragover = EventType "dragover"
+
+drop :: EventType
+drop = EventType "drop"
+
+dragend :: EventType
+dragend = EventType "dragend"

src/Web/HTML/Event/ErrorEvent.js

@@ -0,0 +1,17 @@
+"use strict";
+
+exports.message = function (e) {
+  return e.message;
+};
+
+exports.fileName = function (e) {
+  return e.filename;
+};
+
+exports.lineNo = function (e) {
+  return e.lineno;
+};
+
+exports.colNo = function (e) {
+  return e.colno;
+};

src/Web/HTML/Event/ErrorEvent.purs

@@ -0,0 +1,21 @@
+module Web.HTML.Event.ErrorEvent where
+
+import Foreign (F, Foreign, unsafeReadTagged)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Types (Event)
+
+foreign import data ErrorEvent :: Type
+
+toEvent :: ErrorEvent -> Event
+toEvent = unsafeCoerce
+
+read :: Foreign -> F ErrorEvent
+read = unsafeReadTagged "ErrorEvent"
+
+foreign import message :: ErrorEvent -> String
+
+foreign import fileName :: ErrorEvent -> String
+
+foreign import lineNo :: ErrorEvent -> Int
+
+foreign import colNo :: ErrorEvent -> Int

src/Web/HTML/Event/EventTypes.purs

@@ -0,0 +1,48 @@
+module Web.HTML.Event.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+blur :: EventType
+blur = EventType "blur"
+
+change :: EventType
+change = EventType "change"
+
+click :: EventType
+click = EventType "click"
+
+copy :: EventType
+copy = EventType "copy"
+
+cut :: EventType
+cut = EventType "cut"
+
+error :: EventType
+error = EventType "error"
+
+focus :: EventType
+focus = EventType "focus"
+
+input :: EventType
+input = EventType "input"
+
+invalid :: EventType
+invalid = EventType "invalid"
+
+languagechange :: EventType
+languagechange = EventType "languagechange"
+
+load :: EventType
+load = EventType "load"
+
+offline :: EventType
+offline = EventType "offline"
+
+online :: EventType
+online = EventType "online"
+
+paste :: EventType
+paste = EventType "paste"
+
+select :: EventType
+select = EventType "select"

src/Web/HTML/Event/HashChangeEvent.js

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

src/Web/HTML/Event/HashChangeEvent.purs

@@ -0,0 +1,17 @@
+module Web.HTML.Event.HashChangeEvent where
+
+import Foreign (F, Foreign, unsafeReadTagged)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Types (Event)
+
+foreign import data HashChangeEvent :: Type
+
+toEvent :: HashChangeEvent -> Event
+toEvent = unsafeCoerce
+
+read :: Foreign -> F HashChangeEvent
+read = unsafeReadTagged "HashChangeEvent"
+
+foreign import oldURL :: HashChangeEvent -> String
+
+foreign import newURL :: HashChangeEvent -> String