Add setup function, to wrap componentDidMount

README.md

@@ -2,7 +2,7 @@
 
 This package implements an opinionated set of bindings to the React library, optimizing for the most basic use cases.
 
-## Features 
+## Features
 
 - All React DOM elements and attributes are supported.
 - An intuitive API for specifying props - no arrays of key value pairs, just records.
@@ -42,6 +42,7 @@ type ExampleState =
 example :: R.ReactComponent ExampleProps
 example = R.react
   { initialState: \_ -> { counter: 0 }
+  , setup: \_ _ _ -> pure unit
   , render: \{ label } { counter } setState ->
       R.button { onClick: mkEffFn1 \_ -> do
                             setState { counter: counter + 1 }

generated-docs/React/Basic.md

@@ -3,7 +3,7 @@
 #### `react`
 
 ``` purescript
-react :: forall props state. { initialState :: state, render :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> JSX } -> ReactComponent props
+react :: forall props state. { initialState :: props -> state, setup :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> Eff (react :: ReactFX) Unit, render :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> JSX } -> ReactComponent props
 ```
 
 Create a React component from a _specification_ of that component.

src/React/Basic.js

@@ -7,6 +7,14 @@ exports.react_ = function(spec) {
     getInitialState: function() {
       return spec.initialState(this.props);
     },
+    componentDidMount: function() {
+      var this_ = this;
+      spec.setup(this.props, this.state, function(newState) {
+        return function() {
+          this_.setState(newState);
+        };
+      });
+    },
     render: function() {
       var this_ = this;
       return spec.render(this.props, this.state, function(newState) {

src/React/Basic.purs

@@ -7,6 +7,7 @@ module React.Basic
 import Prelude
 
 import Control.Monad.Eff (Eff, kind Effect)
+import Control.Monad.Eff.Uncurried (EffFn3, mkEffFn3)
 import Data.Function.Uncurried (Fn3, mkFn3)
 import React.Basic.DOM as React.Basic.DOM
 import React.Basic.Types (CSS, EventHandler, JSX, ReactComponent, ReactFX)
@@ -15,6 +16,7 @@ import React.Basic.Types as React.Basic.Types
 foreign import react_
   :: forall props state
    . { initialState :: props -> state
+     , setup :: EffFn3 (react :: ReactFX) props state (state -> Eff (react :: ReactFX) Unit) Unit
      , render :: Fn3 props state (state -> Eff (react :: ReactFX) Unit) JSX
      }
   -> ReactComponent props
@@ -31,7 +33,13 @@ foreign import react_
 react
   :: forall props state
    . { initialState :: props -> state
+     , setup :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> Eff (react :: ReactFX) Unit
      , render :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> JSX
      }
   -> ReactComponent props
-react { initialState, render } = react_ { initialState, render: mkFn3 render }
+react { initialState, setup, render } =
+  react_
+    { initialState
+    , setup: mkEffFn3 setup
+    , render: mkFn3 render
+    }