[Annuaire] easy simple adding contact feat

src/Gargantext/Components/Forest/Tree.purs

@@ -24,6 +24,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Merge  (mergeNodeReq)
 import Gargantext.Components.Forest.Tree.Node.Action.Link   (linkNodeReq)
 import Gargantext.Components.Forest.Tree.Node.Action.Rename (RenameValue(..), rename)
 import Gargantext.Components.Forest.Tree.Node.Action.Share   as Share
+import Gargantext.Components.Forest.Tree.Node.Action.Contact as Contact
 import Gargantext.Components.Forest.Tree.Node.Action.Update (updateRequest)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFile)
 import Gargantext.Components.Forest.Tree.Node.Tools.FTree (FTree, LNode(..), NTree(..))
@@ -289,6 +290,7 @@ performAction (ShareTeam username) p@{ reload: (_ /\ setReload)
   do
     void $ Share.shareReq session id $ Share.ShareTeamParams {username}
 
+
 performAction (SharePublic {params}) p@{ session
                                        , openNodes: (_ /\ setOpenNodes)
                                        } =
@@ -299,6 +301,15 @@ performAction (SharePublic {params}) p@{ session
       liftEffect $ setOpenNodes (Set.insert (mkNodeId session out))
       performAction RefreshTree p
 
+
+performAction (AddContact params) p@{ reload: (_ /\ setReload)
+                                     , session
+                                     , tree: (NTree (LNode {id}) _)
+                                     } =
+    void $ Contact.contactReq session id params
+
+
+
 -------
 performAction (AddNode name nodeType) p@{ openNodes: (_ /\ setOpenNodes)
                                         , reload:    (_ /\ setReload)

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

@@ -9,7 +9,7 @@ import Gargantext.Components.Forest.Tree.Node.Tools.SubTree.Types (SubTreeOut, S
 import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), glyphiconNodeAction)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload.Types (FileType, UploadFileContents)
 import Gargantext.Components.Forest.Tree.Node.Action.Update.Types (UpdateNodeParams)
-
+import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams)
 
 type Props =
   ( dispatch :: Action -> Aff Unit
@@ -29,6 +29,7 @@ data Action = AddNode     String GT.NodeType
             | RefreshTree
 
             | ShareTeam   String
+            | AddContact  AddContactParams
             | SharePublic {params :: Maybe SubTreeOut}
             | MoveNode    {params :: Maybe SubTreeOut}
             | MergeNode   {params :: Maybe SubTreeOut}
@@ -58,6 +59,7 @@ instance showShow :: Show Action where
   show (RenameNode  _      )= "RenameNode"
   show (UpdateNode  _      )= "UpdateNode"
   show (ShareTeam   _      )= "ShareTeam"
+  show (AddContact  _      )= "AddContact"
   show (SharePublic _      )= "SharePublic"
   show (DoSearch    _      )= "SearchQuery"
   show (UploadFile  _ _ _ _)= "UploadFile"
@@ -75,6 +77,7 @@ icon (DeleteNode _)       = glyphiconNodeAction Delete
 icon (RenameNode _)       = glyphiconNodeAction Config
 icon (UpdateNode _)       = glyphiconNodeAction Refresh
 icon (ShareTeam   _)      = glyphiconNodeAction Share
+icon (AddContact  _)      = glyphiconNodeAction Share
 icon (SharePublic _ )     = glyphiconNodeAction (Publish { subTreeParams : SubTreeParams {showtypes:[], valitypes:[] }})
 icon (DoSearch   _)       = glyphiconNodeAction SearchBox
 icon (UploadFile _ _ _ _) = glyphiconNodeAction Upload
@@ -94,6 +97,7 @@ text (DeleteNode _       )= "Delete !"
 text (RenameNode  _      )= "Rename !"
 text (UpdateNode  _      )= "Update !"
 text (ShareTeam   _      )= "Share with team !"
+text (AddContact  _      )= "Add contact !"
 text (SharePublic _      )= "Publish !"
 text (DoSearch    _      )= "Launch search !"
 text (UploadFile  _ _ _ _)= "Upload File !"

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

+module Gargantext.Components.Forest.Tree.Node.Action.Contact where
+
+import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
+import Data.Argonaut as Argonaut
+import Data.Generic.Rep (class Generic)
+import Data.Generic.Rep.Show (genericShow)
+import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..))
+import Data.Tuple.Nested ((/\))
+import Effect.Aff (Aff)
+import Effect.Aff (Aff)
+import Effect.Uncurried (mkEffectFn1)
+import Gargantext.Components.Forest.Tree.Node.Action.Contact.Types (AddContactParams(..))
+import Gargantext.Components.Forest.Tree.Node.Action (Action)
+import Gargantext.Components.Forest.Tree.Node.Action (Action)
+import Gargantext.Components.Forest.Tree.Node.Action as Action
+import Gargantext.Components.Forest.Tree.Node.Action as Action
+import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
+import Gargantext.Components.Forest.Tree.Node.Tools as Tools
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (subTreeView, SubTreeParamsIn)
+import Effect.Aff (Aff, launchAff)
+import Gargantext.Utils.Reactix as R2
+import Gargantext.Prelude
+import Gargantext.Prelude (class Eq, class Read, class Show)
+import Gargantext.Routes (SessionRoute(..))
+import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, post)
+import Gargantext.Sessions (Session, put_)
+import Gargantext.Types (ID)
+import Gargantext.Types as GT
+import Gargantext.Types as GT
+import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
+import Prelude (($))
+import Reactix as R
+import Reactix as R
+import Reactix.DOM.HTML as H
+
+------------------------------------------------------------------------
+contactReq :: Session -> ID -> AddContactParams -> Aff ID
+contactReq session nodeId =
+  post session $ GR.NodeAPI GT.Annuaire (Just nodeId) "contact"
+
+------------------------------------------------------------------------
+type TextInputBoxProps =
+  ( id        :: ID
+  , dispatch  :: Action -> Aff Unit
+  , params    :: Record AddContactProps
+  , isOpen    :: R.State Boolean
+  , boxName   :: String
+  , boxAction :: AddContactParams -> Action
+  )
+
+type AddContactProps = ( firstname :: String, lastname :: String)
+
+textInputBox :: Record TextInputBoxProps -> R.Element
+textInputBox p@{ boxName, boxAction, dispatch, isOpen: (true /\ setIsOpen), params } = R.createElement el p []
+  where
+    {firstname, lastname} = params
+    el = R.hooksComponent (boxName <> "Box") cpt
+    cpt {id, params} _ = do
+      let {firstname, lastname} = params
+      stateFirstname <- R.useState' firstname
+      stateLastname  <- R.useState'  lastname
+      pure $ H.div {className: "from-group row-no-padding"}
+        [ textInput stateFirstname firstname
+        , textInput stateLastname  lastname
+        , submitBtn stateFirstname stateLastname
+        , cancelBtn
+        ]
+      where
+        textInput (_ /\ set) default =
+          H.div {className: "col-md-8"}
+          [ H.input { type: "text"
+                    , placeholder: (boxName <> " Node")
+                    , defaultValue: default
+                    , className: "form-control"
+                    , onInput: mkEffectFn1 $ set
+                                         <<< const
+                                         <<< R2.unsafeEventValue
+                    }
+          ]
+        submitBtn (val1 /\ _) (val2 /\ _) =
+          H.a {className: "btn glyphitem glyphicon glyphicon-ok col-md-2 pull-left"
+              , type: "button"
+              , onClick: mkEffectFn1 $ \_ -> do
+                    setIsOpen $ const false
+                    launchAff $ dispatch ( boxAction (AddContactParams {firstname:val1, lastname:val2} ))
+              , 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 {} _ = pure $ H.div {} []
+
+
+

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

+module Gargantext.Components.Forest.Tree.Node.Action.Contact.Types where
+
+import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
+import Data.Maybe (Maybe(..))
+import Effect.Aff (Aff)
+import Prelude (($))
+import Reactix as R
+import Gargantext.Types as GT
+import Gargantext.Types (ID)
+import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, post)
+import Data.Maybe (Maybe(..))
+import Data.Tuple.Nested ((/\))
+import Effect.Aff (Aff)
+import Gargantext.Prelude
+import Gargantext.Sessions (Session, put_)
+import Gargantext.Types as GT
+import Reactix as R
+import Reactix.DOM.HTML as H
+
+import Data.Argonaut as Argonaut
+import Data.Generic.Rep (class Generic)
+import Data.Generic.Rep.Show (genericShow)
+import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
+import Data.Maybe (Maybe(..))
+import Gargantext.Prelude (class Eq, class Read, class Show)
+
+------------------------------------------------------------------------
+data AddContactParams =
+  AddContactParams { firstname :: String 
+                   , lastname  :: String
+                   }
+
+derive instance eqAddContactParams :: Eq AddContactParams
+
+derive instance genericAddContactParams :: Generic AddContactParams _
+
+instance showAddContactParams :: Show AddContactParams where
+  show = genericShow
+
+instance decodeJsonAddContactParams :: Argonaut.DecodeJson AddContactParams where
+  decodeJson = genericSumDecodeJson
+
+instance encodeJsonAddContactParams :: Argonaut.EncodeJson AddContactParams where
+  encodeJson = genericSumEncodeJson
+
+------------------------------------------------------------------------

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)
@@ -20,6 +20,7 @@ import Gargantext.Components.Forest.Tree.Node.Action.Rename (renameAction)
 import Gargantext.Components.Forest.Tree.Node.Action.Search (actionSearch)
 import Gargantext.Components.Forest.Tree.Node.Action.Search.SearchField (defaultSearch)
 import Gargantext.Components.Forest.Tree.Node.Action.Share   as Share
