Merge remote-tracking branch 'origin/dev-doc-table-cache-issue' into dev

src/Gargantext/Components/NgramsTable.purs

@@ -20,7 +20,7 @@ import Data.Sequence as Seq
 import Data.Set (Set)
 import Data.Set as Set
 import Data.Symbol (SProxy(..))
-import Data.Tuple (Tuple(..))
+import Data.Tuple (Tuple(..), fst)
 import Data.Tuple.Nested ((/\))
 import DOM.Simple.Console (log)
 import Effect (Effect)
@@ -544,12 +544,11 @@ mainNgramsTableCpt = R.hooksComponentWithModule thisModule "mainNgramsTable" cpt
               , tabNgramType
               , tabType
               , withAutoUpdate } _ = do
-      let path = initialPageParams session nodeId [defaultListId] tabType
-
-      let render versioned = mainNgramsTablePaint { afterSync, path, tabNgramType, versioned, withAutoUpdate }
 
       case cacheState of
-        (NT.CacheOn /\ _) ->
+        (NT.CacheOn /\ _) -> do
+          let path = initialPageParams session nodeId [defaultListId] tabType
+          let render versioned = mainNgramsTablePaint { afterSync, path, tabNgramType, versioned, withAutoUpdate }
           useLoaderWithCacheAPI {
               cacheEndpoint: versionEndpoint props
             , handleResponse
@@ -557,16 +556,39 @@ mainNgramsTableCpt = R.hooksComponentWithModule thisModule "mainNgramsTable" cpt
             , path
             , renderer: render
             }
-        (NT.CacheOff /\ _) ->
-          useLoader path loader render
+        (NT.CacheOff /\ _) -> do
+          path <- R.useState' $ initialPageParams session nodeId [defaultListId] tabType
+          let render versioned = mainNgramsTablePaintWithState { afterSync, path, tabNgramType, versioned, withAutoUpdate }
+
+          useLoader (fst path) loader render
 
     versionEndpoint :: Record MainNgramsTableProps -> PageParams -> Aff Version
     versionEndpoint { defaultListId, nodeId, session, tabType } _ = get session $ R.GetNgramsTableVersion { listId: defaultListId, tabType } (Just nodeId)
 
+    -- NOTE With cache off
     loader :: PageParams -> Aff VersionedNgramsTable
-    loader path@{ listIds, nodeId, session, tabType } =
-      get session $ R.GetNgramsTableAll { listIds, tabType } (Just nodeId)
-
+    loader path@{ listIds
+                , nodeId
+                , params: { limit, offset, orderBy }
+                , searchQuery
+                , session
+                , tabType
+                , termListFilter
+                , termSizeFilter
+                } =
+      get session $ R.GetNgrams params (Just nodeId)
+      where
+        params = { limit
+                 , listIds
+                 , offset: Just offset
+                 , orderBy: Nothing  -- TODO
+                 , searchQuery
+                 , tabType
+                 , termListFilter
+                 , termSizeFilter
+                 }
+
+    -- NOTE With cache on
     mkRequest :: PageParams -> GUC.Request
     mkRequest path@{ session } = GUC.makeGetRequest session $ url path
       where
@@ -584,10 +606,6 @@ mainNgramsTableCpt = R.hooksComponentWithModule thisModule "mainNgramsTable" cpt
     handleResponse :: VersionedNgramsTable -> VersionedNgramsTable
     handleResponse v = v
 
-    pathNoLimit :: PageParams -> PageParams
-    pathNoLimit path@{ params } = path { params = params { limit = 100000 }
-                                       , termListFilter = Nothing }
-
 type MainNgramsTablePaintProps =
   ( afterSync      :: Unit -> Aff Unit
   , path           :: PageParams
@@ -615,6 +633,32 @@ mainNgramsTablePaintCpt = R.hooksComponentWithModule thisModule "mainNgramsTable
       , withAutoUpdate
       }
 
