working example of sigma.js using react-sigma

src/GraphExplorer.purs

@@ -3,6 +3,7 @@ module GraphExplorer where
 import React.DOM (button, button', div, form', input, li', menu, text, ul, ul')
 import React.DOM.Props (_id, _type, className, name, placeholder, value)
 import Thermite (Spec, defaultPerformAction, simpleSpec)
+import Sigma
 
 newtype State = State {mode :: String}
 
@@ -48,7 +49,10 @@ spec = simpleSpec defaultPerformAction render
            ]
          , div [className "row"]
            [ div [className "col-md-8"]
-             [ div [] [text "GraphExplorer here...."]
+             [ --div [] [text "GraphExplorer here...."]
+               sigmaC [ style {width : 500, height : 500}, renderer "webgl"]
+               [ loadJSON [path "./sites_coords.json"]
+               ]
              ]
            , div [className "col-md-4"]
              [ div [_id "sidepanel"]

src/Sigma.purs

 module Sigma where
 
-import React (ReactClass)
-import React.DOM.Props (Props, unsafeMkProps)
+import React (ReactClass, ReactElement, createElement)
+import React.DOM.Props (Props, unsafeFromPropsArray, unsafeMkProps)
 
 foreign import sigmaClass :: forall props. ReactClass props
 foreign import edgeShapesClass :: forall props. ReactClass props
@@ -16,13 +16,19 @@ foreign import neoCypherClass :: forall props. ReactClass props
 foreign import randomizeNodePositionsClass :: forall props. ReactClass props
   --sigma props
 
+sigmaC :: Array Props -> Array ReactElement -> ReactElement
+sigmaC props = createElement sigmaClass (unsafeFromPropsArray props)
+
+loadJSON :: Array Props -> ReactElement
+loadJSON props = createElement loadJSONClass (unsafeFromPropsArray props) []
+
 settings:: String -> Props -- Sigma$Settings,
 settings = unsafeMkProps "settings"
 
 renderer:: String -> Props -- "webgl" | "canvas" | "svg",
 renderer = unsafeMkProps "renderer"
 
-style:: String -> Props -- Object,
+style:: forall a. a -> Props -- Object,
 style = unsafeMkProps "style"
 
 _children:: String -> Props -- mixed,
@@ -70,7 +76,7 @@ sigma = unsafeMkProps "sigma"
 
 ---loadgex props
 
-path  ::  String -> Props --  string,
+path :: String -> Props --  string,
 path = unsafeMkProps "path"
 
 onGraphLoaded  ::  String -> Props -- ?: () => void,