>>> BEGIN 376

* node action link selection: hidding tree issue

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

@@ -49,6 +49,31 @@ linkNodeCpt = here.component "linkNode" cpt
   where
     cpt { boxes, dispatch, id, nodeType, session, subTreeParams } _ = do
       action <- T.useBox (LinkNode { nodeType: Nothing, params: Nothing})
+
+      pure $
+
+          linkNode' { action
+                      , boxes
+                      , dispatch
+                      , id
+                      , nodeType
+                      , session
+                      , subTreeParams
+                      } []
+
+type Props =
+  ( action :: T.Box Action
+  | SubTreeParamsIn
+  )
+
+-- @XXX re-render issue -> clone component
+linkNode' :: R2.Component Props
+linkNode' = R.createElement linkNodeCpt'
+linkNodeCpt' :: R.Component Props
+linkNodeCpt' = here.component "__clone__" cpt
+  where
+    cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
+
       action' <- T.useLive T.unequal action
 
       let button = case action' of

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

@@ -53,7 +53,7 @@ type Props =
 moveNode' :: R2.Component Props
 moveNode' = R.createElement moveNodeCpt'
 moveNodeCpt' :: R.Component Props
-moveNodeCpt' = here.component "foo" cpt where
+moveNodeCpt' = here.component "__clone__" cpt where
   cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
 
     action' <- T.useLive T.unequal action