[FOREST] Ergo, Doc, Design.

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

@@ -51,17 +51,17 @@ settingsBox FolderPrivate = SettingsBox { show: true
 settingsBox FolderShared = SettingsBox { show: true
                                         , edit : false
                                         , buttons : [Documentation FolderShared
-                                                    --, Team
+                                                    -- , Add [Folder, Team]
                                                     , Delete]
                                         }
 
 settingsBox FolderPublic = SettingsBox { show: true
                                         , edit : false
                                         , buttons : [Documentation FolderPublic
-                                                    , SearchBox
+                                                    {-, SearchBox
                                                     , Add [ Corpus
                                                           , Folder
-                                                          ]
+                                                          ]-}
                                                     , Delete
                                                     ]
                                         }
@@ -135,7 +135,7 @@ data NodeAction = Documentation NodeType
                 | SearchBox
                 | Download | Upload | Refresh
                 | Move     | Clone  | Delete
-                | Share    | Team
+                | Share
                 | Add (Array NodeType)
 
 
@@ -149,7 +149,6 @@ instance eqNodeAction :: Eq NodeAction where
   eq Clone Clone       = true
   eq Delete Delete     = true
   eq Share Share       = true
-  eq Team  Team        = true
   eq (Add x) (Add y)   = true && (x == y)
   eq _ _               = false
 

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

@@ -54,7 +54,7 @@ createNodeView d p@{nodeType} (_ /\ setPopupOpen) nodeTypes = R.createElement el
   where
     el = R.hooksComponent "CreateNodeView" cpt
     cpt {id, name} _ = do
-      nodeName <- R.useState' ""
+      nodeName <- R.useState' "Default Name"
       nodeType <- R.useState' $ fromMaybe NodeUser $ head nodeTypes
       pure $ H.div {}
           [ panelBody   readNodeType nodeName nodeType
@@ -79,7 +79,7 @@ createNodeView d p@{nodeType} (_ /\ setPopupOpen) nodeTypes = R.createElement el
                                 H.div {className: "form-group"}
                                       [ H.input { type: "text"
                                                 , placeholder: "Node name"
-                                                , defaultValue: "Chose name"
+                                                , defaultValue: "Write Name here"
                                                 , className: "form-control"
                                                 , onInput: mkEffectFn1 $ \e -> setNodeName
                                                                        $ const

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

@@ -348,6 +348,13 @@ panelAction :: (Action -> Aff Unit)
             -> R.State (Maybe NodePopup)
             -> R.Element
 panelAction d {id,name,nodeType,action, session} p = case action of
+    (Just (Documentation NodeUser))      -> R.fragment [H.div {} [ H.p {} [ H.text "This account is personal"]
+                                                                 , H.p {} [ H.text "Its uses depends on the instances terms of uses."]
+                                                                 ]
+                                                        ]
+    (Just (Documentation FolderPrivate)) -> R.fragment [H.div {} [H.text $ "This folder and its children are private only!"]]
+    (Just (Documentation FolderPublic))  -> R.fragment [H.div {} [H.text $ "Soon, you will be able to build public folders to share your work with the world!"]]
+    (Just (Documentation FolderShared))  -> R.fragment [H.div {} [H.text $ "Soon, you will be able to build teams folders to share your work"]]
     (Just (Documentation x)) -> R.fragment [ H.div {} [H.text $ "More information on" <> show nodeType]]
     (Just SearchBox)         -> R.fragment [ H.div {} [ H.text $ "Search and create a private corpus with the search query as corpus name." ]
                                            , searchBar {session, databases:allDatabases}

src/Gargantext/Types.purs

@@ -127,6 +127,7 @@ data NodeType = NodeUser
               | Annuaire
               | NodeContact
               | Corpus
+              | Team
               | Url_Document
               | Dashboard
               | Error
@@ -161,6 +162,7 @@ instance showNodeType :: Show NodeType where
   show Node          = "Node"
   show Nodes         = "Nodes"
   show Tree          = "NodeTree"
+  show Team          = "Team"
   show NodeList      = "NodeList"
   show Texts         = "NodeTexts"
 
@@ -183,6 +185,7 @@ readNodeType "Nodes"         = Nodes
 readNodeType "NodeCorpus"    = Corpus
 readNodeType "NodeContact"   = NodeContact
 readNodeType "Tree"          = Tree
+readNodeType "Team"          = Team
 readNodeType "NodeList"      = NodeList
 readNodeType "NodeTexts"     = Texts
 readNodeType _               = Error
@@ -223,6 +226,7 @@ nodeTypePath NodeContact = "contact"
 nodeTypePath Tree      = "tree"
 nodeTypePath NodeList  = "lists"
 nodeTypePath Texts     = "texts"
+nodeTypePath Team      = "team"
 ------------------------------------------------------------
 
 type ListId = Int