[tree] add support for team highlight in tree

src/Gargantext/Components/Forest/Tree.purs

@@ -166,7 +166,12 @@ type ToHtmlProps =
   )
 
 toHtml :: Record ToHtmlProps -> R.Element
-toHtml p@{ asyncTasks
+toHtml p = R.createElement toHtmlCpt p []
+
+toHtmlCpt :: R.Component ToHtmlProps
+toHtmlCpt = R.hooksComponentWithModule thisModule "toHtml" cpt
+  where
+    cpt p@{ asyncTasks
           , frontends
           , mCurrentRoute
           , openNodes
@@ -183,14 +188,7 @@ toHtml p@{ asyncTasks
                               ) ary
                        )
           , handed
-         } =
-  R.createElement el {} []
-    where
-      el          = R.hooksComponentWithModule thisModule "nodeView" cpt
-      commonProps = RecordE.pick p :: Record CommonProps
-      pAction a   = performAction a (RecordE.pick p :: Record PerformActionProps)
-
-      cpt _ _ = do
+          } _ = do
       let nodeId               = mkNodeId session id
       let folderIsOpen         = Set.member nodeId (fst openNodes)
       let setFn                = if folderIsOpen then Set.delete else Set.insert
@@ -223,6 +221,10 @@ toHtml p@{ asyncTasks
                         , handed
                         }
                       )
+      where
+        commonProps = RecordE.pick p :: Record CommonProps
+        pAction a   = performAction a (RecordE.pick p :: Record PerformActionProps)
+
 
 
 type ChildNodesProps =

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

@@ -57,7 +57,7 @@ nodeMainSpan :: IsLeaf
 nodeMainSpan isLeaf p@{ dispatch, folderOpen, frontends, handed, session } = R.createElement el p []
   where
     el = R.hooksComponentWithModule thisModule "nodeMainSpan" cpt
-    cpt props@{id, mCurrentRoute, name, nodeType, tasks: { onTaskFinish, tasks }} _ = do
+    cpt props@{ id, mCurrentRoute, name, nodeType, tasks: { onTaskFinish, tasks } } _ = do
       -- only 1 popup at a time is allowed to be opened
       droppedFile   <- R.useState' (Nothing :: Maybe DroppedFile)
       isDragOver    <- R.useState' false
@@ -76,10 +76,7 @@ nodeMainSpan isLeaf p@{ dispatch, folderOpen, frontends, handed, session } = R.c
                 , nodeLink { frontends
                            , id
                            , folderOpen
-                           , isSelected: mCurrentRoute
-                             == Routes.nodeTypeAppRoute
-                             nodeType
-                             (sessionId session) id
+                           , isSelected: mCurrentRoute == Routes.nodeTypeAppRoute nodeType (sessionId session) id
                            , name: name' props
                            , nodeType
                            , session

src/Gargantext/Components/Nodes/Corpus.purs

@@ -30,6 +30,7 @@ import Gargantext.Types (NodeType(..), AffTableResult)
 import Gargantext.Utils.Crypto as Crypto
 import Gargantext.Utils.Reactix as R2
 
+thisModule :: String
 thisModule = "Gargantext.Components.Nodes.Corpus"
 
 type Props =

src/Gargantext/Routes.purs

@@ -10,26 +10,26 @@ import Gargantext.Types (ChartOpts, ChartType, CorpusMetricOpts, CTabNgramType,
 import Gargantext.Types as GT
 
 data AppRoute
-  = Home
-  | Login
+  = Annuaire SessionId Int
+  | ContactPage    SessionId Int Int
+  | Corpus SessionId Int
+  | CorpusDocument SessionId Int Int Int
+  | Dashboard      SessionId Int
+  | Document       SessionId Int Int
   | Folder SessionId Int
   | FolderPrivate SessionId Int
   | FolderPublic SessionId Int
   | FolderShared SessionId Int
-    | Team SessionId Int
-  | Corpus SessionId Int
-    | Document       SessionId Int Int
-    | CorpusDocument SessionId Int Int Int
+  | Home
+  | Lists          SessionId Int
+  | Login
   | PGraphExplorer SessionId Int
-    | Dashboard      SessionId Int
+  | RouteFile       SessionId Int
+  | RouteFrameCalc  SessionId Int
+  | RouteFrameWrite SessionId Int
+  | Team SessionId Int
   | Texts          SessionId Int
-    | Lists          SessionId Int
-  | Annuaire SessionId Int
   | UserPage       SessionId Int
-    | ContactPage    SessionId Int Int
-  | RouteFrameWrite SessionId Int
-  | RouteFrameCalc  SessionId Int
-  | RouteFile       SessionId Int
 
 
 derive instance eqAppRoute :: Eq AppRoute
@@ -104,14 +104,17 @@ appPath (RouteFile s i)       = "file/"      <> show s <> "/" <> show i
 
 nodeTypeAppRoute :: NodeType -> SessionId -> Int -> Maybe AppRoute
 nodeTypeAppRoute GT.Annuaire s i      = Just $ Annuaire s i
-nodeTypeAppRoute GT.NodeContact s i   = Just $ Annuaire s i
 nodeTypeAppRoute GT.Corpus s i        = Just $ Corpus s i
 nodeTypeAppRoute GT.Dashboard s i     = Just $ Dashboard s i
-nodeTypeAppRoute GT.Graph s i         = Just $ PGraphExplorer s i
-nodeTypeAppRoute GT.NodeList s i      = Just $ Lists s i
+nodeTypeAppRoute GT.Folder s i        = Just $ Folder s i
 nodeTypeAppRoute GT.FolderPrivate s i = Just $ FolderPrivate s i
 nodeTypeAppRoute GT.FolderPublic s i  = Just $ FolderPublic s i
 nodeTypeAppRoute GT.FolderShared s i  = Just $ FolderShared s i
+nodeTypeAppRoute GT.Graph s i         = Just $ PGraphExplorer s i
+nodeTypeAppRoute GT.NodeContact s i   = Just $ Annuaire s i
+nodeTypeAppRoute GT.NodeFile s i      = Just $ RouteFile s i
+nodeTypeAppRoute GT.NodeList s i      = Just $ Lists s i
 nodeTypeAppRoute GT.NodeUser s i      = Just $ UserPage s i
+nodeTypeAppRoute GT.Team s i          = Just $ Team s i
 nodeTypeAppRoute GT.Texts s i         = Just $ Texts s i
 nodeTypeAppRoute _ _ _                = Nothing

src/Gargantext/Types.purs

@@ -136,28 +136,31 @@ instance encodeJsonTabPostQuery :: EncodeJson TabPostQuery where
      ~> "query"      := post.query
      ~> jsonEmptyObject
 
-data NodeType = NodeUser
-              | Folder | FolderPrivate | FolderShared | FolderPublic
-              | Annuaire
-              | NodeContact
+data NodeType = Annuaire
               | Corpus
-              | Team
-              | Url_Document
               | Dashboard
               | Error
+              | Folder
+              | FolderPrivate
+              | FolderPublic
+              | FolderShared
               | Graph
-              | Phylo
               | Individu
               | Node
-              | Nodes
-              | Tree
+              | NodeContact
               | NodeList
+              | NodeUser
+              | Nodes
+              | Phylo
+              | Team
               | Texts
+              | Tree
+              | Url_Document
               -- TODO Optional Nodes
-              | NodeFrameWrite
+              | NodeFile
               | NodeFrameCalc
+              | NodeFrameWrite
               | NodePublic NodeType
-              | NodeFile
 
 
 derive instance eqNodeType :: Eq NodeType