+type MainNgramsTablePaintWithStateProps =
+  ( afterSync      :: Unit -> Aff Unit
+  , path           :: R.State PageParams
+  , tabNgramType   :: CTabNgramType
+  , versioned      :: VersionedNgramsTable
+  , withAutoUpdate :: Boolean
+  )
+
+mainNgramsTablePaintWithState :: Record MainNgramsTablePaintWithStateProps -> R.Element
+mainNgramsTablePaintWithState p = R.createElement mainNgramsTablePaintWithStateCpt p []
+
+mainNgramsTablePaintWithStateCpt :: R.Component MainNgramsTablePaintWithStateProps
+mainNgramsTablePaintWithStateCpt = R.hooksComponentWithModule thisModule "mainNgramsTablePaintWithState" cpt
+  where
+    cpt { afterSync, path, tabNgramType, versioned, withAutoUpdate } _ = do
+      state <- R.useState' $ initialState versioned
+
+      pure $ loadedNgramsTable {
+        afterSync
+      , path
+      , state
+      , tabNgramType
+      , versioned
+      , withAutoUpdate
+      }
+
 type NgramsOcc = { occurrences :: Additive Int, children :: Set NgramsTerm }
 
 ngramsElementToNgramsOcc :: NgramsElement -> NgramsOcc

src/Gargantext/Components/Nodes/Annuaire.purs

