[Node team] invite multiple people without closing the modal

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

@@ -5,6 +5,7 @@ import Gargantext.Prelude
 import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..))
 import Data.Show.Generic (genericShow)
+import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Action.Types (Action)
 import Gargantext.Components.Forest.Tree.Node.Action.Types as Action
@@ -16,11 +17,11 @@ import Gargantext.Sessions (Session, post)
 import Gargantext.Types (ID)
 import Gargantext.Types as GT
 import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.SimpleJSON as GUSJ
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Simple.JSON as JSON
-import Simple.JSON.Generics as JSONG
 import Toestand as T
 
 here :: R2.Here
@@ -59,15 +60,16 @@ shareNodeCpt :: R.Component ShareNode
 shareNodeCpt = here.component "shareNode" cpt
   where
     cpt { dispatch, id } _ = do
-      isOpen <- T.useBox true
+      username' /\ username <- R2.useBox' ""
+
       pure $ Tools.panel
-                [ Tools.textInputBox { boxAction: shareAction
-                                     , boxName: "Share"
-                                     , dispatch
-                                     , id
-                                     , isOpen
-                                     , text: "username" } []
-                ] (H.div {} [])
+                [ Tools.inviteInputBox { boxAction: shareAction
+                                        , boxName: "Share"
+                                        , dispatch
+                                        , id
+                                        , text: "username"
+                                        , username } []
+                ] (H.div {} [H.text username'])
 ------------------------------------------------------------------------
 publishNode :: R2.Component SubTreeParamsIn
 publishNode = R.createElement publishNodeCpt

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

@@ -109,6 +109,61 @@ textInputBoxCpt = here.component "textInputBox" cpt where
         launchAff_ $ dispatch (boxAction $ R.readRef ref)
         T.write_ false isOpen
 
+type InviteInputBoxProps =
+  ( id       :: GT.ID
+  , dispatch :: Action -> Aff Unit
+  , text     :: String
+  , boxName  :: String
+  , boxAction :: String -> Action
+  , username :: T.Box String
+  )
+
+inviteInputBox :: R2.Component InviteInputBoxProps
+inviteInputBox = R.createElement inviteInputBoxCpt
+inviteInputBoxCpt :: R.Component InviteInputBoxProps
+inviteInputBoxCpt = here.component "textInputBox" cpt where
+  cpt { boxAction, boxName, dispatch, text, username } _ =
+    content <$> R.useRef text
+    where
+      content renameNodeNameRef =
+        H.div
+        { className: "d-flex align-items-center" }
+        [
+          textInput renameNodeNameRef
+        ,
+          B.wad_ [ "d-inline-block", "w-3" ]
+        ,
+          submitBtn renameNodeNameRef
+        ]
+
+      textInput renameNodeNameRef =
+        H.div
+        {}
+        [
+          inputWithEnter
+          { autoFocus: true
+          , className: "form-control"
+          , defaultValue: text
+          , onBlur: R.setRef renameNodeNameRef
+          , onEnter: submit renameNodeNameRef
+          , onValueChanged: R.setRef renameNodeNameRef
+          , placeholder: (boxName <> " Node")
+          , type: "text"
+          }
+        ]
+
+      submitBtn renameNodeNameRef =
+        B.iconButton
+        { callback: submit renameNodeNameRef
+        , title: "Submit"
+        , name: "plus"
+        , elevation: Level1
+        }
+
+      submit ref _ = do
+        T.write_ ("Invited " <> R.readRef ref <> " to the team") username
+        launchAff_ $ dispatch (boxAction $ R.readRef ref)
+
 type DefaultText = String
 
 formEdit :: forall prev next