[REFACT|Tree] split sync funs

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

@@ -3,9 +3,8 @@ module Gargantext.Components.Forest.Tree.Node.Box where
 import Data.Maybe (Maybe(..))
 import Data.Nullable (null)
 import Data.String as S
-import Data.Tuple (fst)
 import Data.Tuple.Nested ((/\))
-import Effect.Aff (Aff, launchAff, launchAff_)
+import Effect.Aff (Aff, launchAff)
 import Effect.Class (liftEffect)
 import Effect.Uncurried (mkEffectFn1)
 import Gargantext.Components.Forest.Tree.Node (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
@@ -21,20 +20,20 @@ import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (default
 import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload, DroppedFile(..), fileTypeView)
 import Gargantext.Components.Forest.Tree.Node.Action.Download (actionDownload)
-import Gargantext.Components.Forest.Tree.Node.Box.Types
+import Gargantext.Components.Forest.Tree.Node.Box.Types (CommonProps, NodePopupProps, NodePopupS)
 import Gargantext.Components.Forest.Tree.Node.Tools.ProgressBar (asyncProgressBar, BarType(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT)
 import Gargantext.Components.Forest.Tree.Node.Tools.Task (Tasks)
+import Gargantext.Components.Forest.Tree.Node.Tools.Sync (nodeActionsGraph, nodeActionsNodeList)
 import Gargantext.Components.GraphExplorer.API as GraphAPI
 import Gargantext.Components.Lang (Lang(EN))
-import Gargantext.Components.NgramsTable.API as NTAPI
 import Gargantext.Components.Nodes.Corpus (loadCorpusWithChild)
 import Gargantext.Ends (Frontends, url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Prelude (Unit, bind, const, discard, map, pure, show, unit, void, ($), (<>), (==))
 import Gargantext.Routes as Routes
 import Gargantext.Sessions (Session, sessionId)
-import Gargantext.Types (ID, Name)
+import Gargantext.Types (Name, ID)
 import Gargantext.Types as GT
 import Gargantext.Utils (glyphicon, glyphiconActive)
 import Gargantext.Utils.Popover as Popover
@@ -236,115 +235,6 @@ nodeActionsCpt = R.hooksComponent "G.C.F.T.N.B.nodeActions" cpt
     triggerRefresh refreshTree = refreshTree
 
 
-
-
--- | Sync Node (Graph)
-type NodeActionsGraphProps =
-  ( id             :: ID
-  , graphVersions  :: Record GraphAPI.GraphVersions
-  , session        :: Session
-  , triggerRefresh :: Unit -> Aff Unit
-  )
-
-nodeActionsGraph :: Record NodeActionsGraphProps -> R.Element
-nodeActionsGraph p = R.createElement nodeActionsGraphCpt p []
-
-nodeActionsGraphCpt :: R.Component NodeActionsGraphProps
-nodeActionsGraphCpt = R.hooksComponent "G.C.F.T.N.B.nodeActionsGraph" cpt
-  where
-    cpt { id, graphVersions, session, triggerRefresh } _ = do
-      pure $ H.div { className: "node-actions" } [
-        if graphVersions.gv_graph == Just graphVersions.gv_repo then
-          H.div {} []
-        else
-          graphUpdateButton { id, session, triggerRefresh }
-      ]
-
-type GraphUpdateButtonProps =
-  ( id :: ID
-  , session :: Session
-  , triggerRefresh :: Unit -> Aff Unit
-  )
-
-graphUpdateButton :: Record GraphUpdateButtonProps -> R.Element
-graphUpdateButton p = R.createElement graphUpdateButtonCpt p []
-
-graphUpdateButtonCpt :: R.Component GraphUpdateButtonProps
-graphUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.graphUpdateButton" cpt
-  where
-    cpt { id, session, triggerRefresh } _ = do
-      enabled <- R.useState' true
-
-      pure $ H.div { className: "update-button "
-                   <> if (fst enabled)
-                         then "enabled"
-                         else "disabled text-muted"
-                   } [ H.span { className: "fa fa-refresh"
-                     , on: { click: onClick enabled } } []
-                     ]
-      where
-        onClick (false /\ _) _ = pure unit
-        onClick (true /\ setEnabled) _ = do
-          launchAff_ $ do
-            liftEffect $ setEnabled $ const false
-            g <- GraphAPI.updateGraphVersions { graphId: id, session }
-            liftEffect $ setEnabled $ const true
-            triggerRefresh unit
-          pure unit
-
--- | Sync Node (List)
-type NodeActionsNodeListProps =
-  (
-    listId :: GT.ListId
-  , nodeId :: ID
-  , nodeType :: GT.TabSubType GT.CTabNgramType
-  , session :: Session
-  , triggerRefresh :: Unit -> Aff Unit
-  )
-
-nodeActionsNodeList :: Record NodeActionsNodeListProps -> R.Element
-nodeActionsNodeList p = R.createElement nodeActionsNodeListCpt p []
-
-nodeActionsNodeListCpt :: R.Component NodeActionsNodeListProps
-nodeActionsNodeListCpt = R.hooksComponent "G.C.F.T.N.B.nodeActionsNodeList" cpt
-  where
-    cpt props _ = do
-      pure $ H.div { className: "node-actions" } [
-        nodeListUpdateButton props
-      ]
-
-type NodeListUpdateButtonProps =
-  ( listId :: GT.ListId
-  , nodeId :: ID
-  , nodeType :: GT.TabSubType GT.CTabNgramType
-  , session :: Session
-  , triggerRefresh :: Unit -> Aff Unit
-  )
-
-nodeListUpdateButton :: Record NodeListUpdateButtonProps -> R.Element
-nodeListUpdateButton p = R.createElement nodeListUpdateButtonCpt p []
-
-nodeListUpdateButtonCpt :: R.Component NodeListUpdateButtonProps
-nodeListUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.nodeListUpdateButton" cpt
-  where
-    cpt { listId, nodeId, nodeType, session, triggerRefresh } _ = do
-      enabled <- R.useState' true
-
-      pure $ H.div { className: "update-button " 
-                     <> if (fst enabled) then "enabled" else "disabled text-muted"
-                   } [ H.span { className: "fa fa-refresh"
-                     , on: { click: onClick enabled } } []
-                     ]
-      where
-        onClick (false /\ _) _ = pure unit
-        onClick (true /\ setEnabled) _ = do
-          launchAff_ $ do
-            liftEffect $ setEnabled $ const false
-            _ <- NTAPI.updateNodeList { listId, nodeId, nodeType, session }
-            liftEffect $ setEnabled $ const true
-            triggerRefresh unit
-          pure unit
-
 -- END nodeActions
 
 mAppRouteId :: Maybe Routes.AppRoute -> Maybe Int

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

+module Gargantext.Components.Forest.Tree.Node.Tools.Sync where
+
+import Effect.Aff (Aff, launchAff_)
+import Data.Tuple.Nested ((/\))
+import Data.Maybe (Maybe(..))
+import Gargantext.Components.NgramsTable.API as NTAPI
+import Effect.Class (liftEffect)
+import Data.Tuple (fst)
+import Gargantext.Components.GraphExplorer.API as GraphAPI
+import Gargantext.Types as GT
+import Reactix.DOM.HTML as H
+import Reactix as R
+import Gargantext.Prelude (Unit, bind, const, discard, pure, unit, ($), (<>), (==))
+import Gargantext.Types (ID)
+import Gargantext.Sessions (Session)
+
+
+-- | Sync Node (Graph)
+type NodeActionsGraphProps =
+  ( id             :: ID
+  , graphVersions  :: Record GraphAPI.GraphVersions
+  , session        :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+nodeActionsGraph :: Record NodeActionsGraphProps -> R.Element
+nodeActionsGraph p = R.createElement nodeActionsGraphCpt p []
+
+nodeActionsGraphCpt :: R.Component NodeActionsGraphProps
+nodeActionsGraphCpt = R.hooksComponent "G.C.F.T.N.B.nodeActionsGraph" cpt
+  where
+    cpt { id, graphVersions, session, triggerRefresh } _ = do
+      pure $ H.div { className: "node-actions" } [
+        if graphVersions.gv_graph == Just graphVersions.gv_repo then
+          H.div {} []
+        else
+          graphUpdateButton { id, session, triggerRefresh }
+      ]
+
+type GraphUpdateButtonProps =
+  ( id :: ID
+  , session :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+graphUpdateButton :: Record GraphUpdateButtonProps -> R.Element
+graphUpdateButton p = R.createElement graphUpdateButtonCpt p []
+
+graphUpdateButtonCpt :: R.Component GraphUpdateButtonProps
+graphUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.graphUpdateButton" cpt
+  where
+    cpt { id, session, triggerRefresh } _ = do
+      enabled <- R.useState' true
+
+      pure $ H.div { className: "update-button "
+                   <> if (fst enabled)
+                         then "enabled"
+                         else "disabled text-muted"
+                   } [ H.span { className: "fa fa-refresh"
+                     , on: { click: onClick enabled } } []
+                     ]
+      where
+        onClick (false /\ _) _ = pure unit
+        onClick (true /\ setEnabled) _ = do
+          launchAff_ $ do
+            liftEffect $ setEnabled $ const false
+            g <- GraphAPI.updateGraphVersions { graphId: id, session }
+            liftEffect $ setEnabled $ const true
+            triggerRefresh unit
+          pure unit
+
+-- | Sync Node (List)
+type NodeActionsNodeListProps =
+  (
+    listId :: GT.ListId
+  , nodeId :: ID
+  , nodeType :: GT.TabSubType GT.CTabNgramType
+  , session :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+nodeActionsNodeList :: Record NodeActionsNodeListProps -> R.Element
+nodeActionsNodeList p = R.createElement nodeActionsNodeListCpt p []
+
+nodeActionsNodeListCpt :: R.Component NodeActionsNodeListProps
+nodeActionsNodeListCpt = R.hooksComponent "G.C.F.T.N.B.nodeActionsNodeList" cpt
+  where
+    cpt props _ = do
+      pure $ H.div { className: "node-actions" } [
+        nodeListUpdateButton props
+      ]
+
+type NodeListUpdateButtonProps =
+  ( listId :: GT.ListId
+  , nodeId :: ID
+  , nodeType :: GT.TabSubType GT.CTabNgramType
+  , session :: Session
+  , triggerRefresh :: Unit -> Aff Unit
+  )
+
+nodeListUpdateButton :: Record NodeListUpdateButtonProps -> R.Element
+nodeListUpdateButton p = R.createElement nodeListUpdateButtonCpt p []
+
+nodeListUpdateButtonCpt :: R.Component NodeListUpdateButtonProps
+nodeListUpdateButtonCpt = R.hooksComponent "G.C.F.T.N.B.nodeListUpdateButton" cpt
+  where
+    cpt { listId, nodeId, nodeType, session, triggerRefresh } _ = do
+      enabled <- R.useState' true
+
+      pure $ H.div { className: "update-button " 
+                     <> if (fst enabled) then "enabled" else "disabled text-muted"
+                   } [ H.span { className: "fa fa-refresh"
+                     , on: { click: onClick enabled } } []
+                     ]
+      where
+        onClick (false /\ _) _ = pure unit
+        onClick (true /\ setEnabled) _ = do
+          launchAff_ $ do
+            liftEffect $ setEnabled $ const false
+            _ <- NTAPI.updateNodeList { listId, nodeId, nodeType, session }
+            liftEffect $ setEnabled $ const true
+            triggerRefresh unit
+          pure unit