Add Event utilities

Author: maddie927

Diff for: bower.json

@@ -9,6 +9,7 @@
   "dependencies": {
     "purescript-functions": "^3.0.0",
     "purescript-eff": "^3.1.0",
-    "purescript-unsafe-coerce": "^3.0.0"
+    "purescript-unsafe-coerce": "^3.0.0",
+    "purescript-nullable": "^3.0.0"
   }
 }

Diff for: generated-docs/React/Basic.md

@@ -63,33 +63,6 @@ Render an Array of children without a wrapping component.
 Provide a key when dynamically rendering multiple fragments along side
 each other.
 
-
-### Re-exported from React.Basic.Types:
-
-#### `SyntheticEvent`
-
-``` purescript
-type SyntheticEvent = { bubbles :: Boolean, cancelable :: Boolean, currentTarget :: DOMNode, defaultPrevented :: Boolean, eventPhase :: Number, isTrusted :: Boolean, target :: DOMNode, timeStamp :: Number, "type" :: String }
-```
-
-Event data that we receive from React.
-
-#### `ReactFX`
-
-``` purescript
-data ReactFX :: Effect
-```
-
-A placeholder effect for all React FFI.
-
-#### `ReactComponent`
-
-``` purescript
-data ReactComponent :: Type -> Type
-```
-
-A React component which can be used from JavaScript.
-
 #### `JSX`
 
 ``` purescript
@@ -98,28 +71,20 @@ data JSX :: Type
 
 A virtual DOM element.
 
-#### `EventHandler`
+#### `ReactComponent`
 
 ``` purescript
-type EventHandler = EffFn1 (react :: ReactFX) SyntheticEvent Unit
+data ReactComponent :: Type -> Type
 ```
 
-An event handler, which receives a `SyntheticEvent` and performs some
-effects in return.
+A React component which can be used from JavaScript.
 
-#### `DOMNode`
+#### `ReactFX`
 
 ``` purescript
-data DOMNode :: Type
+data ReactFX :: Effect
 ```
 
-An _actual_ DOM node (not a virtual DOM element!)
-
-#### `CSS`
-
-``` purescript
-data CSS :: Type
-```
+A placeholder effect for all React FFI.
 
-An abstract type representing records of CSS attributes.
 

Diff for: generated-docs/React/Basic/DOM.md

@@ -15,6 +15,14 @@ text :: String -> JSX
 
 Create a text node.
 
+#### `CSS`
+
+``` purescript
+data CSS :: Type
+```
+
+An abstract type representing records of CSS attributes.
+
 #### `css`
 
 ``` purescript

Diff for: generated-docs/React/Basic/DOM/Events.md

