[Team management] Start moving into box

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

+module Gargantext.Components.Forest.Tree.Node.Action.ManageTeam where
+
+import Gargantext.Prelude
+
+import Gargantext.Components.Forest.Tree.Node.Tools (panel)
+import Gargantext.Sessions (Session(..))
+import Gargantext.Types (ID, NodeType)
+import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
+
+here :: R2.Here
+here = R2.here "Gargantext.Components.Forest.Tree.Node.Action.ManageTeam"
+
+type ActionManageTeam = (
+  id       :: ID
+, nodeType :: NodeType
+, session  :: Session
+)
+
+actionManageTeam :: R2.Component ActionManageTeam
+actionManageTeam = R.createElement actionManageTeamCpt
+
+actionManageTeamCpt :: R.Component ActionManageTeam
+actionManageTeamCpt = here.component "actionManageTeam" cpt where
+  cpt _ _ = do
+    pure $ H.text "todo"

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

@@ -25,6 +25,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
 import Gargantext.Components.Forest.Tree.Node.Action.Update (update)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload)
 import Gargantext.Components.Forest.Tree.Node.Action.WriteNodesDocuments (actionWriteNodesDocuments)
+import Gargantext.Components.Forest.Tree.Node.Action.ManageTeam (actionManageTeam)
 import Gargantext.Components.Forest.Tree.Node.Box.Types (NodePopupProps, NodePopupS)
 import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
 import Gargantext.Components.Forest.Tree.Node.Status (Status(..), hasStatus)
@@ -186,6 +187,7 @@ panelActionCpt = here.component "panelAction" cpt
     cpt { action: Download, id, nodeType, session}         _ = pure $ actionDownload { id, nodeType, session } []
     cpt { action: Upload, dispatch, id, nodeType, session} _ = pure $ actionUpload { dispatch, id, nodeType, session } []
     cpt { action: Delete, nodeType, dispatch}              _ = pure $ actionDelete { dispatch, nodeType } []
+    cpt { action: ManageTeam, nodeType, id, session}       _ = pure $ actionManageTeam { id, nodeType, session } []
     cpt { action: Add xs, dispatch, id, name, nodeType} _ =
       pure $ addNodeView {dispatch, id, name, nodeType, nodeTypes: xs} []
     cpt { action: Refresh , dispatch, nodeType } _ = pure $ update { dispatch, nodeType } []

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

@@ -16,6 +16,7 @@ data NodeAction = Documentation NodeType
                 | Download | Upload | Refresh | Config
                 | Delete
                 | Share
+                | ManageTeam
                 | Publish { subTreeParams :: SubTreeParams }
                 | Add    (Array NodeType)
                 | Merge { subTreeParams :: SubTreeParams }
@@ -37,6 +38,7 @@ instance Eq NodeAction where
   eq Clone Clone                             = true
   eq Delete Delete                           = true
   eq Share Share                             = true
+  eq ManageTeam ManageTeam                   = true
   eq (Link x) (Link y)                       = x == y
   eq (Add  x) (Add  y)                       = x == y
   eq (Merge x) (Merge y)                     = x == y
@@ -57,6 +59,7 @@ instance Show NodeAction where
   show Clone               = "Clone"
   show Delete              = "Delete"
   show Share               = "Share"
+  show ManageTeam          = "Team"
   show Config              = "Config"
   show (Link _)            = "Link to " -- <> show x
   show (Add _)             = "Add Child" -- foldl (\a b -> a <> show b) "Add " xs
@@ -78,6 +81,7 @@ glyphiconNodeAction (Merge _)           = "random"
 glyphiconNodeAction Refresh             = "refresh"
 glyphiconNodeAction Config              = "wrench"
 glyphiconNodeAction Share               = "user-plus"
+glyphiconNodeAction ManageTeam          = "users"
 glyphiconNodeAction AddingContact       = "user-plus"
 glyphiconNodeAction (Move _)            = "share-square-o"
 glyphiconNodeAction (Publish _)         = fldr FolderPublic true
@@ -137,6 +141,7 @@ settingsBox Team =
                                 , NodeFrameVisio
                                 ]
                           , Share
+                          , ManageTeam
                           , Delete
                           ]
               }