[FIX] when nodetypes <= 1

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

 module Gargantext.Components.Forest.Tree.Node.Action.Add where
 
 import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
-import Data.Array (head)
+import Data.Array (head, length)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Settings (SettingsBox(..), settingsBox)
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, formEdit, formChoiceSafe, panel)
-import Gargantext.Prelude (Unit, bind, pure, show, ($), (<>))
+import Gargantext.Prelude (Unit, bind, pure, show, ($), (<>), (>))
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session, post)
 import Gargantext.Types  as GT
@@ -65,13 +65,22 @@ addNodeView p@{ dispatch, nodeType, nodeTypes } = R.createElement el p []
 
       let 
           SettingsBox {edit} = settingsBox nt
-          maybeChoose = [ formChoiceSafe nodeTypes Error setNodeType ]
+          (maybeChoose /\ nt') = if length nodeTypes > 1
+                           then ([ formChoiceSafe nodeTypes Error setNodeType ] /\ nt)
+                           else ([H.div {} [H.text $ "Creating a node of type "
+                                                  <> show defaultNt
+                                                  <> " with name:"
+                                           ]
+                                  ] /\ defaultNt 
+                                 )
+                              where
+                                defaultNt = (fromMaybe Error $ head nodeTypes)
           maybeEdit   = [ if edit
                           then formEdit "Node Name" setNodeName
                           else H.div {} []
                         ]
 
-      pure $ panel (maybeChoose <> maybeEdit) (submitButton (AddNode name' nt) dispatch)
+      pure $ panel (maybeChoose <> maybeEdit) (submitButton (AddNode name' nt') dispatch)
 
 -- END Create Node
 

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

@@ -11,7 +11,7 @@ import Reactix as R
 import Reactix.DOM.HTML as H
 
 import Gargantext.Prelude
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
+import Gargantext.Components.Forest.Tree.Node.Action (Action)
 import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup(..), addNodeView)
 import Gargantext.Components.Forest.Tree.Node.Action.Delete (actionDelete)
 import Gargantext.Components.Forest.Tree.Node.Action.Documentation (actionDoc)
@@ -28,7 +28,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNode)
 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)
-import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT, submitButton)
+import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT)
 import Gargantext.Sessions (Session)
 import Gargantext.Types (Name, ID)
 import Gargantext.Types as GT

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

@@ -167,17 +167,22 @@ formChoice nodeTypes defaultNodeType setNodeType =
 -- | Button Form
 -- FIXME: currently needs a click from the user (by default, we could avoid such click)
 formButton :: forall a b c
-           .    a
+           . Show a
+           =>   a
            -> ((b -> a) -> Effect c)
            -> R.Element
 formButton nodeType setNodeType =
- H.button { className : "btn btn-primary center"
+  H.div {} [ H.text $ "Confirm the selection of: " <> show nodeType
+           , bouton
+           ]
+    where
+      bouton = H.button { className : "cold-md-5 btn btn-primary center"
                         , type : "button"
                         , title: "Form Button"
-          , style : { width: "50%" }
+                        , style : { width: "100%" }
                         , onClick : mkEffectFn1
                                   $ \_ -> setNodeType ( const nodeType )
-          } [H.text $ "Go !"]
+                        } [H.text $ "Confirmation"]
 
 ------------------------------------------------------------------------
 ------------------------------------------------------------------------