From 9d0be2a9c9bac768072b354a9e3072ba5c00ecd0 Mon Sep 17 00:00:00 2001
From: Gary Burgess <gary.burgess@gmail.com>
Date: Fri, 6 Nov 2015 16:04:13 +0000
Subject: [PATCH] Add setup option to constructor

---
 src/Ace/Halogen/Component.purs | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/src/Ace/Halogen/Component.purs b/src/Ace/Halogen/Component.purs
index b223909..29c330d 100644
--- a/src/Ace/Halogen/Component.purs
+++ b/src/Ace/Halogen/Component.purs
@@ -12,18 +12,23 @@ import Control.Monad.Eff.Class (MonadEff)
 
 import Data.Maybe (Maybe(..))
 
-import Halogen (Natural(), Component(), ComponentHTML(), ComponentDSL(), SlotConstructor(..), component, action, liftEff', modify, gets)
+import Halogen (Natural(), Component(), ComponentHTML(), ComponentDSL(), SlotConstructor(..), component, action, liftEff', liftH, modify, gets)
 import Halogen.HTML.Indexed as H
 import Halogen.HTML.Properties.Indexed as P
 
-import Ace.Types (ACE())
+import Ace.Types (ACE(), Editor())
 import Ace.Editor as Editor
 import Ace.Halogen.Component.Query
 import Ace.Halogen.Component.State
 
 -- | The Ace component.
-aceComponent :: forall g eff. (MonadEff (ace :: ACE | eff) g) => Maybe String -> Component AceState AceQuery g
-aceComponent initialText = component render eval
+aceComponent
+  :: forall g eff
+   . (MonadEff (ace :: ACE | eff) g)
+  => (Editor -> g Unit)
+  -> Maybe String
+  -> Component AceState AceQuery g
+aceComponent setup initialText = component render eval
   where
 
   render :: AceState -> ComponentHTML AceQuery
@@ -36,6 +41,7 @@ aceComponent initialText = component render eval
     case initialText of
       Nothing -> pure unit
       Just text -> void $ liftEff' $ Editor.setValue text Nothing editor
+    liftH $ setup editor
     pure next
   eval (GetText k) = do
     state <- gets runAceState
@@ -55,5 +61,15 @@ aceComponent initialText = component render eval
 
 -- | A convenience function for creating a `SlotConstructor` for an Ace
 -- | component.
-aceConstructor :: forall g p eff. (MonadEff (ace :: ACE | eff) g) => p -> Maybe String -> SlotConstructor AceState AceQuery g p
-aceConstructor p initialText = SlotConstructor p \_ -> { component: aceComponent initialText, initialState: initialAceState }
+aceConstructor
+  :: forall g p eff
+   . (MonadEff (ace :: ACE | eff) g)
+  => (Editor -> g Unit)
+  -> p
+  -> Maybe String
+  -> SlotConstructor AceState AceQuery g p
+aceConstructor setup p initialText =
+  SlotConstructor p \_ ->
+    { component: aceComponent setup initialText
+    , initialState: initialAceState
+    }