Merge branch 'dev' into dev-list-charts

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

 module Gargantext.Components.Forest.Tree.Node.Box where
 
 import Data.Array as A
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), isJust)
 import Data.String as S
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
@@ -162,7 +162,14 @@ nodePopupCpt = R.hooksComponent "G.C.F.T.N.B.nodePopupView" cpt
         mPanelAction :: R.State (Record NodePopupS)
                      -> Record NodePopupProps
                      -> R.Element
-        mPanelAction ({action: Nothing    } /\ _) _     = H.div {} []
+        mPanelAction ({action: Nothing    } /\ _) _     =
+          H.div {className:"center fa-hand-pointer-o"}
+            [ H.h4 {} [H.text " Select available actions of this node"]
+            , H.ul {} [ H.h5 {style:{color:"black"} , className: "fa-thumbs-o-up"         } [H.text " Black: yes you can use it"    ]
+                      , H.h5 {style:{color:"orange"}, className: "fa-exclamation-triangle"} [H.text " Orange: almost useable"       ]
+                      , H.h5 {style:{color:"red"}   , className: "fa-rocket"              } [H.text " Red: development in progress" ]
+                      ]
+            ]
         mPanelAction ({action: Just action} /\ _) props =
             panelAction { action
                         , dispatch : props.dispatch
@@ -199,20 +206,27 @@ buttonClickCpt = R.hooksComponent "G.C.F.T.N.B.buttonClick" cpt
                                                       (action == (Just todo)   )
                          , id: show todo
                          , title: show todo
-                         , onClick : mkEffectFn1 $ \_ -> undo *> doToDo
+                         , onClick : mkEffectFn1 $ \_ -> {-undo *>-} doToDo
                        }
                      []
                    ]
       where
-        action' = if action == (Just todo)
+        -- FIXME
+        -- If uncommenting the code below
+        --   then mpanelAction state is not
+        --        updated and leads to some bug (state of subtree 
+        --        not updated and search value not initilized)
+        --   else current action' forces the user to click twice when
+        --        changing the action button.
+        action' = if isJust action {-== (Just todo)-}
                       then Nothing
                       else (Just todo)
-
+        {- -- This shows the Help of this button
         undo = setNodePopup
              $ const (node { action = Nothing })
+        -}
 
-        doToDo = setNodePopup
-               $ const (node { action = action' })
+        doToDo = setNodePopup $ const (node { action = action' })
 
         iconAStyle :: GT.NodeType -> NodeAction -> { color      :: String
                       , paddingTop :: String

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

@@ -126,8 +126,8 @@ settingsBox FolderShared =
   SettingsBox { show : true
               , edit : true
               , doc  : Documentation FolderShared
-              , buttons : [ Add [Team, FolderShared]
-                          -- , Delete
+              , buttons : [ Add [Team, Folder]
+               --           , Delete
                           ]
               }
 

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

@@ -8,7 +8,7 @@ import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..))
 data Status = Stable | Test | Dev
 
 hasStatus :: NodeType -> NodeAction -> Status
-hasStatus _ SearchBox         = Dev
+hasStatus _ SearchBox         = Test
 hasStatus _ Refresh           = Dev
 hasStatus _ Config            = Dev
 hasStatus _ (Link  _)         = Dev