[docs] Add new document (4)

* #174: resolve doc tables refresh on add success

dist/styles/sass.css

@@ -1159,7 +1159,7 @@ select.form-control {
   grid-template-columns: repeat(15, 1fr);
   grid-template-rows: 2% 7% 7% auto 1%;
   grid-gap: 10px;
-  height: calc(100vh - 0px);
+  height: 100vh;
   color: #0d1824;
 }
 
@@ -1540,14 +1540,6 @@ i.how:hover span {
   fill: #f8381f;
 }
 
-.term-unfocus {
-  /*fill: #A9A9A9;*/
-}
-
-.term-focus {
-  /*fill: black;*/
-}
-
 .term-path {
   fill: none;
   stroke: #F0684D;

src/Gargantext/Components/DocsTable.purs

@@ -34,6 +34,7 @@ import Gargantext.Components.DocsTable.DocumentFormCreation as DFC
 import Gargantext.Components.DocsTable.Types (DocumentsView(..), Hyperdata(..), LocalUserScore, Query, Response(..), Year, sampleData, showSource)
 import Gargantext.Components.Nodes.Lists.Types as NT
 import Gargantext.Components.Nodes.Texts.Types as TextsT
+import Gargantext.Components.Reload (reloadContext, textsReloadContext)
 import Gargantext.Components.Table as TT
 import Gargantext.Components.Table.Types as TT
 import Gargantext.Config.REST (RESTError, logRESTError)
@@ -146,6 +147,9 @@ docViewCpt = here.component "docView" cpt where
     onDocumentCreationPending /\ onDocumentCreationPendingBox <-
       R2.useBox' false
 
+    -- Context
+    mReloadContext <- R.useContext textsReloadContext
+
     -- @toggleModalCallback
     toggleModal <- pure $ const $
       T.modify_ not isDocumentModalVisibleBox
@@ -155,7 +159,10 @@ docViewCpt = here.component "docView" cpt where
       here.log2 "[DocsTables] NodeDocument task:" asyncProgress
       T.write_ false onDocumentCreationPendingBox
       toggleModal unit
-      T2.reload boxes.reloadMainPage
+
+      case mReloadContext of
+        Nothing -> pure unit
+        Just b  -> T2.reload b
 
     -- @createDocumentCallback
     createDocumentCallback <- pure $ \fdata -> launchAff_ do

src/Gargantext/Components/Nodes/Texts.purs

@@ -20,6 +20,7 @@ import Gargantext.Components.Nodes.Corpus.Document as D
 import Gargantext.Components.Nodes.Corpus.Types (CorpusData, CorpusInfo(..), Hyperdata(..), getCorpusInfo)
 import Gargantext.Components.Nodes.Lists.Types as LT
 import Gargantext.Components.Nodes.Texts.Types as TT
+import Gargantext.Components.Reload (textsReloadContext)
 import Gargantext.Components.Tab as Tab
 import Gargantext.Components.Table as Table
 import Gargantext.Config.REST (logRESTError)
@@ -28,6 +29,7 @@ import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Sessions (WithSession, Session, getCacheState)
 import Gargantext.Types (CTabNgramType(..), ListId, NodeID, SidePanelState(..), TabSubType(..), TabType(..))
 import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Toestand as T2
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
@@ -52,11 +54,20 @@ textsLayout = R.createElement textsLayoutCpt
 textsLayoutCpt :: R.Component Props
 textsLayoutCpt = here.component "textsLayout" cpt where
   cpt { boxes, frontends, nodeId, session } children = do
-    pure $ textsLayoutWithKey { key
-                              , boxes
-                              , frontends
-                              , nodeId
-                              , session } children
+
+    _ /\ reloadBox <- R2.useBox' T2.newReload
+
+    pure $
+      R.provideContext textsReloadContext (Just reloadBox)
+      [
+        textsLayoutWithKey
+          { key
+          , boxes
+          , frontends
+          , nodeId
+          , session } children
+      ]
+
       where
         key = show nodeId
         -- key = show sid <> "-" <> show nodeId

src/Gargantext/Components/Nodes/Texts/Types.purs

 module Gargantext.Components.Nodes.Texts.Types where
 
-import Data.Maybe (Maybe(..))
-import Reactix as R
-
 import Gargantext.Prelude
 
+import Data.Maybe (Maybe(..))
 import Gargantext.Types (ListId, NodeID)
 import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Toestand as T2
+import Reactix as R
+import Toestand as T
 
 data SidePanelState = InitialClosed | Opened | Closed
 derive instance Eq SidePanelState
@@ -67,3 +68,13 @@ type SidePanel =
 
 initialSidePanel :: Maybe (Record SidePanel)
 initialSidePanel = Nothing
+
+
+-----------------------------------------------------------------
+
+-- @XXX: This custom context solves a wrong monolithic front design where
+--       "DocsTable" component is used for many different use cases
+--       Normally we would have use the classic "Gargantext.Components.Reload",
+--       but we limit side-effects by using another context reference
+textsReloadContext :: R.Context (Maybe (T.Box T2.Reload))
+textsReloadContext = R.createContext Nothing

src/Gargantext/Components/Reload.purs

+module Gargantext.Components.Reload
+  ( reloadContext
+  , textsReloadContext ) where
+
+import Data.Maybe (Maybe(..))
+import Gargantext.Utils.Toestand as T2
+import Reactix as R
+import Toestand as T
+
+-- | Reload Context
+-- |
+-- | Use with `R.provideContext` as a (nested) context
+-- |
+-- | https://medium.com/@NickIannelli/nested-context-the-underrated-aspect-thats-probably-missing-from-your-react-app-16e73f7d1
+reloadContext :: R.Context (Maybe (T.Box T2.Reload))
+reloadContext = R.createContext Nothing
+
+
+-----------------------------------------------------------------
+
+-- @XXX: This custom context solves a wrong monolithic front design where
+--       "DocsTable" component is used for many different use cases
+--       Normally we would have use the classic "Gargantext.Components.Reload",
+--       but we limit side-effects by using another context reference
+--
+--       See its use in "Gargantext.Components.Nodes.Texts"
+textsReloadContext :: R.Context (Maybe (T.Box T2.Reload))
+textsReloadContext = R.createContext Nothing