WIP [graphql] endpoints for annuaire contacts and contact user

NOTE This doesn't compile. The User page and Annuaire contacts need to
be split as they use completely different endpoints (getUserInfo and
getAnnuaireContact). Even though the returned data looks
similar (HyperdataContact).

src/Gargantext/Components/GraphQL.purs

@@ -10,6 +10,7 @@ import Effect (Effect)
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
 import Foreign (unsafeToForeign, ForeignError)
+import Gargantext.Components.GraphQL.Annuaire as GQLA
 import Gargantext.Components.GraphQL.IMT as GQLIMT
 import Gargantext.Components.GraphQL.Node (Node)
 import Gargantext.Components.GraphQL.Tree (TreeFirstLevel)
@@ -69,7 +70,8 @@ queryGql session name q = do
 
 -- Schema
 type Schema
-  = { imt_schools :: {} ==> Array GQLIMT.School
+  = { annuaire_contacts :: { contact_id :: Int } ==> Array GQLA.AnnuaireContact
+    , imt_schools :: {} ==> Array GQLIMT.School
     , node_parent :: { node_id :: Int, parent_type :: String } ==> Array Node  -- TODO: parent_type :: NodeType
     , user_infos :: { user_id :: Int } ==> Array UserInfo
     , users :: { user_id :: Int } ==> Array User

src/Gargantext/Components/GraphQL/Annuaire.purs

+module Gargantext.Components.GraphQL.Annuaire where
+
+import Gargantext.Prelude
+
+import Data.Array as A
+import Data.Lens (Lens', lens)
+import Data.Maybe (Maybe(..), fromMaybe, maybe)
+import GraphQL.Client.Args (NotNull, (=>>))
+import GraphQL.Client.Variable (Var(..))
+
+
+type AnnuaireContact
+  = { ac_id        :: Int
+    , ac_firstName :: Maybe String
+    , ac_lastName  :: Maybe String }
+
+annuaireContactQuery =
+  { annuaire_contacts: { contact_id: Var :: _ "id" Int } =>>
+    { ac_id: unit
+    , ac_firstName: unit
+    , ac_lastName: unit
+    }
+  }
+
+_ac_firstName :: Lens' AnnuaireContact String
+_ac_firstName = lens getter setter
+  where
+    getter ({ ac_firstName: val }) = fromMaybe "" val
+    setter ui val = ui { ac_firstName = Just val }
+_ac_lastName :: Lens' AnnuaireContact String
+_ac_lastName = lens getter setter
+  where
+    getter ({ ac_lastName: val }) = fromMaybe "" val
+    setter ui val = ui { ac_lastName = Just val }
+

src/Gargantext/Components/GraphQL/Endpoints.purs

 module Gargantext.Components.GraphQL.Endpoints where
 
+import Gargantext.Components.GraphQL.Annuaire
 import Gargantext.Components.GraphQL.Node
 import Gargantext.Components.GraphQL.User
 import Gargantext.Components.GraphQL.Tree
@@ -41,6 +42,15 @@ getNodeParent session nodeId parentType = do
   liftEffect $ here.log2 "[getNodeParent] node_parent" node_parent
   pure node_parent
 
+getAnnuaireContact :: Session -> Int -> AffRESTError AnnuaireContact
+getAnnuaireContact session id = do
+  { annuaire_contacts } <- queryGql session "get annuaire contacts" $ annuaireContactQuery `withVars` { id }
+  liftEffect $ here.log2 "[getAnnuaireContact] annuaire_contacts" annuaire_contacts
+  pure $ case A.head annuaire_contacts of
+    Nothing -> Left (CustomError $ "contact with id " <> show id <> " not found")
+    -- NOTE Contact is at G.C.N.A.U.C.Types
+    Just ui -> Right ui
+
 getUserInfo :: Session -> Int -> AffRESTError UserInfo
 getUserInfo session id = do
   { user_infos } <- queryGql session "get user infos" $ userInfoQuery `withVars` { id }

src/Gargantext/Components/Nodes/Annuaire/User/Contact.purs

@@ -66,7 +66,7 @@ displayCpt = here.component "display" cpt
         ]
 
 -- | TODO format data in better design (UI) shape
-contactInfos :: UserInfo -> (UserInfo -> Effect Unit) -> Array R.Element
+contactInfos :: AnnuaireContact -> (AnnuaireContact -> Effect Unit) -> Array R.Element
 contactInfos userInfo onUpdateUserInfo = item <$> contactInfoItems where
   item { label, lens, defaultVal } =
     contactInfoItem { defaultVal, label, lens, onUpdateUserInfo, userInfo }
@@ -250,12 +250,12 @@ contactLayoutWithKeyCpt = here.component "contactLayoutWithKey" cpt where
       cacheState <- T.useBox LT.CacheOn
       useLoader { errorHandler
                 --, loader: getAnnuaireContact session annuaireId
-                , loader: getUserInfo session
+                , loader: getAnnuaireContact session
                 , path: nodeId
-                , render: \userInfo@{ ui_username } ->
+                , render: \annuaireContact@{ ac_id } ->
                     H.ul { className: "col-md-12 list-group" }
-                      [ display { title: fromMaybe "no name" (Just ui_username) }
-                        (contactInfos userInfo (onUpdateUserInfo reload))
+                      [ display { title: show ac_id }
+                        (contactInfos userInfo (onUpdateAnnuaireContact reload))
                       , Tabs.tabs
                         { boxes
                         , cacheState
@@ -269,11 +269,12 @@ contactLayoutWithKeyCpt = here.component "contactLayoutWithKey" cpt where
                 }
       where
         errorHandler = logRESTError here "[contactLayoutWithKey]"
-        onUpdateUserInfo :: T2.ReloadS -> UserInfo -> Effect Unit
-        onUpdateUserInfo reload ui = do
-          launchAff_ $ do
-            _ <- saveUserInfo session nodeId ui
-            liftEffect (T2.reload reload)
+        onUpdateAnnuaireContact :: T2.ReloadS -> AnnuaireContact -> Effect Unit
+        onUpdateAnnuaireContact _ _ = pure unit
+        -- onUpdateAnnuaireContact reload ui = do
+        --   launchAff_ $ do
+        --     _ <- saveAnnuaireContact session nodeId ui
+        --     liftEffect (T2.reload reload)
 
 getAnnuaireContact :: Session -> Int -> Int -> AffRESTError ContactData'
 getAnnuaireContact session annuaireId id = do

src/Gargantext/Components/Nodes/Annuaire/User/UserInfo.purs

+module Gargantext.Components.Nodes.Annuaire.User.UserInfo
+  ( module Gargantext.Components.Nodes.Annuaire.User.Contacts.Types
+  , contactInfos
+  , contactLayout
+  , getUserInfoWithReload
+  , saveContactHyperdata
+  , saveUserInfo
+  ) where
+
+import Data.Either (Either(..))
+import Data.Lens as L
+import Data.Maybe (Maybe(..), fromMaybe)
+import Effect (Effect)
+import Effect.Aff (launchAff_)
+import Effect.Class (liftEffect)
+import Gargantext.Components.App.Store (Boxes)
+import Gargantext.Components.GraphQL (getClient)
+import Gargantext.Components.GraphQL.Endpoints (getUserInfo)
+import Gargantext.Components.GraphQL.User (UserInfo, _ui_cwCity, _ui_cwCountry, _ui_cwFirstName, _ui_cwLabTeamDeptsFirst, _ui_cwLastName, _ui_cwOffice, _ui_cwOrganizationFirst, _ui_cwRole, _ui_cwTouchMail, _ui_cwTouchPhone)
+import Gargantext.Components.InputWithEnter (inputWithEnter)
+import Gargantext.Components.Nodes.Annuaire.User.Contacts.Tabs as Tabs
+import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types (ContactData', HyperdataContact(..))
+import Gargantext.Components.Nodes.Lists.Types as LT
+import Gargantext.Config.REST (AffRESTError, logRESTError)
+import Gargantext.Ends (Frontends)
+import Gargantext.Hooks.Loader (useLoader)
+import Gargantext.Prelude (Unit, bind, discard, pure, show, ($), (<$>), (<>))
+import Gargantext.Routes as Routes
+import Gargantext.Sessions (Session(..), get, put, sessionId)
+import Gargantext.Types (NodeType(..))
+import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Toestand as T2
+import GraphQL.Client.Args (IgnoreArg(..), OrArg(..), onlyArgs)
+import GraphQL.Client.Query (mutation)
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Record as Record
+import Toestand as T
+
+here :: R2.Here
+here = R2.here "Gargantext.Components.Nodes.Annuaire.User.UserInfo"
+
+type DisplayProps = ( title :: String )
+
+display :: R2.Component DisplayProps
+display = R.createElement displayCpt
+displayCpt :: R.Component DisplayProps
+displayCpt = here.component "display" cpt
+  where
+    cpt { title } children = do
+      pure $ H.div { className: "container-fluid" }
+        [ H.div { className: "row", id: "contact-page-header" }
+          [ H.div { className: "col-md-6"} [ H.h3 {} [ H.text title ] ]
+          , H.div { className: "col-md-8"} []
+          , H.div { className: "col-md-2"} [ H.span {} [ H.text "" ] ]
+          ]
+        , H.div { className: "row", id: "contact-page-info" }
+          [ H.div { className: "col-md-12" }
+            [ H.div { className: "row" }
+              [ H.div { className: "col-md-2" } [ H.img { src: "/images/Gargantextuel-212x300.jpg"} ]
+              , H.div { className: "col-md-1"} []
+              , H.div { className: "col-md-8"} children
+              ]
+            ]
+          ]
+        ]
+
+-- | TODO format data in better design (UI) shape
+contactInfos :: UserInfo -> (UserInfo -> Effect Unit) -> Array R.Element
+contactInfos userInfo onUpdateUserInfo = item <$> contactInfoItems where
+  item { label, lens, defaultVal } =
+    contactInfoItem { defaultVal, label, lens, onUpdateUserInfo, userInfo }
+
+contactInfoItems :: Array {label:: String, defaultVal:: String, lens:: UserInfoLens}
+contactInfoItems =
+  [ { label: "Last Name"    , defaultVal: "Empty Last Name"    , lens: _ui_cwLastName                     }
+  , { label: "First Name"   , defaultVal: "Empty First Name"   , lens: _ui_cwFirstName                    }
+  , { label: "Organisation" , defaultVal: "Empty Organisation" , lens: _ui_cwOrganizationFirst            }
+  , { label: "Lab/Team/Dept", defaultVal: "Empty Lab/Team/Dept", lens: _ui_cwLabTeamDeptsFirst            }
+  , { label: "Office"       , defaultVal: "Empty Office"       , lens: _ui_cwOffice                       }
+  , { label: "City"         , defaultVal: "Empty City"         , lens: _ui_cwCity                         }
+  , { label: "Country"      , defaultVal: "Empty Country"      , lens: _ui_cwCountry                      }
+  , { label: "Role"         , defaultVal: "Empty Role"         , lens: _ui_cwRole                         }
+  , { label: "Phone"        , defaultVal: "Empty Phone"        , lens: _ui_cwTouchPhone                   }
+  , { label: "Mail"         , defaultVal: "Empty Mail"         , lens: _ui_cwTouchMail                    }
+  ]
+
+type UserInfoLens = L.ALens' UserInfo String
+
+type ContactInfoItemProps =
+  ( defaultVal       :: String
+  , label            :: String
+  , lens             :: UserInfoLens
+  , onUpdateUserInfo :: UserInfo -> Effect Unit
+  , userInfo         :: UserInfo
+  )
+
+contactInfoItem :: R2.Leaf ContactInfoItemProps
+contactInfoItem = R2.leafComponent contactInfoItemCpt
+contactInfoItemCpt :: R.Component ContactInfoItemProps
+contactInfoItemCpt = here.component "contactInfoItem" cpt
+  where
+    cpt { defaultVal, label, lens, onUpdateUserInfo, userInfo } _ = do
+      isEditing <- T.useBox false
+      isEditing' <- T.useLive T.unequal isEditing
+
+      let value = (L.view cLens userInfo) :: String
+
+      valueBox <- T.useBox value
+      pure $
+        H.div { className: "form-group row" }
+          [ H.span { className: "col-sm-2 col-form-label" } [ H.text label ]
+          , if isEditing' then
+              itemEditing { defaultVal, isEditing, lens, onUpdateUserInfo, userInfo, valueBox }
+            else
+              itemNotEditing { defaultVal, isEditing, lens, onUpdateUserInfo, userInfo, valueBox }
+          ]
+      where
+        cLens = L.cloneLens lens
+
+type ItemProps =
+  ( defaultVal       :: String
+  , isEditing        :: T.Box Boolean
+  , lens             :: UserInfoLens
+  , onUpdateUserInfo :: UserInfo -> Effect Unit
+  , userInfo         :: UserInfo
+  , valueBox         :: T.Box String
+  )
+
+itemNotEditing :: R2.Leaf ItemProps
+itemNotEditing = R2.leafComponent itemNotEditingCpt
+itemNotEditingCpt :: R.Component ItemProps
+itemNotEditingCpt = here.component "itemEditing" cpt where
+  cpt { isEditing, valueBox } _ = do
+    valueBox' <- T.useLive T.unequal valueBox
+
+    pure $ H.div { className: "input-group col-sm-6" }
+             [ H.input
+               { className: "form-control", type: "text"
+               , defaultValue: valueBox', disabled: true }
+             , H.div { className: "btn input-group-append", on: { click } }
+               [ H.div { className: "input-group-text fa fa-pencil" } [] ]
+             ]
+      where
+        click _ = T.write_ true isEditing
+
+itemEditing :: R2.Leaf ItemProps
+itemEditing = R2.leafComponent itemEditingCpt
+itemEditingCpt :: R.Component ItemProps
+itemEditingCpt = here.component "itemNotEditing" cpt where
+  cpt { defaultVal, isEditing, lens, onUpdateUserInfo, userInfo, valueBox } _ = do
+    valueBox' <- T.useLive T.unequal valueBox
+
+    pure $ H.div { className: "input-group col-sm-6" }
+             [ inputWithEnter
+               { autoFocus: true
+               , className: "form-control"
+               , defaultValue: valueBox'
+               , onBlur: \v -> T.write_ v valueBox
+               , onEnter: click
+               , onValueChanged: \v -> do
+                   here.log2 "[itemEditingCpt] value Changed: " v
+                   T.write_ v valueBox
+               , placeholder: defaultVal
+               , type: "text" }
+             , H.div { className: "btn input-group-append", on: { click } }
+               [ H.div { className: "input-group-text fa fa-floppy-o" } [] ]
+             ]
+      where
+        cLens = L.cloneLens lens
+        click _ = do
+          T.write_ false isEditing
+          value <- T.read valueBox
+          here.log2 "[itemEditing] value" value
+          let newUserInfo = (L.set cLens value userInfo) :: UserInfo
+          onUpdateUserInfo newUserInfo
+
+type ReloadProps =
+  ( boxes     :: Boxes
+  , frontends :: Frontends
+  , nodeId    :: Int
+  )
+
+type LayoutProps =
+  ( session :: Session
+  | ReloadProps
+  )
+
+saveContactHyperdata :: Session -> Int -> HyperdataContact -> AffRESTError Int
+saveContactHyperdata session id = put session (Routes.NodeAPI Node (Just id) "")
+
+saveUserInfo :: Session -> Int -> UserInfo ->  AffRESTError Int
+saveUserInfo session id ui = do
+  let token = getToken session
+  client <- liftEffect $ getClient session
+  res <- mutation
+    client
+    "update user_info"
+    { update_user_info: onlyArgs { token: token
+                                 , ui_id: id
+                                 , ui_cwFirstName: ga ui.ui_cwFirstName
+                                 , ui_cwLastName: ga ui.ui_cwLastName
+                                 , ui_cwOrganization: ui.ui_cwOrganization
+                                 , ui_cwLabTeamDepts: ui.ui_cwLabTeamDepts
+                                 , ui_cwOffice: ga ui.ui_cwOffice
+                                 , ui_cwCity: ga ui.ui_cwCity
+                                 , ui_cwCountry: ga ui.ui_cwCountry
+                                 , ui_cwRole: ga ui.ui_cwRole
+                                 , ui_cwTouchPhone: ga ui.ui_cwTouchPhone
+                                 , ui_cwTouchMail: ga ui.ui_cwTouchMail } }
+  pure $ Right res.update_user_info
+  where
+    ga Nothing = ArgL IgnoreArg
+    ga (Just val) = ArgR val
+    getToken (Session { token }) = token
+
+type AnnuaireLayoutProps =
+  ( annuaireId :: Int
+  , session :: Session
+  | ReloadProps
+  )
+
+type AnnuaireKeyLayoutProps =
+  ( annuaireId :: Int
+  , key :: String
+  | LayoutProps
+  )
+
+userLayout :: R2.Component AnnuaireLayoutProps
+userLayout = R.createElement userLayoutCpt
+userLayoutCpt :: R.Component AnnuaireLayoutProps
+userLayoutCpt = here.component "userLayout" cpt where
+  cpt props@{ nodeId
+            , session } _ = do
+    let key = show (sessionId session) <> "-" <> show nodeId
+    pure $
+      contactLayoutWithKey $ Record.merge props { key }
+
+contactLayoutWithKey :: R2.Leaf AnnuaireKeyLayoutProps
+contactLayoutWithKey = R2.leafComponent contactLayoutWithKeyCpt
+contactLayoutWithKeyCpt :: R.Component AnnuaireKeyLayoutProps
+contactLayoutWithKeyCpt = here.component "contactLayoutWithKey" cpt where
+    cpt { annuaireId
+        , boxes: boxes@{ sidePanelTexts }
+        , frontends
+        , nodeId
+        , session } _ = do
+      reload <- T.useBox T2.newReload
+      _ <- T.useLive T.unequal reload
+      cacheState <- T.useBox LT.CacheOn
+      useLoader { errorHandler
+                , loader: getUserInfo session
+                , path: nodeId
+                , render: \annuaireContact@{ ac_id } ->
+                    H.ul { className: "col-md-12 list-group" }
+                      [ display { title: show ac_id }
+                        (contactInfos userInfo (onUpdateUserInfo reload))
+                      , Tabs.tabs
+                        { boxes
+                        , cacheState
+                        , defaultListId: 424242 -- TODO
+                        , frontends
+                        , nodeId
+                        , session
+                        , sidePanel: sidePanelTexts
+                        }
+                      ]
+                }
+      where
+        errorHandler = logRESTError here "[contactLayoutWithKey]"
+        onUpdateUserInfo :: T2.ReloadS -> UserInfo -> Effect Unit
+        onUpdateUserInfo reload ui = do
+          launchAff_ $ do
+            _ <- saveUserInfo session nodeId ui
+            liftEffect (T2.reload reload)
+
+getUserInfo :: Session -> Int -> Int -> AffRESTError ContactData'
+getUserInfo session annuaireId id = do
+  eContactNode <- get session $ Routes.NodeAPI Annuaire (Just annuaireId) $ show id
+  -- TODO: we need a default list for the pairings
+  --defaultListIds <- get $ toUrl endConfigStateful Back (Children NodeList 0 1 Nothing) $ Just id
+  --case (head defaultListIds :: Maybe (NodePoly HyperdataList)) of
+  --  Just (NodePoly { id: defaultListId }) ->
+  --    pure {contactNode, defaultListId}
+  --  Nothing ->
+  --    throwError $ error "Missing default list"
+  pure $ (\contactNode -> { contactNode, defaultListId: 424242 }) <$> eContactNode
+
+
+getUserInfoWithReload :: { nodeId :: Int
+                         , reload :: T2.Reload
+                         , session :: Session} -> AffRESTError UserInfo
+getUserInfoWithReload {nodeId, session} = getUserInfo session nodeId -- getContact session nodeId