[tree] add support for team highlight in tree

src/Gargantext/Components/Forest/Tree.purs

@@ -166,63 +166,65 @@ type ToHtmlProps =
   )
 
 toHtml :: Record ToHtmlProps -> R.Element
-toHtml p@{ asyncTasks
-         , frontends
-         , mCurrentRoute
-         , openNodes
-         , reload: reload@(_ /\ setReload)
-         , session
-         , tasks: tasks@{ onTaskAdd
-                        , onTaskFinish
-                        , tasks: tasks'
-                        }
-         , tree: tree@(NTree (LNode { id
-                                    , name
-                                    , nodeType
-                                    }
+toHtml p = R.createElement toHtmlCpt p []
+
+toHtmlCpt :: R.Component ToHtmlProps
+toHtmlCpt = R.hooksComponentWithModule thisModule "toHtml" cpt
+  where
+    cpt p@{ asyncTasks
+          , frontends
+          , mCurrentRoute
+          , openNodes
+          , reload: reload@(_ /\ setReload)
+          , session
+          , tasks: tasks@{ onTaskAdd
+                         , onTaskFinish
+                         , tasks: tasks'
+                         }
+          , tree: tree@(NTree (LNode { id
+                                     , name
+                                     , nodeType
+                                     }
                               ) ary
+                       )
+          , handed
+          } _ = do
+      let nodeId               = mkNodeId session id
+      let folderIsOpen         = Set.member nodeId (fst openNodes)
+      let setFn                = if folderIsOpen then Set.delete else Set.insert
+      let toggleFolderIsOpen _ = (snd openNodes) (setFn nodeId)
+      let folderOpen           = Tuple folderIsOpen toggleFolderIsOpen
+
+      let withId (NTree (LNode {id: id'}) _) = id'
+
+      pure $ H.li { className: if A.null ary then "no-children" else "with-children" } $
+        [ nodeMainSpan (A.null ary)
+          { id
+          , dispatch: pAction
+          , folderOpen
+          , frontends
+          , handed
+          , mCurrentRoute
+          , name
+          , nodeType
+          , session
+          , tasks
+          } ]
+        <> childNodes ( Record.merge commonProps
+                        { asyncTasks
+                        , children: if isPublic nodeType
+                                    then map (\t -> map (\(LNode n@{ nodeType:nt } )
+                                                         -> (LNode (n { nodeType= publicize nt }))
+                                                        ) t) ary
+                                    else ary
+                        , folderOpen
+                        , handed
+                        }
                       )
-         , 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
-        let nodeId               = mkNodeId session id
-        let folderIsOpen         = Set.member nodeId (fst openNodes)
-        let setFn                = if folderIsOpen then Set.delete else Set.insert
-        let toggleFolderIsOpen _ = (snd openNodes) (setFn nodeId)
-        let folderOpen           = Tuple folderIsOpen toggleFolderIsOpen
-
-        let withId (NTree (LNode {id: id'}) _) = id'
-
-        pure $ H.li { className: if A.null ary then "no-children" else "with-children" } $
-          [ nodeMainSpan (A.null ary) 
-                         { id
-                         , dispatch: pAction
-                         , folderOpen
-                         , frontends
-                         , handed
-                         , mCurrentRoute
-                         , name
-                         , nodeType
-                         , session
-                         , tasks
-                         } ]
-          <> childNodes ( Record.merge commonProps
-                          { asyncTasks
-                          , children: if isPublic nodeType
-                                         then map (\t -> map (\(LNode n@{ nodeType:nt } )
-                                                               -> (LNode (n { nodeType= publicize nt }))
-                                                            ) t) ary
-                                         else ary
-                          , folderOpen
-                          , 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
-    | PGraphExplorer SessionId Int
-    | Dashboard      SessionId Int
-    | Texts          SessionId Int
-    | Lists          SessionId Int
-  | Annuaire SessionId Int
-    | UserPage       SessionId Int
-    | ContactPage    SessionId Int Int
-  | RouteFrameWrite SessionId Int
-  | RouteFrameCalc  SessionId Int
+  | Home
+  | Lists          SessionId Int
+  | Login
+  | PGraphExplorer SessionId Int
   | RouteFile       SessionId Int
+  | RouteFrameCalc  SessionId Int
+  | RouteFrameWrite SessionId Int
+  | Team SessionId Int
+  | Texts          SessionId Int
+  | UserPage       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