[tree] properly refresh tree after dispatch

src/Gargantext/Components/Forest.purs

@@ -6,7 +6,7 @@ import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Set as Set
 import Data.Tuple (fst, snd)
 import Data.Tuple.Nested ((/\))
-import DOM.Simple.Console (log)
+import DOM.Simple.Console (log, log2)
 import Reactix as R
 import Reactix.DOM.HTML as H
 
@@ -71,13 +71,14 @@ forestCpt = R.hooksComponentWithModule thisModule "forest" cpt where
       /\ (fst asyncTasks).storage
       /\ handed
       )
-      (cpt' openNodes asyncTasks reload showLogin backend)
-  cpt' openNodes asyncTasks reload showLogin backend (frontends /\ route /\ sessions /\ _ /\ _ /\ _ /\ _ /\ handed) = do
+      (cpt' openNodes asyncTasks appReload reload showLogin backend)
+  cpt' openNodes asyncTasks appReload reload showLogin backend (frontends /\ route /\ sessions /\ _ /\ _ /\ _ /\ _ /\ handed) = do
     pure $ R2.row $ [plus handed showLogin backend] <> trees
     where
       trees = tree <$> unSessions sessions
       tree s@(Session {treeId}) =
-        treeView { asyncTasks
+        treeView { appReload
+                 , asyncTasks
                  , frontends
                  , handed
                  , mCurrentRoute: Just route

src/Gargantext/Components/Forest/Tree/Node.purs

@@ -5,6 +5,7 @@ import Data.Maybe (Maybe(..))
 import Data.Nullable (null)
 import Data.Tuple (snd)
 import Data.Tuple.Nested ((/\))
+import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
 import Effect.Class (liftEffect)
 import React.SyntheticEvent as E
@@ -39,7 +40,6 @@ import Gargantext.Utils.Reactix as R2
 thisModule :: String
 thisModule = "Gargantext.Components.Forest.Tree.Node"
 
-
 -- Main Node
 type NodeMainSpanProps = (
     appReload     :: GT.ReloadS
@@ -51,6 +51,7 @@ type NodeMainSpanProps = (
   , mCurrentRoute :: Maybe Routes.AppRoute
   , name          :: Name
   , nodeType      :: GT.NodeType
+  , setPopoverRef :: R.Ref (Maybe (Boolean -> Effect Unit))
   | CommonProps
   )
 
@@ -83,6 +84,7 @@ nodeMainSpanCpt = R.hooksComponentWithModule thisModule "nodeMainSpan" cpt
               , name
               , nodeType
               , session
+              , setPopoverRef
               } _ = do
       -- only 1 popup at a time is allowed to be opened
       droppedFile   <- R.useState' (Nothing :: Maybe DroppedFile)
@@ -90,6 +92,9 @@ nodeMainSpanCpt = R.hooksComponentWithModule thisModule "nodeMainSpan" cpt
 
       popoverRef    <- R.useRef null
 
+      R.useEffect' $ do
+        R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef
+
       let ordering =
             case handed of
               GT.LeftHanded  -> reverse