>>> continue

src/Gargantext/Components/Table.purs

@@ -9,7 +9,7 @@ import Data.Maybe (Maybe(..))
 import Data.Sequence as Seq
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)
-import Effect.Aff (launchAff_)
+import Effect.Aff (Milliseconds(..), delay, launchAff_)
 import Effect.Class (liftEffect)
 import Gargantext.Components.App.Store as AppStore
 import Gargantext.Components.Bootstrap as B
@@ -272,35 +272,70 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
     date' /\ _
       <- R2.useBox' defaultData.date
 
+    onNamePending' /\ onNamePending
+      <- R2.useBox' false
+
+    onTitlePending' /\ onTitlePending
+      <- R2.useBox' false
+
+    onDescPending' /\ onDescPending
+      <- R2.useBox' false
+
+    onQueryPending' /\ onQueryPending
+      <- R2.useBox' false
+
+    onAuthorsPending' /\ onAuthorsPending
+      <- R2.useBox' false
+
     -- | Behaviors
     -- |
     let
       onRenameCorpus newName = do
-        saveCorpusName {name: newName, session, nodeId}
+        saveCorpusName { name: newName
+                       , session
+                       , nodeId
+                       , onPending: onNamePending
+                       }
 
       onRenameTitle newTitle = do
         _ <- T.modify (\(CorpusInfo c) -> CorpusInfo $ c {title = newTitle}) corpusInfoS
         corpusInfo <- T.read corpusInfoS
         let newFields = saveCorpusInfo corpusInfo h.fields
-        save {fields: newFields, session, nodeId}
+        save { fields: newFields
+             , session
+             , nodeId
+             , onPending: onTitlePending
+             }
 
       onRenameDesc newDesc = do
         _ <- T.modify (\(CorpusInfo c) -> CorpusInfo $ c {desc = newDesc}) corpusInfoS
         corpusInfo <- T.read corpusInfoS
         let newFields = saveCorpusInfo corpusInfo h.fields
-        save {fields: newFields, session, nodeId}
+        save { fields: newFields
+             , session
+             , nodeId
+             , onPending: onDescPending
+             }
 
       onRenameQuery newQuery = do
         _ <- T.modify (\(CorpusInfo c) -> CorpusInfo $ c {query = newQuery}) corpusInfoS
         corpusInfo <- T.read corpusInfoS
         let newFields = saveCorpusInfo corpusInfo h.fields
-        save {fields: newFields, session, nodeId}
+        save { fields: newFields
+             , session
+             , nodeId
+             , onPending: onQueryPending
+             }
 
       onRenameAuthors newAuthors = do
         _ <- T.modify (\(CorpusInfo c) -> CorpusInfo $ c {authors = newAuthors}) corpusInfoS
         corpusInfo <- T.read corpusInfoS
         let newFields = saveCorpusInfo corpusInfo h.fields
-        save {fields: newFields, session, nodeId}
+        save { fields: newFields
+             , session
+             , nodeId
+             , onPending: onAuthorsPending
+             }
 
     -- | Render
     -- |
@@ -351,6 +386,9 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
                   , type: "submit"
                   , callback: const $ onRenameCorpus name'
                   , className: "input-group-text"
+                  , status: onNamePending' ?
+                      Disabled $
+                      Enabled
                   }
                   [
                     B.icon
@@ -397,6 +435,9 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
                   , type: "submit"
                   , callback: const $ onRenameTitle title'
                   , className: "input-group-text"
+                  , status: onTitlePending' ?
+                      Disabled $
+                      Enabled
                   }
                   [
                     B.icon
@@ -443,6 +484,9 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
                   , type: "submit"
                   , callback: const $ onRenameDesc desc'
                   , className: "input-group-text"
+                  , status: onDescPending' ?
+                      Disabled $
+                      Enabled
                   }
                   [
                     B.icon
@@ -493,6 +537,9 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
                   , type: "submit"
                   , callback: const $ onRenameQuery query'
                   , className: "input-group-text"
+                  , status: onQueryPending' ?
+                      Disabled $
+                      Enabled
                   }
                   [
                     B.icon
@@ -539,6 +586,9 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
                   , type: "submit"
                   , callback: const $ onRenameAuthors authors'
                   , className: "input-group-text"
+                  , status: onAuthorsPending' ?
+                      Disabled $
+                      Enabled
                   }
                   [
                     B.icon
@@ -585,25 +635,43 @@ tableHeaderEditionBlockCpt = here.component "tableHeaderEditionBlock" cpt where
 
 -----------------------------------------------------------
 
-save :: {fields :: FTFieldList, session :: Session, nodeId :: Int} -> Effect Unit
-save {fields, session, nodeId} = do
+save ::
+      { fields    :: FTFieldList
+      , session   :: Session
+      , nodeId    :: Int
+      , onPending :: T.Box Boolean
+      }
+  ->  Effect Unit
+save { fields, session, nodeId, onPending } = do
+  T.write_ true onPending
   launchAff_ do
     res <- saveCorpus $ {hyperdata: Hyperdata {fields}, session, nodeId}
     liftEffect $ do
-          _ <- case res of
-                Left err -> here.warn2 "[corpusLayoutView] onClickSave RESTError" err
-                _ -> pure unit
-          pure unit
-
-saveCorpusName :: {name :: String, session :: Session, nodeId :: Int} -> Effect Unit
-saveCorpusName {name, session, nodeId} = do
+      case res of
+        Left err -> here.warn2 "[corpusLayoutView] onClickSave RESTError" err
+        _ -> pure unit
+    -- add a human minimal cognitive delay telling something has being executed
+    delay $ Milliseconds 200.0
+    liftEffect $ T.write_ false onPending
+
+saveCorpusName ::
+      { name      :: String
+      , session   :: Session
+      , nodeId    :: Int
+      , onPending :: T.Box Boolean
+      }
+  ->  Effect Unit
+saveCorpusName { name, session, nodeId, onPending } = do
+  T.write_ true onPending
   launchAff_ do
     res <- rename session nodeId $ RenameValue {text: name}
     liftEffect $ do
-          _ <- case res of
-                Left err -> here.warn2 "[corpusLayoutView] onClickSave RESTError" err
-                _ -> pure unit
-          pure unit
+      case res of
+        Left err -> here.warn2 "[corpusLayoutView] onClickSave RESTError" err
+        _ -> pure unit
+    -- add a human minimal cognitive delay telling something has being executed
+    delay $ Milliseconds 200.0
+    liftEffect $ T.write_ false onPending
 
 tableHeaderLayout :: R2.Component TableHeaderLayoutProps
 tableHeaderLayout = R.createElement tableHeaderLayoutCpt