Initial create

Author: Phil Freeman

Diff for: .gitignore

@@ -0,0 +1,9 @@
+/bower_components/
+/node_modules/
+/.pulp-cache/
+/output/
+/generated-docs/
+/.psc-package/
+/.psc*
+/.purs*
+/.psa*

Diff for: bower.json

@@ -0,0 +1,14 @@
+{
+  "name": "purescript-react-basic",
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "dependencies": {
+    "purescript-functions": "^3.0.0",
+    "purescript-eff": "^3.1.0",
+    "purescript-unsafe-coerce": "^3.0.0"
+  }
+}

Diff for: src/React/Basic.js

@@ -0,0 +1,19 @@
+"use strict";
+
+var React = require('react');
+
+exports.react_ = function(spec) {
+  return React.createClass({
+    getInitialState: function() {
+      return spec.initialState;
+    },
+    render: function() {
+      var this_ = this;
+      return spec.render(this.props, this.state, function(newState) {
+        return function() {
+          this_.setState(newState);
+        };
+      });
+    }
+  });
+};

Diff for: src/React/Basic.purs

@@ -0,0 +1,37 @@
+module React.Basic
+  ( react
+  , module React.Basic.DOM
+  , module React.Basic.Types
+  ) where
+
+import Prelude
+
+import Control.Monad.Eff (Eff, kind Effect)
+import Data.Function.Uncurried (Fn3, mkFn3)
+import React.Basic.DOM as React.Basic.DOM
+import React.Basic.Types (CSS, EventHandler, JSX, ReactComponent, ReactFX)
+import React.Basic.Types as React.Basic.Types
+
+foreign import react_
+  :: forall props state
+   . { initialState :: state
+     , render :: Fn3 props state (state -> Eff (react :: ReactFX) Unit) JSX
+     }
+  -> ReactComponent props
+
+-- | Create a React component from a _specification_ of that component.
+-- |
+-- | A _specification_ consists of a state type, an initial value for that state,
+-- | and a rendering function which takes a value of that state type, additional
+-- | _props_ (which will be passed in by the user) and a state update function.
+-- |
+-- | The rendering function should return a value of type `JSX`, which can be
+-- | constructed using the helper functions provided by the `React.Basic.DOM`
+-- | module (and re-exported here).
+react
+  :: forall props state
+   . { initialState :: state
+     , render :: props -> state -> (state -> Eff (react :: ReactFX) Unit) -> JSX
+     }
+  -> ReactComponent props
+react { initialState, render } = react_ { initialState, render: mkFn3 render }