[Graph] warnings cleanup, reset fa pause ref in controls

src/Gargantext/Components/Graph.purs

@@ -4,27 +4,21 @@ module Gargantext.Components.Graph
   -- , forceAtlas2Settings, ForceAtlas2Settings, ForceAtlas2OptionalSettings
   -- )
   where
-import Prelude (bind, const, discard, pure, ($), unit, map, (==), (&&), class Eq)
+import Prelude (bind, const, discard, pure, ($), unit)
 import Data.Either (Either(..))
-import Data.Map as Map
 import Data.Maybe (Maybe(..))
-import Data.Nullable (notNull, null, Nullable)
-import Data.Set as Set
-import Data.Tuple (fst, snd, Tuple(..))
+import Data.Nullable (Nullable)
+import Data.Tuple (fst)
 import Data.Tuple.Nested ((/\))
-import DOM.Simple (createElement, setAttr)
 import DOM.Simple.Console (log, log2)
 import DOM.Simple.Types (Element)
-import Effect.Class (liftEffect)
-import Effect.Timer (setTimeout)
-import FFI.Simple (delay, (..))
+import FFI.Simple (delay)
 import Reactix as R
 import Reactix.DOM.HTML as RH
 
 import Gargantext.Hooks.Sigmax as Sigmax
 import Gargantext.Hooks.Sigmax.Types as SigmaxTypes
 import Gargantext.Hooks.Sigmax.Sigma as Sigma
-import Gargantext.Utils.Reactix as R2
 
 type OnProps  = ()
 

src/Gargantext/Components/GraphExplorer.purs

@@ -5,14 +5,12 @@ import Gargantext.Prelude hiding (max,min)
 import Data.FoldableWithIndex (foldMapWithIndex)
 import Data.Foldable (foldMap)
 import Data.Int (toNumber)
-import Data.Map as Map
 import Data.Maybe (Maybe(..))
 import Data.Nullable (null, Nullable)
 import Data.Sequence as Seq
 import Data.Set as Set
 import Data.Tuple (fst, snd, Tuple(..))
 import Data.Tuple.Nested ((/\))
-import DOM.Simple.Console (log, log2)
 import DOM.Simple.Types (Element)
 import Effect.Aff (Aff)
 import Reactix as R
@@ -72,12 +70,6 @@ explorerCpt :: R.Component Props
 explorerCpt = R.hooksComponent "G.C.GraphExplorer.explorer" cpt
   where
     cpt {frontends, graph, graphId, mCurrentRoute, mMetaData, session, sessions, treeId} _ = do
-      R.useEffect' $ do
-        case graph of
-          Nothing -> log "[explorerCpt] empty graph data"
-          Just (SigmaxTypes.Graph {nodes}) -> do
-            log2 "[explorerCpt] number of nodes" $ Seq.length nodes
-
       dataRef <- R.useRef graph
       graphRef <- R.useRef null
       controls <- Controls.useGraphControls
@@ -89,7 +81,6 @@ explorerCpt = R.hooksComponent "G.C.GraphExplorer.explorer" cpt
           Tuple Nothing Nothing -> pure unit
           Tuple (Just g1) (Just g2) | SigmaxTypes.eqGraph g1 g2 -> pure unit
           _ -> do
-            log "[explorerCpt] data changed"
             let rSigma = R.readRef controls.sigmaRef
             Sigmax.cleanupSigma rSigma "explorerCpt"
             R.setRef dataRef graph

src/Gargantext/Components/GraphExplorer/Controls.purs

@@ -11,10 +11,10 @@ module Gargantext.Components.GraphExplorer.Controls
  ) where
 
 import Data.Maybe (Maybe(..))
-import DOM.Simple.Console (log, log2)
+import Data.Tuple (fst)
 import Data.Tuple.Nested ((/\), get1)
 import Effect (Effect)
-import Effect.Timer (clearTimeout, setTimeout)
+import Effect.Timer (setTimeout)
 import Prelude
 import Reactix as R
 import Reactix.DOM.HTML as RH
@@ -26,7 +26,6 @@ import Gargantext.Components.GraphExplorer.SlideButton (cursorSizeButton, labelS
 import Gargantext.Components.GraphExplorer.ToggleButton (edgesToggleButton, pauseForceAtlasButton)
 import Gargantext.Components.GraphExplorer.Types as GET
 import Gargantext.Hooks.Sigmax as Sigmax
-import Gargantext.Hooks.Sigmax.Sigma as Sigma
 import Gargantext.Utils.Range as Range
 import Gargantext.Utils.Reactix as R2
 
@@ -79,6 +78,12 @@ controlsCpt = R.hooksComponent "GraphControls" cpt
       -- If user pauses FA before auto is triggered, clear the timeoutId
       mFAPauseRef <- R.useRef Nothing
 
+      -- when graph is changed, cleanup the mFAPauseRef
+      R.useEffect' $ do
+        case fst props.graphStage of
+          Graph.Init -> R.setRef mFAPauseRef Nothing
+          _          -> pure unit
+
       --R.useEffect $ handleForceAtlasPause props.sigmaRef localControls.pauseForceAtlas mFAPauseRef
       R.useEffect' $ Sigmax.handleForceAtlas2Pause props.sigmaRef localControls.pauseForceAtlas (get1 localControls.showEdges) mFAPauseRef