Merge pull request #9 from archaeron/example

Update the text below the ace component with the current text

Author: garyb

example/src/Main.purs

@@ -4,8 +4,7 @@ import Prelude
 
 import Ace.Editor as Editor
 import Ace.EditSession as Session
-import Ace.Halogen.Component (AceState (), AceQuery ())
-import qualified Ace.Halogen.Component as Ace
+import Ace.Halogen.Component (AceState (), AceQuery (TextChanged, GetText), aceConstructor)
 
 import Control.Monad.Aff (Aff (), runAff)
 import Control.Monad.Eff (Eff ())
@@ -14,7 +13,7 @@ import Control.Monad.Eff.Exception (throwException)
 import Control.Plus (Plus)
 
 import Data.Functor.Coproduct (Coproduct())
-import Data.Maybe (Maybe (..))
+import Data.Maybe (Maybe (..), fromMaybe)
 
 import Halogen
 import Halogen.Util (appendToBody, onLoad)
@@ -23,7 +22,7 @@ import qualified Halogen.HTML.Indexed as H
 -- Effects
 import Control.Monad.Eff.Random (RANDOM ())
 import Control.Monad.Eff.Ref (REF ())
-import Ace.Types (ACE ())
+import Ace.Types (ACE (), Editor ())
 import Data.Date (Now ())
 
 
@@ -55,33 +54,37 @@ type MainEffects = HalogenEffects (random :: RANDOM, now :: Now, ref :: REF, ace
 type MainAff = Aff MainEffects
 
 ui :: Component (StateP MainAff) QueryP MainAff
-ui = parentComponent render eval
+ui = parentComponent' render eval peek
     where
 
     render :: State -> MainHtml MainAff
     render state =
         H.div_
-            [ H.slot AceSlot \_ ->
-                { component :
-                    Ace.aceComponent
-                        (\editor -> liftEff $ do
-                            session <- Editor.getSession editor
-                            Session.setMode "ace/mode/yaml" session
-                            Editor.setValue state.text Nothing editor
-                            pure unit
-                        )
-                        Nothing
-                , initialState :
-                    { key : Nothing, editor : Nothing }
-                }
+            [ H.Slot $ aceConstructor AceSlot (initEditor state) Nothing
             , H.div_
                 [ H.text state.text ]
             ]
 
+    initEditor :: State -> Editor -> MainAff Unit
+    initEditor state editor = liftEff $ do
+        session <- Editor.getSession editor
+        Session.setMode "ace/mode/yaml" session
+        Editor.setValue state.text Nothing editor
+        pure unit
+
     eval :: EvalParent Query State AceState Query AceQuery MainAff AceSlot
     eval (UpdateText next) = do
         pure next
 
+    peek :: Peek (ChildF AceSlot AceQuery) State AceState Query AceQuery MainAff AceSlot
+    peek (ChildF p q) =
+        case q of
+            TextChanged _ -> do
+                text <- query AceSlot $ request GetText
+                modify (_ { text = fromMaybe "" text })
+            _ ->
+                pure unit
+
 main :: Eff MainEffects Unit
 main = runAff throwException (const (pure unit)) $ do
     app <- runUI ui (installedState initialState)