[D3 bug resolved] addition of d3charge

src/Main.purs

@@ -5,7 +5,7 @@ import Prelude
 import App (app)
 import DOM.Simple (Element, boundingRect)
 import DOM.Simple as DOM
-import DOM.Simple.Console (log)
+import DOM.Simple.Console (log, log2)
 import DOM.Simple.Document (document)
 import DOM.Simple.Element (boundingRect)
 import DOM.Simple.Types (DOMRect)
@@ -16,6 +16,7 @@ import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Class (liftEffect)
 import FFI.Simple ((...), delay, args2)
+import Graphics.D3.Base 
 import Phylo.Ressources as PR
 import Phylo.Types as PT
 import Reactix as R
@@ -32,7 +33,8 @@ paint :: Maybe Element -> Effect Unit
 paint Nothing = log "[main] container not found"
 paint (Just c) = render (app {} []) c
 
-
+d3charge :: D3
+d3charge = d3
 
 
 

src/Phylo/Components/Isoline.purs

 module Phylo.Isoline where
 
+import Graphics.D3.Base
 import Prelude
 
-import DOM.Simple.Console (log)
+import DOM.Simple.Console (log, log2)
 import Data.Array (length)
 import Data.Int (toNumber, round)
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Data.Nullable (null, toMaybe)
 import Effect.Aff (Aff, launchAff_)
 import FFI.Simple (delay)
-import Graphics.D3.Base (D3Eff)
 import Graphics.D3.Contour as Contour
 import Graphics.D3.Selection as Selection
 import Phylo.TypesExample as PTE
@@ -32,19 +32,20 @@ isoline props = R.createElement isolineCpt props []
 isolineCpt :: R.Component Isoline
 isolineCpt = R.hooksComponent "isoline" cpt where
   cpt {} _ = do
---    containerRef <- R.useRef null
---
---    R.useEffect' $ do
---      delay unit $ \_ -> do
---        let mContainer = toMaybe $ R.readRef containerRef
---        case mContainer of
---          Nothing -> pure unit
---          Just cr -> do
---            _ <- Selection.rootSelectEl cr
---    
---            pure unit
---    pure $ H.div {id:"phyloIsoline", ref: containerRef}[]
-      pure $ H.div {className:"phyloIsoline"}[H.text "Here lies the isoline"]
+    containerRef <- R.useRef null
+
+    R.useEffect' $ do
+      
+      delay unit $ \_ -> do
+        let mContainer = toMaybe $ R.readRef containerRef
+        case mContainer of
+          Nothing -> pure unit
+          Just cr -> do
+            _ <- Selection.rootSelectEl cr
+              >>= Selection.style "background-color" "#e60101"            
+            pure unit
+    pure $ H.div {id:"phyloIsoline", ref: containerRef}[]
+--      pure $ H.div {className:"phyloIsoline"}[H.text "Here lies the isoline"]
 
 -- drawIsoline :: Array PhyloObject -> Effect Unit
 -- drawIsoline branches = do