Add withReactHydrate

elmish · Mar 2, 2018 · 98296f6 · 98296f6
1 parent 53ce7a1
commit 98296f6
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/react.fs b/src/react.fs
@@ -49,3 +49,15 @@ module Program =
                 )
 
         { program with setState = setState }
+
+    /// Setup rendering of root React component inside html element identified by placeholderId
+    let withReactHyrate placeholderId (program:Elmish.Program<_,_,_,_>) =
+        let setState dispatch =
+            let viewWithDispatch = program.view dispatch
+            fun model ->
+                Fable.Import.ReactDom.hydrate(
+                    lazyViewWith (fun x y -> obj.ReferenceEquals(x,y)) viewWithDispatch model,
+                    document.getElementById(placeholderId)
+                )
+
+        { program with setState = setState }