[FEAT] Share node front implemented

src/Gargantext/Components/Forest/Tree.purs

@@ -13,6 +13,7 @@ import Gargantext.Components.Forest.Tree.Node.Action (Action(..),deleteNode)
 import Gargantext.Components.Forest.Tree.Node.Action.Add (AddNodeValue(..), addNode)
 import Gargantext.Components.Forest.Tree.Node.Action.CopyFrom (loadNode)
 import Gargantext.Components.Forest.Tree.Node.Action.Rename (RenameValue(..), rename)
+import Gargantext.Components.Forest.Tree.Node.Action.Share (ShareValue(..), share)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFile)
 import Gargantext.Components.Forest.Tree.Node.Box (nodeMainSpan, Tasks, tasksStruct)
 import Gargantext.Components.Forest.Tree.Node.FTree (FTree, LNode(..), NTree(..))
@@ -204,6 +205,11 @@ performAction p@{ reload: (_ /\ setReload)
   void $ rename session id $ RenameValue {text:name}
   performAction p RefreshTree
 
+performAction p@{ reload: (_ /\ setReload)
+                , session
+                , tree: (NTree (LNode {id}) _) } (ShareNode username)  = do
+  void $ share session id $ ShareValue {text:username}
+
 performAction p@{ openNodes: (_ /\ setOpenNodes)
                 , reload:    (_ /\ setReload)
                 , session

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

@@ -22,6 +22,7 @@ data Action = AddNode String GT.NodeType
             | SearchQuery GT.AsyncTaskWithType
             | UploadFile  GT.NodeType FileType (Maybe String) UploadFileContents
             | RefreshTree
+            | ShareNode   String
 
 -----------------------------------------------------
 -- TODO Delete with asyncTaskWithType

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

+module Gargantext.Components.Forest.Tree.Node.Action.Share where
+
+import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
+import Data.Maybe (Maybe(..))
+import Effect.Aff (Aff)
+import Prelude (($))
+import Reactix as R
+import Gargantext.Components.Forest.Tree.Node.Action
+import Gargantext.Types as GT
+import Gargantext.Types (ID)
+import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, put)
+import Gargantext.Components.Forest.Tree.Node.Tools.TextInputBox as Tools
+
+------------------------------------------------------------------------
+share :: Session -> ID -> ShareValue -> Aff (Array ID)
+share session nodeId =
+  put session $ GR.NodeAPI GT.Node (Just nodeId) "share"
+
+shareAction :: String -> Action
+shareAction username = ShareNode username
+
+------------------------------------------------------------------------
+newtype ShareValue = ShareValue
+  { text :: String }
+
+instance encodeJsonShareValue :: EncodeJson ShareValue where
+  encodeJson (ShareValue {text})
+     = "username" := text
+    ~> jsonEmptyObject
+
+------------------------------------------------------------------------
+textInputBox :: Record Tools.TextInputBoxProps -> R.Element
+textInputBox  = Tools.textInputBox
+

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

@@ -29,6 +29,7 @@ import Gargantext.Components.Forest.Tree.Node.Action (Action(..), FileType(..),
 import Gargantext.Components.Forest.Tree.Node.Action.Add (NodePopup(..), addNodeView)
 import Gargantext.Components.Forest.Tree.Node.Action.CopyFrom (copyFromCorpusView)
 import Gargantext.Components.Forest.Tree.Node.Action.Rename (textInputBox, renameAction)
+import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
 import Gargantext.Components.Forest.Tree.Node.Action.Update
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (DroppedFile(..), uploadFileView, fileTypeView, uploadTermListView)
 import Gargantext.Components.Forest.Tree.Node.ProgressBar (asyncProgressBar, BarType(..))
@@ -581,6 +582,15 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
                                  <> "to link the corpus with your Annuaire"
                                  <> " (and reciprocally)."
 
+    cpt {action : Share, dispatch, id, name } _ = do
+      isOpen <- R.useState' true
+      pure $ H.div {} [ textInputBox { boxAction: Share.shareAction
+                                   , boxName: "Share"
+                                   , dispatch
+                                   , id
+                                   , text: "username"
+                                   , isOpen
+                                   } ]
     cpt props@{action: SearchBox, search, session, dispatch, nodePopup} _ =
       actionSearch search session dispatch nodePopup
 

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

+module Gargantext.Components.Forest.Tree.Node.Tools.TextInputBox where
+
+import Data.Tuple.Nested ((/\))
+import Effect.Aff (Aff, launchAff)
+import Effect.Uncurried (mkEffectFn1)
+import Gargantext.Components.Forest.Tree.Node.Action
+import Gargantext.Types (ID)
+import Gargantext.Utils.Reactix as R2
+import Prelude (Unit, bind, const, discard, pure, ($), (<<<), (<>))
+import Reactix as R
+import Reactix.DOM.HTML as H
+
+------------------------------------------------------------------------
+-- | START Rename Box
+type TextInputBoxProps =
+  ( id       :: ID
+  , dispatch :: Action -> Aff Unit
+  , text     :: String
+  , isOpen   :: R.State Boolean
+  , boxName  :: String
+  , boxAction :: String -> Action
+  )
+
+textInputBox :: Record TextInputBoxProps -> R.Element
+textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen) } = R.createElement el p []
+  where
+    el = R.hooksComponent (boxName <> "Box") cpt
+    cpt {id, text} _ = do
+      renameNodeName <- R.useState' text
+      pure $ H.div {className: "from-group row-no-padding"}
+        [ textInput renameNodeName
+        , submitBtn   renameNodeName
+        , cancelBtn
+        ]
+      where
+        textInput (_ /\ setRenameNodeName) =
+          H.div {className: "col-md-8"}
+          [ H.input { type: "text"
+                    , placeholder: (boxName <> " Node")
+                    , defaultValue: text
+                    , className: "form-control"
+                    , onInput: mkEffectFn1 $ setRenameNodeName
+                                         <<< const
+                                         <<< R2.unsafeEventValue
+                    }
+          ]
+        submitBtn (newName /\ _) =
+          H.a {className: "btn glyphitem glyphicon glyphicon-ok col-md-2 pull-left"
+              , type: "button"
+              , onClick: mkEffectFn1 $ \_ -> do
+                    setIsOpen $ const false
+                    launchAff $ dispatch ( boxAction newName )
+              , title: "Submit"
+              } []
+        cancelBtn =
+          H.a {className: "btn text-danger glyphitem glyphicon glyphicon-remove col-md-2 pull-left"
+              , type: "button"
+              , onClick: mkEffectFn1 $ \_ -> setIsOpen $ const false
+              , title: "Cancel"
+              } []
+textInputBox p@{ boxName, isOpen: (false /\ _) } = R.createElement el p []
+  where
+    el = R.hooksComponent (boxName <> "Box") cpt
+    cpt {text} _ = pure $ H.div {} []
+
+-- | END Rename Box
+