@@ -0,0 +1,158 @@
+## Module React.Basic.DOM.Events
+
+This module defines safe event function and property accessors.
+
+#### `EventHandler`
+
+``` purescript
+type EventHandler = EffFn1 (react :: ReactFX) SyntheticEvent Unit
+```
+
+An event handler, which receives a `SyntheticEvent` and performs some
+effects in return.
+
+#### `SyntheticEvent`
+
+``` purescript
+data SyntheticEvent :: Type
+```
+
+Event data that we receive from React.
+
+#### `DOMNode`
+
+``` purescript
+data DOMNode :: Type
+```
+
+An _actual_ DOM node (not a virtual DOM element!)
+
+#### `DOMEvent`
+
+``` purescript
+data DOMEvent :: Type
+```
+
+The underlying browser Event
+
+#### `EventFn`
+
+``` purescript
+newtype EventFn a b
+```
+
+##### Instances
+``` purescript
+Semigroupoid EventFn
+Category EventFn
+```
+
+#### `bubbles`
+
+``` purescript
+bubbles :: EventFn SyntheticEvent Boolean
+```
+
+#### `cancelable`
+
+``` purescript
+cancelable :: EventFn SyntheticEvent Boolean
+```
+
+#### `currentTarget`
+
+``` purescript
+currentTarget :: EventFn SyntheticEvent DOMNode
+```
+
+#### `defaultPrevented`
+
+``` purescript
+defaultPrevented :: EventFn SyntheticEvent Boolean
+```
+
+#### `eventPhase`
+
+``` purescript
+eventPhase :: EventFn SyntheticEvent Int
+```
+
+#### `eventPhaseNone`
+
+``` purescript
+eventPhaseNone :: Int
+```
+
+#### `eventPhaseCapturing`
+
+``` purescript
+eventPhaseCapturing :: Int
+```
+
+#### `eventPhaseAtTarget`
+
+``` purescript
+eventPhaseAtTarget :: Int
+```
+
+#### `eventPhaseBubbling`
+
+``` purescript
+eventPhaseBubbling :: Int
+```
+
+#### `isTrusted`
+
+``` purescript
+isTrusted :: EventFn SyntheticEvent Boolean
+```
+
+#### `nativeEvent`
+
+``` purescript
+nativeEvent :: EventFn SyntheticEvent DOMEvent
+```
+
+#### `preventDefault`
+
+``` purescript
+preventDefault :: EventFn SyntheticEvent SyntheticEvent
+```
+
+#### `isDefaultPrevented`
+
+``` purescript
+isDefaultPrevented :: EventFn SyntheticEvent Boolean
+```
+
+#### `stopPropagation`
+
+``` purescript
+stopPropagation :: EventFn SyntheticEvent SyntheticEvent
+```
+
+#### `isPropagationStopped`
+
+``` purescript
+isPropagationStopped :: EventFn SyntheticEvent Boolean
+```
+
+#### `target`
+
+``` purescript
+target :: EventFn SyntheticEvent DOMNode
+```
+
+#### `timeStamp`
+
+``` purescript
+timeStamp :: EventFn SyntheticEvent Number
+```
+
+#### `type_`
+
+``` purescript
+type_ :: EventFn SyntheticEvent String
+```
+
+

Diff for: generated-docs/React/Basic/Types.md

@@ -5,16 +5,25 @@ module React.Basic
   , createElementKeyed
   , fragment
   , fragmentKeyed
-  , module React.Basic.Types
+  , JSX
+  , ReactComponent
+  , ReactFX
   ) where
 
 import Prelude
 
 import Control.Monad.Eff (Eff, kind Effect)
 import Control.Monad.Eff.Uncurried (EffFn3, mkEffFn3)
 import Data.Function.Uncurried (Fn2, Fn3, mkFn3, runFn2)
-import React.Basic.Types (CSS, EventHandler, JSX, ReactComponent, ReactFX)
-import React.Basic.Types as React.Basic.Types
+
+-- | A virtual DOM element.
+foreign import data JSX :: Type
+
+-- | A React component which can be used from JavaScript.
+foreign import data ReactComponent :: Type -> Type
+
+-- | A placeholder effect for all React FFI.
+foreign import data ReactFX :: Effect
 
 -- | Create a React component from a _specification_ of that component.
 -- |

Diff for: src/React/Basic.purs

@@ -7,14 +7,17 @@
 
 module React.Basic.DOM where
 
-import React.Basic (ReactComponent, createElement)
-import React.Basic.Types (CSS, JSX, EventHandler)
+import React.Basic (JSX, ReactComponent, createElement)
+import React.Basic.DOM.Events (EventHandler)
 import Unsafe.Coerce (unsafeCoerce)
 
 -- | Create a text node.
 text :: String -> JSX
 text = unsafeCoerce
 
+-- | An abstract type representing records of CSS attributes.
+foreign import data CSS :: Type
+
 -- | Create a value of type `CSS` (which can be provided to the `style` property)
 -- | from a plain record of CSS attributes.
 -- |
@@ -2162,4 +2165,3 @@ wbr
   => Record attrs
   -> JSX
 wbr = createElement (unsafeCreateDOMComponent "wbr")
-

Diff for: src/React/Basic/DOM.purs

@@ -0,0 +1,20 @@
+"use strict";
+
+exports.unsafePreventDefault = function(e) {
+  e.preventDefault();
+  return e;
+};
+
+exports.unsafeIsDefaultPrevented = function(e) {
+  e.isDefaultPrevented();
+  return e;
+};
+
+exports.unsafeStopPropagation = function(e) {
+  e.stopPropagation();
+  return e;
+};
+
+exports.unsafeIsPropagationStopped = function(e) {
+  return e.isPropagationStopped();
+};