>>> continue

src/Gargantext/Components/GraphExplorer/Layout.purs

@@ -214,7 +214,6 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
     -- |
     { edgeConfluence
     , edgeWeight
-    , multiSelectEnabled
     , nodeSize
     , removedNodeIds
     , selectedNodeIds
@@ -226,7 +225,6 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
 
     edgeConfluence'     <- R2.useLive' edgeConfluence
     edgeWeight'         <- R2.useLive' edgeWeight
-    multiSelectEnabled' <- R2.useLive' multiSelectEnabled
     nodeSize'           <- R2.useLive' nodeSize
     removedNodeIds'     <- R2.useLive' removedNodeIds
     selectedNodeIds'    <- R2.useLive' selectedNodeIds
@@ -235,8 +233,6 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
     hyperdataGraph'     <- R2.useLive' hyperdataGraph
     graph'              <- R2.useLive' graph
 
-    multiSelectEnabledRef <- R.useRef multiSelectEnabled'
-
     -- | Computed
     -- |
 
@@ -258,12 +254,6 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
 
     let mCamera' (GET.HyperdataGraph { mCamera }) = mCamera
 
-    -- | Hooks
-    -- |
-
-    R.useEffect1' multiSelectEnabled' $ do
-      R.setRef multiSelectEnabledRef multiSelectEnabled'
-
     -- | Render
     -- |
     pure $
@@ -273,7 +263,6 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
       , elRef
       , forceAtlas2Settings: Graph.forceAtlas2Settings
       , mCamera: mCamera' hyperdataGraph'
-      , multiSelectEnabledRef
       , sigmaRef
       , sigmaSettings: Graph.sigmaSettings
       , transformedGraph

src/Gargantext/Components/GraphExplorer/Resources.purs

@@ -36,7 +36,6 @@ type Props sigma forceatlas2 =
   , elRef                 :: R.Ref (Nullable Element)
   , forceAtlas2Settings   :: forceatlas2
   , mCamera               :: Maybe GET.Camera
-  , multiSelectEnabledRef :: R.Ref Boolean
   , sigmaRef              :: R.Ref Sigmax.Sigma
   , sigmaSettings         :: sigma
   , transformedGraph      :: SigmaxTypes.SGraph
@@ -58,6 +57,7 @@ drawGraphCpt = R.memo' $ here.component "graph" cpt where
     , graph
     , startForceAtlas
     , selectedNodeIds
+    , multiSelectEnabled
     } <- Stores.useStore GraphStore.context
 
     showEdges'        <- R2.useLive' showEdges
@@ -74,6 +74,7 @@ drawGraphCpt = R.memo' $ here.component "graph" cpt where
           , graphStage
           , startForceAtlas'
           , graph'
+          , multiSelectEnabled
           }
           props
       )
@@ -98,7 +99,6 @@ drawGraphCpt = R.memo' $ here.component "graph" cpt where
   -- |
   stageHooks { elRef
              , mCamera
-             , multiSelectEnabledRef
              , selectedNodeIds
              , forceAtlas2Settings: fa2
              , graph'
@@ -107,6 +107,7 @@ drawGraphCpt = R.memo' $ here.component "graph" cpt where
              , graphStage': GET.Init
              , startForceAtlas'
              , boxes
+             , multiSelectEnabled
              } = do
     R.useEffectOnce' $ do
       let rSigma = R.readRef sigmaRef
@@ -132,7 +133,7 @@ drawGraphCpt = R.memo' $ here.component "graph" cpt where
 
               Sigmax.dependOnSigma (R.readRef sigmaRef) "[graphCpt (Ready)] no sigma" $ \sigma -> do
                 -- bind the click event only initially, when ref was empty
-                Sigmax.bindSelectedNodesClick sigma selectedNodeIds multiSelectEnabledRef
+                Sigmax.bindSelectedNodesClick sigma selectedNodeIds multiSelectEnabled
                 _ <- Sigma.bindMouseSelectorPlugin sigma
                 pure unit
 

src/Gargantext/Hooks/Sigmax.purs

 module Gargantext.Hooks.Sigmax
   where
 
+import DOM.Simple.Console (log)
 import DOM.Simple.Types (Element)
 import Data.Array as A
 import Data.Either (either)
@@ -188,12 +189,12 @@ multiSelectUpdate new selected = foldl fld selected new
         Set.insert item selectedAcc
 
 
-bindSelectedNodesClick :: Sigma.Sigma -> T.Box ST.NodeIds -> R.Ref Boolean -> Effect Unit
-bindSelectedNodesClick sigma selectedNodeIds multiSelectEnabledRef =
+bindSelectedNodesClick :: Sigma.Sigma -> T.Box ST.NodeIds -> T.Box Boolean -> Effect Unit
+bindSelectedNodesClick sigma selectedNodeIds multiSelectEnabled =
   Sigma.bindClickNodes sigma $ \nodes -> do
-    let multiSelectEnabled = R.readRef multiSelectEnabledRef
     let nodeIds = Set.fromFoldable $ map _.id nodes
-    if multiSelectEnabled then
+    multiSelectEnabled' <- T.read multiSelectEnabled
+    if multiSelectEnabled' then
       T.modify_ (multiSelectUpdate nodeIds) selectedNodeIds
     else
       T.write_ nodeIds selectedNodeIds