[PAGE][Corps][Backend Connection] data fetched and rendered (need to fix the chart).

src/Gargantext/Pages/Corpus/Annuaire.purs

@@ -179,12 +179,6 @@ instance decodeAnnuaireTable :: DecodeJson AnnuaireTable where
 ------------------------------------------------------------------------
 performAction :: PerformAction State {} Action
 performAction (Load aId) _ _ = do
-  eitherTable <- lift $ getTable aId
-  liftEffect $ log "Feching Table"
-  _ <- case eitherTable of
-            (Right table') -> void $ modifyState $ _table ?~ table'
-            (Left       err)  -> do
-              liftEffect $ log err
   
   eitherInfo <- lift $ getInfo aId
   _ <- case eitherInfo of
@@ -192,7 +186,14 @@ performAction (Load aId) _ _ = do
             (Left       err)  -> do
               liftEffect $ log err
 
-  liftEffect <<< log $ "Fetching annuaire page..."
+  eitherTable <- lift $ getTable aId
+  liftEffect $ log "Feching Table"
+  _ <- case eitherTable of
+            (Right table') -> void $ modifyState $ _table ?~ table'
+            (Left       err)  -> do
+              liftEffect $ log err
+  liftEffect <<< log $ "Annuaire page fetched."
+
 performAction _ _ _ = pure unit
 ------------------------------------------------------------------------
 getTable :: Int -> Aff (Either String AnnuaireTable)

src/Gargantext/Pages/Layout.purs

@@ -63,9 +63,9 @@ dispatchAction dispatcher _ Tabview = do
   dispatcher $ SetRoute Tabview
   -- dispatcher $ TabViewA TODO
 
-dispatchAction dispatcher _ CorpusAnalysis = do
-  dispatcher $ SetRoute CorpusAnalysis
-  -- dispatcher $ CorpusAnalysisA TODO
+dispatchAction dispatcher _ (Corpus n) = do
+  dispatcher $ SetRoute $ Corpus n
+  dispatcher $ DocViewA $ DV.LoadData n
 
 dispatchAction dispatcher _ PGraphExplorer = do
   dispatcher $ SetRoute PGraphExplorer

src/Gargantext/Pages/Layout/Specs.purs

@@ -12,7 +12,7 @@ import Gargantext.Components.Tree  as Tree
 import Gargantext.Pages.Corpus.Annuaire   as A
 import Gargantext.Folder           as F
 import Gargantext.Pages.Corpus     as CA
-import Gargantext.Pages.Corpus.Doc.Annotation as D
+import Gargantext.Pages.Corpus.Doc.Annotation as Annotation
 import Gargantext.Pages.Corpus.Doc.Facets as TV
 import Gargantext.Pages.Corpus.Doc.Facets.Dashboard as Dsh
 import Gargantext.Pages.Corpus.Doc.Facets.Documents as DV
@@ -54,13 +54,14 @@ pagesComponent s =
     Nothing    -> selectSpec Home
   where
     selectSpec :: Routes -> Spec AppState {} Action
-    selectSpec CorpusAnalysis    = layout0 $ noState CA.spec'
+    selectSpec (Corpus   i)      = layout0 $ focus _docViewState   _docViewAction   DV.layoutDocview
     selectSpec Login             = focus _loginState _loginAction LN.renderSpec
     selectSpec Home              = layout0 $ noState (L.layoutLanding EN)
     selectSpec AddCorpus         = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
     selectSpec (DocView  i)      = layout0 $ focus _docViewState   _docViewAction   DV.layoutDocview
     selectSpec (UserPage i)      = layout0 $ focus _userPageState  _userPageAction  U.layoutUser
-    selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState  _docAnnotationViewAction  D.docview
+    selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState
+                                                   _docAnnotationViewAction  Annotation.docview
     selectSpec Tabview           = layout0 $ noState TV.pureTab1
     -- To be removed
     selectSpec SearchView        = layout0 $ focus _searchState _searchAction  S.searchSpec

src/Gargantext/Router.purs

@@ -22,7 +22,7 @@ data Routes
   | UserPage       Int
   | DocAnnotation  Int
   | Tabview
-  | CorpusAnalysis
+  | Corpus         Int
   | PGraphExplorer
   | NGramsTable
   | Dashboard
@@ -35,15 +35,15 @@ instance showRoutes :: Show Routes where
   show AddCorpus        = "AddCorpus"
   show (DocView i)      = "DocView"
   show SearchView       = "Search"
-  show (UserPage i)     = "User"
+  show (UserPage i)     = "User" <> show i
   show (DocAnnotation i)= "Document"
   show Tabview          = "Tabview"
-  show CorpusAnalysis   = "Corpus"
   show PGraphExplorer   = "graphExplorer"
   show NGramsTable      = "NGramsTable"
   show Dashboard        = "Dashboard"
-  show (Annuaire i)     = "Annuaire"
-  show (Folder   i)     = "Folder"
+  show (Corpus i)       = "Corpus" <> show i
+  show (Annuaire i)     = "Annuaire" <> show i
+  show (Folder   i)     = "Folder"   <> show i
   show Home             = "Home"
 
 int :: Match Int
@@ -58,7 +58,7 @@ routing =
   <|> SearchView     <$   route "search"
   <|> DocView        <$> (route "docView"  *> int)
   <|> AddCorpus      <$   route "addCorpus"
-  <|> CorpusAnalysis <$ route "corpus"
+  <|> Corpus         <$> (route "corpus"   *> int)
   <|> PGraphExplorer <$   route "graph"
   <|> NGramsTable    <$   route "ngrams"
   <|> Dashboard      <$   route "dashboard"