+import Gargantext.Components.Forest.Tree.Node.Action.Contact as Contact
 import Gargantext.Components.Forest.Tree.Node.Action.Update (update)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload)
 import Gargantext.Components.Forest.Tree.Node.Action.Move (moveNode)
@@ -298,6 +299,18 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
                                      }
                       ]
 
+    cpt {action : AddingContact, dispatch, id, name } _ = do
+      isOpen <- R.useState' true
+      pure $ Contact.textInputBox { id
+                           , dispatch
+                           , isOpen
+                           , boxName:"addContact"
+                           , params : {firstname:"First Name", lastname: "Last Name"}
+                           , boxAction: \p -> AddContact p
+                           }
+
+
+
     cpt {action : Publish {subTreeParams}, dispatch, id, nodeType, session } _ = do
       pure $ Share.shareNode {dispatch, id, nodeType, session, subTreeParams}
 

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

@@ -26,6 +26,7 @@ data NodeAction = Documentation NodeType
                 | Move  { subTreeParams :: SubTreeParams }
                 | Link  { subTreeParams :: SubTreeParams }
                 | Clone
+                | AddingContact
 
 ------------------------------------------------------------------------
 instance eqNodeAction :: Eq NodeAction where
@@ -43,6 +44,7 @@ instance eqNodeAction :: Eq NodeAction where
   eq (Merge x) (Merge y) = x == y
   eq Config Config     = true
   eq (Publish x) (Publish y) = x == y
