[RENAME] DocAnnotation.

src/Gargantext/Pages/Layout.purs

@@ -61,9 +61,9 @@ dispatchAction dispatcher _ (Annuaire id) = do
 dispatchAction dispatcher _ (Folder id) = do
   dispatcher $ SetRoute $ Folder id
 
-dispatchAction dispatcher _ (DocAnnotation i) = do
-  dispatcher $ SetRoute $ DocAnnotation i
-  -- dispatcher $ DocAnnotationViewA TODO
+dispatchAction dispatcher _ (Document i) = do
+  dispatcher $ SetRoute $ Document i
+  -- dispatcher $ DocumentViewA TODO
 
 dispatchAction dispatcher _ PGraphExplorer = do
   dispatcher $ SetRoute PGraphExplorer

src/Gargantext/Pages/Layout/Actions.purs

@@ -37,7 +37,7 @@ data Action
     | AddCorpusA AC.Action
     | DocViewA   DV.Action
     | GraphExplorerA     GE.Action
-    | DocAnnotationViewA D.Action
+    | DocumentViewA D.Action
   | AnnuaireAction     Annuaire.Action
     | UserPageA  U.Action
   | Go
@@ -102,7 +102,7 @@ performAction (CorpusAction  _) _ _ = pure unit
 performAction (DocViewA      _) _ _ = pure unit
 performAction (SearchA       _) _ _ = pure unit
 performAction (UserPageA     _) _ _ = pure unit
-performAction (DocAnnotationViewA _) _ _ = pure unit
+performAction (DocumentViewA _) _ _ = pure unit
 performAction (TreeViewA          _) _ _ = pure unit
 performAction (GraphExplorerA     _) _ _ = pure unit
 performAction (AnnuaireAction     _) _ _ = pure unit
@@ -152,9 +152,9 @@ _annuaireAction = prism AnnuaireAction \action ->
        _                -> Left  action
 
 _docAnnotationViewAction :: Prism' Action D.Action
-_docAnnotationViewAction = prism DocAnnotationViewA \action ->
+_docAnnotationViewAction = prism DocumentViewA \action ->
   case action of
-    DocAnnotationViewA caction -> Right caction
+    DocumentViewA caction -> Right caction
     _-> Left action
 
 _treeAction :: Prism' Action Tree.Action

src/Gargantext/Pages/Layout/Specs.purs

@@ -60,7 +60,7 @@ pagesComponent s = case s.currentRoute of
     selectSpec (Corpus   i)      = layout0 $ focus _corpusState   _corpusAction   Corpus.layout
     selectSpec AddCorpus         = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
     selectSpec SearchView        = layout0 $ focus _searchState _searchAction  S.searchSpec
-    selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState _docAnnotationViewAction  Annotation.docview
+    selectSpec (Document i) = layout0 $ focus _docAnnotationViewState _docAnnotationViewAction  Annotation.docview
     selectSpec PGraphExplorer    = focus _graphExplorerState _graphExplorerAction  GE.specOld
     selectSpec Dashboard         = layout0 $ noState Dsh.layoutDashboard
     

src/Gargantext/Router.purs

@@ -20,7 +20,7 @@ data Routes
     | Corpus           Int
       | AddCorpus
       | DocView        Int
-      | DocAnnotation  Int
+      | Document  Int
       | PGraphExplorer
       | NGramsTable
       | Dashboard
@@ -36,7 +36,7 @@ routing =
   <|> Corpus           <$> (route "corpus"   *> int)
     <|> DocView      <$> (route "docView"  *> int)
     <|> NGramsTable  <$   route "ngrams"
-    <|> DocAnnotation  <$> (route "document" *> int)
+    <|> Document  <$> (route "document" *> int)
     <|> Dashboard      <$   route "dashboard"
     <|> PGraphExplorer <$   route "graph"
   <|> Annuaire         <$> (route "annuaire" *> int)
@@ -54,7 +54,7 @@ instance showRoutes :: Show Routes where
   show AddCorpus        = "AddCorpus"
   show SearchView       = "Search"
   show (UserPage i)     = "User"   <> show i
-  show (DocAnnotation i)= "Document"
+  show (Document i)= "Document"
   show (Corpus i)       = "Corpus" <> show i
   show (DocView i)      = "DocView"
   show NGramsTable      = "NGramsTable"