Provide self-bound event handling functions

Author: Michael Trotter

examples/component/src/ToggleButton.purs

@@ -5,7 +5,6 @@ import Prelude
 import Effect.Console (log)
 import React.Basic (Component, JSX, StateUpdate(..), createComponent, make)
 import React.Basic.DOM as R
-import React.Basic.Events as Events
 
 type Props =
   { label :: String
@@ -29,7 +28,7 @@ render = make component
 
   , render = \self ->
       R.button
-        { onClick: Events.handler_ do self.send Toggle
+        { onClick: self.capture identity $ const Toggle
         , children:
             [ R.text self.props.label
             , R.text if self.state.on

examples/controlled-input/src/ControlledInput.purs

@@ -6,8 +6,8 @@ import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import React.Basic (Component, JSX, StateUpdate(..), createComponent, make)
 import React.Basic as React
 import React.Basic.DOM as R
-import React.Basic.DOM.Events (preventDefault, targetValue, timeStamp)
-import React.Basic.Events as Events
+import React.Basic.DOM.Events (targetValue, timeStamp)
+import React.Basic.Events (merge)
 
 type Props = {}
 
@@ -32,11 +32,9 @@ render = make component
       React.fragment
         [ R.input
             { onChange:
-                Events.handler
-                  (preventDefault >>> Events.merge { targetValue, timeStamp })
-                  \{ timeStamp, targetValue } ->
-                    self.send $
-                      ValueChanged (fromMaybe "" targetValue) timeStamp
+                self.capture
+                  (merge { targetValue, timeStamp })
+                  \{ timeStamp, targetValue } -> ValueChanged (fromMaybe "" targetValue) timeStamp
             , value: self.state.value
             }
         , R.p_ [ R.text ("Current value = " <> show self.state.value) ]

examples/counter/src/Counter.purs

@@ -4,7 +4,6 @@ import Prelude
 
 import React.Basic (Component, JSX, StateUpdate(..), createComponent, make)
 import React.Basic.DOM as R
-import React.Basic.Events as Events
 
 type Props =
   { label :: String
@@ -23,7 +22,7 @@ render = make component
 
   , render = \self ->
       R.button
-        { onClick: Events.handler_ do self.send Increment
+        { onClick: self.capture identity $ const Increment
         , children: [ R.text (self.props.label <> ": " <> show self.state.counter) ]
         }
   }