Add FFI for CustomEvent constructor (#26)

* Add FFI for CustomEvent constructor

* Add FFI for detail

* Add foreign as bower dep

* Add changelog

Co-authored-by: Thomas Honeyman <[email protected]>

Author: JordanMartinez

CHANGELOG.md

@@ -8,6 +8,7 @@ Breaking changes:
 - Migrate FFI to ES modules (#24 by @JordanMartinez)
 
 New features:
+- Add FFI for `CustomEvent` constructor (#25 by @JordanMartinez)
 - Add `addEventListenerWithOptions` to expose more options (#25 by @JordanMartinez)
 
 Bugfixes:

bower.json

@@ -17,6 +17,7 @@
   "dependencies": {
     "purescript-datetime": "master",
     "purescript-enums": "master",
-    "purescript-nullable": "main"
+    "purescript-nullable": "main",
+    "purescript-foreign": "master"
   }
 }

src/Web/Event/CustomEvent.js

@@ -0,0 +1,18 @@
+const newSimple = function(ty) {
+  return function () {
+    return new CustomEvent(ty);
+  };
+};
+export { newSimple as new };
+
+export function newOptionsImpl (ty) {
+  return function (opt) {
+    return function () {
+      return new CustomEvent(ty, opt);
+    };
+  };
+}
+
+export function detail(e) {
+  return e.detail;
+}

src/Web/Event/CustomEvent.purs

@@ -1,8 +1,11 @@
 module Web.Event.CustomEvent where
 
 import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toNullable)
+import Effect (Effect)
+import Foreign (Foreign)
 import Unsafe.Coerce as U
-import Web.Event.Event (Event)
+import Web.Event.Event (Event, EventType)
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data CustomEvent :: Type
@@ -12,3 +15,32 @@ fromEvent = unsafeReadProtoTagged "CustomEvent"
 
 toEvent :: CustomEvent -> Event
 toEvent = U.unsafeCoerce
+
+foreign import new :: EventType -> Effect CustomEvent
+
+-- | Create a new `CustomEvent`, storing some data in its `detail` field,
+-- | and using defaults for everything else.
+new'
+  :: forall a
+   . EventType
+  -> Maybe a
+  -> Effect CustomEvent
+new' ty det =
+  newWithOptions ty { detail: det, bubbles: false, cancelable: false, composed: false }
+
+-- | Create a new `CustomEvent` with all of its constructor's options exposed.
+foreign import newOptionsImpl
+  :: forall a
+   . EventType
+   -> { detail :: Nullable a , bubbles :: Boolean, cancelable :: Boolean, composed :: Boolean }
+   -> Effect CustomEvent
+
+newWithOptions
+  :: forall a
+   . EventType
+   -> { detail :: Maybe a , bubbles :: Boolean, cancelable :: Boolean, composed :: Boolean }
+   -> Effect CustomEvent
+newWithOptions ty rec@{ bubbles, cancelable, composed } =
+  newOptionsImpl ty { detail: toNullable rec.detail, bubbles, cancelable, composed }
+
+foreign import detail :: CustomEvent -> Foreign