+  eq AddingContact AddingContact = true
   eq _ _               = false
 
 instance showNodeAction :: Show NodeAction where
@@ -60,6 +62,7 @@ instance showNodeAction :: Show NodeAction where
   show (Add xs)          = foldl (\a b -> a <> show b) "Add " xs
   show (Merge t)         = "Merge with subtree" <> show t
   show (Publish x)       = "Publish" <> show x
+  show AddingContact     = "AddingContact"
 
 glyphiconNodeAction :: NodeAction -> String
 glyphiconNodeAction (Documentation _) = "question-circle"
@@ -73,6 +76,7 @@ glyphiconNodeAction (Merge _)         = "random"
 glyphiconNodeAction Refresh           = "refresh"
 glyphiconNodeAction Config            = "wrench"
 glyphiconNodeAction Share             = "user-plus"
+glyphiconNodeAction AddingContact     = "user-plus"
 glyphiconNodeAction (Move _)          = "share-square-o"
 glyphiconNodeAction (Publish _)       = fldr FolderPublic true
 glyphiconNodeAction _                 = ""
@@ -265,6 +269,7 @@ settingsBox Annuaire =
               , edit : true
               , doc  : Documentation Annuaire
               , buttons : [ Upload
+                          , AddingContact
                           , Move moveParameters
                           , Delete
                           ]