@@ -91,13 +91,14 @@ annuaireCpt = R.hooksComponentWithModule thisModule "annuaire" cpt
     cpt {session, path, info: info@(AnnuaireInfo {name, date: date'}), frontends} _ = do
       pagePath <- R.useState' $ initialPagePath (fst path)
 
-      cacheState <- R.useState' NT.CacheOn
+      cacheState <- R.useState' NT.CacheOff
 
       pure $ R.fragment
         [ T.tableHeaderLayout { afterCacheStateChange: \_ -> launchAff_ $ clearCache unit
                               , cacheState
                               , date
                               , desc: name
+                              , key: "annuaire-" <> (show $ fst cacheState)
                               , query: ""
                               , title: name
                               , user: "" }

src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Tabs.purs

@@ -76,11 +76,17 @@ tabsCpt = R.hooksComponentWithModule thisModule "tabs" cpt
             chart       = mempty
             totalRecords = 4736 -- TODO
             docs = DT.docViewLayout
-              { frontends, session, nodeId, chart, totalRecords
-              , tabType: TabPairing TabDocs
-              , listId: defaultListId
+              { cacheState
+              , chart
               , corpusId: Nothing
-              , showSearch: true }
+              , frontends
+              , listId: defaultListId
+              , nodeId
+              , session
+              , showSearch: true
+              , tabType: TabPairing TabDocs
+              , totalRecords
+              }
 
 
 type NgramsViewTabsProps =

src/Gargantext/Components/Nodes/Corpus.purs

@@ -427,7 +427,7 @@ loadCorpus {nodeId, session} = do
 
 
 loadCorpusWithChild :: Record LoadProps -> Aff CorpusData
-loadCorpusWithChild {nodeId:childId, session} = do
+loadCorpusWithChild { nodeId: childId, session } = do
   -- fetch corpus via lists parentId
   (NodePoly {parentId: corpusId} :: NodePoly {}) <- get session $ listNodeRoute childId ""
   corpusNode     <-  get session $ corpusNodeRoute     corpusId ""
@@ -435,7 +435,7 @@ loadCorpusWithChild {nodeId:childId, session} = do
                     :: forall a. DecodeJson a => AffTableResult (NodePoly a)
   case (A.head defaultListIds.docs :: Maybe (NodePoly HyperdataList)) of
     Just (NodePoly { id: defaultListId }) ->
-      pure {corpusId, corpusNode, defaultListId}
+      pure { corpusId, corpusNode, defaultListId }
     Nothing ->
       throwError $ error "Missing default list"
   where

src/Gargantext/Components/Nodes/Corpus/Document/Types.purs

+module Gargantext.Components.Nodes.Corpus.Document.Types where
+
+import Data.Argonaut (class DecodeJson, decodeJson, (.:), (.:?))
+import Data.Generic.Rep (class Generic)
+import Data.Generic.Rep.Show (genericShow)
+import Data.Maybe (Maybe(..))
+
+import Gargantext.Prelude
+
+import Gargantext.Components.Node (NodePoly(..))
+import Gargantext.Components.NgramsTable.Core
+  (CoreState, NgramsTerm, Replace, Versioned(..) , VersionedNgramsTable)
+import Gargantext.Components.Annotation.AnnotatedField as AnnotatedField
+import Gargantext.Sessions (Session)
+import Gargantext.Types (TabType, TermList)
+
+type DocPath =
+  {
+    corpusId :: Maybe Int
+  , listIds  :: Array Int
+  , nodeId   :: Int
+  , session  :: Session
+  , tabType  :: TabType
+  }
+
+type NodeDocument = NodePoly Document
+
+type LoadedData =
+  { document    :: NodeDocument
+  , ngramsTable :: VersionedNgramsTable
+  }
+
+type Props = (
+    loaded :: LoadedData
+  , path   :: DocPath
+  )
+
+-- This is a subpart of NgramsTable.State.
+type State = CoreState ()
+
+initialState
+  :: forall props others
+  .  { loaded :: { ngramsTable :: VersionedNgramsTable | others }
+     | props }
+  -> State
+initialState {loaded: {ngramsTable: Versioned {version}}} =
+  { ngramsLocalPatch: mempty
+  , ngramsStagePatch: mempty
+  , ngramsValidPatch: mempty
+  , ngramsVersion:    version
+  }
+
+-- This is a subset of NgramsTable.Action.
+data Action
+  = SetTermListItem NgramsTerm (Replace TermList)
+  | AddNewNgram NgramsTerm TermList
+  | Synchronize
+
+newtype Status = Status { failed    :: Int
+                        , succeeded :: Int
+                        , remaining :: Int
+                        }
+
+newtype DocumentV3 =
+  DocumentV3 { abstract           :: Maybe String
+             , authors            :: Maybe String
+             --, error              :: Maybe String
+             , language_iso2      :: Maybe String
+             , language_iso3      :: Maybe String
+             , language_name      :: Maybe String
+             , publication_date   :: Maybe String
+             , publication_day    :: Maybe Int
+             , publication_hour   :: Maybe Int
+             , publication_minute :: Maybe Int
+             , publication_month  :: Maybe Int
+             , publication_second :: Maybe Int
+             , publication_year   :: Maybe Int
+             , realdate_full_     :: Maybe String
+             , source             :: Maybe String
+             , statuses           :: Maybe (Array Status)
+             , title              :: Maybe String
+             }
+
+defaultNodeDocumentV3 :: NodePoly DocumentV3
+defaultNodeDocumentV3 =
+  NodePoly { id : 0
+           , typename : 0
+           , userId   : 0
+           , parentId : 0
+           , name     : "Default name"
+           , date     : "Default date"
+           , hyperdata : defaultDocumentV3
+         }
+
+defaultDocumentV3 :: DocumentV3
+defaultDocumentV3 =
+  DocumentV3 { abstract           : Nothing
+             , authors            : Nothing
+             --, error              : Nothing
+             , language_iso2      : Nothing
+             , language_iso3      : Nothing
+             , language_name      : Nothing
+             , publication_date   : Nothing
+             , publication_day    : Nothing
+             , publication_hour   : Nothing
+             , publication_minute : Nothing
+             , publication_month  : Nothing
+             , publication_second : Nothing
+             , publication_year   : Nothing
+             , realdate_full_     : Nothing
+             , source             : Nothing
+             , statuses           : Nothing
+             , title              : Nothing
+             }
+
+data Document
+  = Document
+    { abstract           :: Maybe String
+    , authors            :: Maybe String
+    , bdd                :: Maybe String
+    , doi                :: Maybe String
+    , language_iso2      :: Maybe String
+    -- , page               :: Maybe Int
+    , publication_date   :: Maybe String
+    --, publication_second :: Maybe Int
+    --, publication_minute :: Maybe Int
+    --, publication_hour   :: Maybe Int
+    , publication_day    :: Maybe Int
+    , publication_month  :: Maybe Int
+    , publication_year   :: Maybe Int
+    , source             :: Maybe String
+    , institutes         :: Maybe String
+    , title              :: Maybe String
+    , uniqId             :: Maybe String
+    --, url                :: Maybe String
+    --, text               :: Maybe String
+    }
+
+
+defaultNodeDocument :: NodeDocument
+defaultNodeDocument =
+  NodePoly { id : 0
+           , typename : 0
+           , userId   : 0
+           , parentId : 0
+           , name     : "Default name"
+           , date     : "Default date"
+           , hyperdata : defaultDocument
+         }
+
+-- TODO: BUG if DOI does not exist, page is not shown
+defaultDocument :: Document
+defaultDocument =
+  Document { abstract           : Nothing
+           , authors            : Nothing
+           , bdd                : Nothing
+           , doi                : Nothing
+           , language_iso2      : Nothing
+           --, page               : Nothing
+           , publication_date   : Nothing
+           --, publication_second : Nothing
+           --, publication_minute : Nothing
+           --, publication_hour   : Nothing
+           , publication_day    : Nothing
+           , publication_month  : Nothing
+           , publication_year   : Nothing
+           , source             : Nothing
+           , institutes         : Nothing
+           , title              : Nothing
+           , uniqId             : Nothing
+           --, url                : Nothing
+           --, text               : Nothing
+           }
+
+derive instance genericDocument   :: Generic Document   _
+derive instance genericDocumentV3 :: Generic DocumentV3 _
+derive instance genericStatus     :: Generic Status     _
+
+instance showDocument :: Show Document where
+  show = genericShow
+
+instance showDocumentV3 :: Show DocumentV3 where
+  show = genericShow
+
+instance showStatus :: Show Status where
+  show = genericShow
+
+instance decodeStatus :: DecodeJson Status
+  where
+    decodeJson json = do
+      obj <- decodeJson json
+      failed <- obj .: "failed"
+      succeeded <- obj .: "succeeded"
+      remaining <- obj .: "remaining"
+      pure $ Status {failed, succeeded, remaining}
+
+
+instance decodeDocumentV3 :: DecodeJson DocumentV3
+  where
+    decodeJson json = do
+      obj <- decodeJson json
+      abstract <- obj .:? "abstract"
+      authors  <- obj .: "authors"
+      --error    <- obj .: "error"
+      language_iso2 <- obj .: "language_iso2"
+      language_iso3 <- obj .: "language_iso3"
+      language_name <- obj .: "language_name"
+      publication_date   <- obj .: "publication_date"
+      publication_day    <- obj .: "publication_day"
+      publication_hour   <- obj .: "publication_hour"
+      publication_minute <- obj .: "publication_minute"
+      publication_month  <- obj .: "publication_month"
+      publication_second <- obj .: "publication_second"
+      publication_year   <- obj .: "publication_year"
+      realdate_full_     <- obj .: "realdate_full_"
+      source   <- obj .: "source"
+      statuses <- obj .: "statuses"
+      title    <- obj .: "title"
+      pure $ DocumentV3 { abstract
+                        , authors
+                        --, error
+                        , language_iso2
+                        , language_iso3
+                        , language_name
+                        , publication_date
+                        , publication_day
+                        , publication_hour
+                        , publication_minute
+                        , publication_month
+                        , publication_second
+                        , publication_year
+                        , realdate_full_
+                        , source
+                        , statuses
+                        , title
+                        }
+
+instance decodeDocument :: DecodeJson Document
+  where
+    decodeJson json = do
+      obj <- decodeJson json
+      abstract <- obj .:? "abstract"
+      authors  <- obj .:? "authors"
+      bdd      <- obj .:? "bdd"
+      doi      <- obj .:? "doi"
+      language_iso2 <- obj .:? "language_iso2"
+      -- page          <- obj .:? "page"
+      publication_date   <- obj .:? "publication_date"
+      --publication_second <- obj .:? "publication_second"
+      --publication_minute <- obj .:? "publication_minute"
+      --publication_hour   <- obj .:? "publication_hour"
+      publication_day    <- obj .:? "publication_day"
+      publication_month  <- obj .:? "publication_month"
+      publication_year   <- obj .:? "publication_year"
+      source             <- obj .:? "sources"
+      institutes         <- obj .:? "institutes"
+      title              <- obj .:? "title"
+      uniqId             <- obj .:? "uniqId"
+      --url                <- obj .: "url"
+      --text               <- obj .: "text"
+      pure $ Document { abstract
+                      , authors
+                      , bdd
+                      , doi
+                      , language_iso2
+                      -- , page
+                      , publication_date
+                      --, publication_second
+                      --, publication_minute
+                      --, publication_hour
+                      , publication_day
+                      , publication_month
+                      , publication_year
+                      , source
+                      , institutes
+                      , title
+                      , uniqId
+                      --, url
+                      --, text
+                      }

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

@@ -8,6 +8,7 @@ import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Eq (genericEq)
 import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
+
 import Gargantext.Components.Node (NodePoly)
 import Gargantext.Prelude
 

src/Gargantext/Components/Nodes/Lists.purs

 module Gargantext.Components.Nodes.Lists where
 
+import Data.Tuple (fst)
 import Effect.Aff (launchAff_)
 import Reactix as R
 ------------------------------------------------------------------------
@@ -15,6 +16,7 @@ import Gargantext.Prelude
 import Gargantext.Sessions (Session, sessionId)
 import Gargantext.Utils.Reactix as R2
 
+thisModule :: String
 thisModule = "Gargantext.Components.Nodes.Lists"
 ------------------------------------------------------------------------
 ------------------------------------------------------------------------
@@ -53,15 +55,16 @@ listsLayoutWithKeyCpt = R.hooksComponentWithModule thisModule "listsLayoutWithKe
 
       useLoader path loadCorpusWithChild $
         \corpusData@{ corpusId, corpusNode: NodePoly poly, defaultListId } ->
-              let { date, hyperdata : Hyperdata h, name } = poly
-                  CorpusInfo {desc,query,authors} = getCorpusInfo h.fields
-           in
+          let { date, hyperdata : Hyperdata h, name } = poly
+              CorpusInfo { authors, desc, query } = getCorpusInfo h.fields
+          in
           R.fragment [
             Table.tableHeaderLayout {
                 afterCacheStateChange: \_ -> launchAff_ $ clearCache unit
               , cacheState
               , date
               , desc
+              , key: "listsLayoutWithKey-header-" <> (show $ fst cacheState)
               , query
               , title: "Corpus " <> name
               , user: authors }
@@ -69,6 +72,7 @@ listsLayoutWithKeyCpt = R.hooksComponentWithModule thisModule "listsLayoutWithKe
                cacheState
              , corpusData
              , corpusId
+             , key: "listsLayoutWithKey-tabs-" <> (show $ fst cacheState)
              , session }
           ]
 ------------------------------------------------------------------------

src/Gargantext/Components/Nodes/Lists/Tabs.purs

@@ -33,10 +33,15 @@ type Props = ( cacheState :: R.State NTypes.CacheState
              , session    :: Session
              )
 
-tabs :: Record Props -> R.Element
+type PropsWithKey = (
+  key        :: String
+  | Props
+  )
+
+tabs :: Record PropsWithKey -> R.Element
 tabs props = R.createElement tabsCpt props []
 
-tabsCpt :: R.Component Props
+tabsCpt :: R.Component PropsWithKey
 tabsCpt = R.hooksComponentWithModule thisModule "tabs" cpt
   where
     cpt { cacheState, corpusData: corpusData@{ defaultListId }, corpusId, session } _ = do

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

@@ -2,6 +2,7 @@ module Gargantext.Components.Nodes.Lists.Types where
 
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Eq (genericEq)
+import Data.Generic.Rep.Show (genericShow)
 
 import Gargantext.Prelude
 
@@ -12,3 +13,5 @@ data CacheState = CacheOn | CacheOff
 derive instance genericCacheState :: Generic CacheState _
 instance eqCacheState :: Eq CacheState where
   eq = genericEq
+instance showCacheState :: Show CacheState where
+  show = genericShow

src/Gargantext/Components/Nodes/Texts.purs

@@ -4,6 +4,7 @@ import Prelude
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
+import Data.Tuple (fst)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (launchAff_)
 import Reactix as R
@@ -56,13 +57,12 @@ textsLayoutWithKeyCpt :: R.Component KeyProps
 textsLayoutWithKeyCpt = R.hooksComponentWithModule thisModule "textsLayoutWithKey" cpt
   where
     cpt { frontends, nodeId, session } _ = do
-      cacheState <- R.useState' NT.CacheOn
+      cacheState <- R.useState' NT.CacheOff
 
       pure $ loader {session, nodeId} loadCorpusWithChild $
         \corpusData@{ corpusId, corpusNode, defaultListId } -> do
-          let NodePoly { name, date, hyperdata: Hyperdata h } = corpusNode
+          let NodePoly { date, hyperdata: Hyperdata h, name } = corpusNode
               CorpusInfo { authors, desc, query } = getCorpusInfo h.fields
-              tabs' = tabs { corpusData, corpusId, frontends, session }
               title = "Corpus " <> name
 
           R.fragment [
@@ -70,10 +70,11 @@ textsLayoutWithKeyCpt = R.hooksComponentWithModule thisModule "textsLayoutWithKe
                                       , cacheState
                                       , date
                                       , desc
+                                      , key: "textsLayoutWithKey-" <> (show $ fst cacheState)
                                       , query
                                       , title
                                       , user: authors }
-            , tabs'
+            , tabs { cacheState, corpusData, corpusId, frontends, session }
           ]
 
 data Mode = MoreLikeFav | MoreLikeTrash
@@ -89,7 +90,13 @@ modeTabType :: Mode -> CTabNgramType
 modeTabType MoreLikeFav    = CTabAuthors  -- TODO
 modeTabType MoreLikeTrash  = CTabSources  -- TODO
 
-type TabsProps = ( frontends :: Frontends, session :: Session, corpusId :: Int, corpusData :: CorpusData )
+type TabsProps = (
+    cacheState :: R.State NT.CacheState
+  , corpusData :: CorpusData
+  , corpusId :: Int
+  , frontends :: Frontends
+  , session :: Session
+  )
 
 tabs :: Record TabsProps -> R.Element
 tabs props = R.createElement tabsCpt props []
@@ -97,27 +104,43 @@ tabs props = R.createElement tabsCpt props []
 tabsCpt :: R.Component TabsProps
 tabsCpt = R.hooksComponentWithModule thisModule "tabs" cpt
   where
-    cpt {frontends, session, corpusId, corpusData} _ = do
+    cpt { cacheState, corpusId, corpusData, frontends, session } _ = do
       (selected /\ setSelected) <- R.useState' 0
-      pure $ Tab.tabs { tabs: tabs', selected }
+
+      let path = initialPath
+
+      pure $ Tab.tabs {
+          selected
+        , tabs: [
+            "Documents"       /\ R.fragment [
+                histo { path, session }
+              , docView' path TabDocs
+              ]
+          , "Trash"           /\ docView' path TabTrash
+          , "More like fav"   /\ docView' path TabMoreLikeFav
+          , "More like trash" /\ docView' path TabMoreLikeTrash
+          ]
+        }
+
       where
-        tabs' = [ "Documents"     /\ docs,        "Trash"           /\ trash
-                , "More like fav" /\ moreLikeFav, "More like trash" /\ moreLikeTrash ]
-        docView' tabType = docView { frontends, session, corpusId, corpusData, tabType }
-        docs = R.fragment [ docsHisto, docView' TabDocs ]
-        docsHisto = histo { path, session }
-          where
-            path = { corpusId, listId: 0, limit: Nothing, tabType: TabCorpus TabDocs }
-        moreLikeFav = docView' TabMoreLikeFav
-        moreLikeTrash = docView' TabMoreLikeTrash
-        trash = docView' TabTrash
-
-type DocViewProps a =
-  ( frontends :: Frontends
-  , session :: Session
-  , corpusId :: Int
+        initialPath = { corpusId, listId: 0, limit: Nothing, tabType: TabCorpus TabDocs }
+        docView' path tabType = docView { cacheState
+                                        , corpusData
+                                        , corpusId
+                                        , frontends
+                                        -- , path
+                                        , session
+                                        , tabType }
+
+type DocViewProps a = (
+    cacheState :: R.State NT.CacheState
   , corpusData :: CorpusData
-  , tabType :: TabSubType a )
+  , corpusId   :: Int
+  , frontends  :: Frontends
+  -- , path       :: Record DT.Path
+  , session    :: Session
+  , tabType    :: TabSubType a
+  )
 
 docView :: forall a. Record (DocViewProps a) -> R.Element
 docView props = R.createElement docViewCpt props []
@@ -125,58 +148,63 @@ docView props = R.createElement docViewCpt props []
 docViewCpt :: forall a. R.Component (DocViewProps a)
 docViewCpt = R.hooksComponentWithModule thisModule "docView" cpt
   where
-    cpt {frontends, session, corpusId, corpusData: {defaultListId}, tabType} _children = do
-      pure $ DT.docViewLayout $ params tabType
-      where
-        params :: forall b. TabSubType b -> Record DT.LayoutProps
-        params TabDocs =
-          { nodeId: corpusId
-            -- ^ TODO merge nodeId and corpusId in DT
-          , chart  : H.div {} []
-          , tabType: TabCorpus TabDocs
-          , totalRecords: 4737
-          , listId: defaultListId
-          , corpusId: Just corpusId
-          , showSearch: true
-          , frontends, session }
-        params TabMoreLikeFav =
-          { nodeId: corpusId
-            -- ^ TODO merge nodeId and corpusId in DT
-          , chart  : H.div {} []
-          , tabType: TabCorpus TabMoreLikeFav
-          , totalRecords: 4737
-          , listId: defaultListId
-          , corpusId: Just corpusId
-          , showSearch: false
-          , frontends, session }
-        params TabMoreLikeTrash =
-          { nodeId: corpusId
-            -- ^ TODO merge nodeId and corpusId in DT
-          , chart  : H.div {} []
-          , tabType: TabCorpus TabMoreLikeTrash
-          , totalRecords: 4737
-          , listId: defaultListId
-          , corpusId: Just corpusId
-          , showSearch: false
-          , frontends, session }
-        params TabTrash =
-          { nodeId: corpusId
-            -- ^ TODO merge nodeId and corpusId in DT
-          , chart  : H.div {} []
-          , tabType: TabCorpus TabTrash
-          , totalRecords: 4737
-          , listId: defaultListId
-          , corpusId: Nothing
-          , showSearch: true
-          , frontends, session }
-        -- DUMMY
-        params _ =
-          { nodeId: corpusId
-            -- ^ TODO merge nodeId and corpusId in DT
-          , chart  : H.div {} []
-          , tabType: TabCorpus TabTrash
-          , totalRecords: 4737
-          , listId: defaultListId
-          , corpusId: Nothing
-          , showSearch: true
-          , frontends, session }
+    cpt props _children = do
+      pure $ DT.docViewLayout $ docViewLayoutRec props
+
+-- docViewLayoutRec :: forall a. DocViewProps a -> Record DT.LayoutProps
+docViewLayoutRec { cacheState, corpusData: { defaultListId }, corpusId, frontends, session, tabType: TabDocs } =
+  { nodeId: corpusId
+    -- ^ TODO merge nodeId and corpusId in DT
+  , cacheState
+  , chart  : H.div {} []
+  , tabType: TabCorpus TabDocs
+  , totalRecords: 4737
+  , listId: defaultListId
+  , corpusId: Just corpusId
+  , showSearch: true
+  , frontends, session }
+docViewLayoutRec { cacheState, corpusData: { defaultListId }, corpusId, frontends, session, tabType: TabMoreLikeFav } =
+  { nodeId: corpusId
+    -- ^ TODO merge nodeId and corpusId in DT
+  , cacheState
+  , chart  : H.div {} []
+  , tabType: TabCorpus TabMoreLikeFav
+  , totalRecords: 4737
+  , listId: defaultListId
+  , corpusId: Just corpusId
+  , showSearch: false
+  , frontends, session }
+docViewLayoutRec { cacheState, corpusData: { defaultListId }, corpusId, frontends, session, tabType: TabMoreLikeTrash } =
+  { nodeId: corpusId
+    -- ^ TODO merge nodeId and corpusId in DT
+  , cacheState
+  , chart  : H.div {} []
+  , tabType: TabCorpus TabMoreLikeTrash
+  , totalRecords: 4737
+  , listId: defaultListId
+  , corpusId: Just corpusId
+  , showSearch: false
+  , frontends, session }
+docViewLayoutRec { cacheState, corpusData: { defaultListId }, corpusId, frontends, session, tabType: TabTrash } =
+  { nodeId: corpusId
+    -- ^ TODO merge nodeId and corpusId in DT
+  , cacheState
+  , chart  : H.div {} []
+  , tabType: TabCorpus TabTrash
+  , totalRecords: 4737
+  , listId: defaultListId
+  , corpusId: Nothing
+  , showSearch: true
+  , frontends, session }
+-- DUMMY
+docViewLayoutRec { cacheState, corpusData: { defaultListId }, corpusId, frontends, session, tabType } =
+  { nodeId: corpusId
+    -- ^ TODO merge nodeId and corpusId in DT
+  , cacheState
+  , chart  : H.div {} []
+  , tabType: TabCorpus TabTrash
+  , totalRecords: 4737
+  , listId: defaultListId
+  , corpusId: Nothing
+  , showSearch: true
+  , frontends, session }

src/Gargantext/Components/Tab.purs

@@ -9,9 +9,13 @@ import Reactix.DOM.HTML as H
 
 import Gargantext.Utils.Reactix as R2
 
+thisModule :: String
 thisModule = "Gargantext.Components.Tab"
 
-type TabsProps = ( tabs :: Array (Tuple String R.Element), selected :: Int )
+type TabsProps = (
+    selected :: Int
+  , tabs :: Array (Tuple String R.Element)
+  )
 
 tabs :: Record TabsProps -> R.Element
 tabs props = R.createElement tabsCpt props []

src/Gargantext/Components/Table.purs

@@ -18,6 +18,7 @@ import Gargantext.Components.Search
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.Reactix (effectLink)
 
+thisModule :: String
 thisModule = "Gargantext.Components.Table"
 
 type TableContainerProps =
@@ -33,9 +34,9 @@ type Rows = Seq.Seq Row
 
 type OrderBy = Maybe (OrderByDirection ColumnName)
 
-type Params = { offset :: Int
-              , limit  :: Int
-              , orderBy :: OrderBy
+type Params = { limit      :: Int
+              , offset     :: Int
+              , orderBy    :: OrderBy
               , searchType :: SearchType
               }
 
@@ -60,20 +61,24 @@ instance showOrderByDirection :: Show a => Show (OrderByDirection a) where
 
 derive instance eqOrderByDirection :: Eq a => Eq (OrderByDirection a)
 
+orderByToForm :: OrderByDirection ColumnName -> String
+orderByToForm (ASC (ColumnName x)) = x <> "Asc"
+orderByToForm (DESC (ColumnName x)) = x <> "Desc"
+
 type Props =
   ( colNames     :: Array ColumnName
-  , wrapColElts  :: ColumnName -> Array R.Element -> Array R.Element
-                 -- ^ Use `const identity` as a default behavior.
-  , totalRecords :: Int
+  , container    :: Record TableContainerProps -> R.Element
   , params       :: R.State Params
   , rows         :: Rows
-  , container    :: Record TableContainerProps -> R.Element
+  , totalRecords :: Int
+  , wrapColElts  :: ColumnName -> Array R.Element -> Array R.Element
+                 -- ^ Use `const identity` as a default behavior.
   )
 
 type State =
-  { page     :: Int
-  , pageSize :: PageSizes
-  , orderBy  :: OrderBy
+  { page       :: Int
+  , pageSize   :: PageSizes
+  , orderBy    :: OrderBy
   , searchType :: SearchType
   }
 
@@ -94,6 +99,7 @@ type TableHeaderLayoutProps =
   , cacheState :: R.State NT.CacheState
   , date  :: String
   , desc  :: String
+  , key   :: String
   , query :: String
   , title :: String
   , user  :: String
@@ -120,26 +126,26 @@ tableHeaderLayoutCpt = R.hooksComponentWithModule thisModule "tableHeaderLayout"
         [ H.div {className: "jumbotron1", style: {padding: "12px 0px 20px 12px"}}
           [ H.div {className: "col-md-8 content"}
             [ H.p {}
-              [ H.i {className: "fa fa-globe"} []
+              [ H.span {className: "fa fa-globe"} []
               , H.text $ " " <> desc
               ]
             , H.p {}
-              [ H.i {className: "fa fa-search-plus"} []
+              [ H.span {className: "fa fa-search-plus"} []
               , H.text $ " " <> query
               ]
             , H.p { className: "cache-toggle"
                   , on: { click: cacheClick cacheState afterCacheStateChange } }
-              [ H.i {className: "fa " <> (cacheToggle cacheState)} []
+              [ H.span { className: "fa " <> (cacheToggle cacheState) } []
               , H.text $ cacheText cacheState
               ]
             ]
           , H.div {className: "col-md-4 content"}
             [ H.p {}
-              [ H.i {className: "fa fa-calendar"} []
+              [ H.span {className: "fa fa-calendar"} []
               , H.text $ " " <> date
               ]
             , H.p {}
-              [ H.i {className: "fa fa-user"} []
+              [ H.span {className: "fa fa-user"} []
               , H.text $ " " <> user
               ]
             ]

src/Gargantext/Utils/QueryString.purs

+module Gargantext.Utils.QueryString where
+
+import Data.Array
+import Data.Maybe
+import Data.String.Common (joinWith)
+
+import Gargantext.Prelude
+
+queryParam :: forall a. Show a => String -> a -> String
+queryParam key value = key <> "=" <> show value
+
+queryParamS :: String -> String -> String
+queryParamS key value = key <> "=" <> value
+
+mQueryParam :: forall a. Show a => String -> Maybe a -> String
+mQueryParam _ Nothing = ""
+mQueryParam key (Just v) = queryParam key v
+
+mQueryParamS :: forall a. String -> (a -> String) ->  Maybe a -> String
+mQueryParamS _ _ Nothing = ""
+mQueryParamS key mFunc (Just v) = queryParamS key $ mFunc v
+
+joinQueryStrings :: Array String -> String
+joinQueryStrings qs =
+  case uncons qs of
+    Nothing -> ""
+    Just { head, tail } -> "?" <> head <> (joinQS tail)
+      where
+        joinQS ys =
+          case uncons ys of
+            Nothing -> ""
+            Just { tail: ys } -> "&" <> (joinWith "&" ys)