[subtree] Fold subtree node by default

* #308 (2): resolve re-render issue

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

-module Gargantext.Components.Forest.Tree.Node.Action.Move where
+module Gargantext.Components.Forest.Tree.Node.Action.Move
+  ( moveNodeReq
+  , moveNode
+  ) where
 
 import Data.Either (Either)
 import Data.Maybe (Maybe(..))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Action.Types (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsIn, subTreeView)
 import Gargantext.Config.REST (RESTError)
 import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
@@ -30,6 +33,30 @@ moveNodeCpt = here.component "moveNode" cpt
   where
     cpt { boxes, dispatch, id, nodeType, session, subTreeParams } _ = do
       action :: T.Box Action <- T.useBox (MoveNode {params: Nothing})
+
+      pure $
+
+        moveNode' { action
+            , boxes
+            , dispatch
+            , id
+            , nodeType
+            , session
+            , subTreeParams
+            } []
+
+type Props =
+  ( action :: T.Box Action
+  | SubTreeParamsIn
+  )
+
+-- @XXX re-render issue -> clone component
+moveNode' :: R2.Component Props
+moveNode' = R.createElement moveNodeCpt'
+moveNodeCpt' :: R.Component Props
+moveNodeCpt' = here.component "foo" cpt where
+  cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
+
     action' <- T.useLive T.unequal action
 
     let button = case action' of
@@ -40,7 +67,8 @@ moveNodeCpt = here.component "moveNode" cpt
 
     pure $
 
-        panel [ subTreeView { action
+      panel
+      [ subTreeView { action
                       , boxes
                       , dispatch
                       , id

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

@@ -44,7 +44,7 @@ type SubTreeParamsProps =
   )
 
 subTreeView :: R2.Component SubTreeParamsProps
-subTreeView = R.createElement subTreeViewCpt
+subTreeView = R.createElement $ R.memo' subTreeViewCpt
 subTreeViewCpt :: R.Component SubTreeParamsProps
 subTreeViewCpt = here.component "subTreeView" cpt
   where