[FACTO] renaming states records name.

src/Gargantext/Pages/Layout/Actions.purs

@@ -8,26 +8,24 @@ import Control.Monad.Eff.Console (CONSOLE, log)
 import DOM (DOM)
 import Data.Array (length)
 import Data.Either (Either(..))
-import Data.Lens (Lens', Prism', lens, prism)
+import Data.Lens (Prism', prism)
 
-import Gargantext.Pages.Corpus.Doc.Annotation   as D
-import Gargantext.Pages.Corpus.Doc.Body         as CA
-import Gargantext.Pages.Corpus.Doc.Document     as DV
 import Gargantext.Components.Login              as LN
 import Gargantext.Components.Modals.Modal          (modalShow)
 import Gargantext.Components.Tree               as Tree
-import Gargantext.Pages.Corpus.Doc.Facets.Dashboard as Dsh
 import Gargantext.Pages.Corpus                  as AC
-import Gargantext.Router                           (Routes(..))
-import Gargantext.Pages.Corpus.User.Users       as U
+import Gargantext.Pages.Corpus.Doc.Annotation   as D
+import Gargantext.Pages.Corpus.Doc.Body         as CA
+import Gargantext.Pages.Corpus.Doc.Document     as DV
+import Gargantext.Pages.Corpus.Doc.Facets       as TV
+import Gargantext.Pages.Corpus.Doc.Facets.Dashboard as Dsh
 import Gargantext.Pages.Corpus.Doc.Facets.Graph as GE
-import Gargantext.Pages.Home                    as L
 import Gargantext.Pages.Corpus.Doc.Facets.Terms.NgramsTable as NG
-import Gargantext.Pages.Search                  as S
-import Gargantext.Pages.Corpus.Doc.Facets       as TV
-
+import Gargantext.Pages.Corpus.User.Users       as U
+import Gargantext.Pages.Home                    as L
 import Gargantext.Pages.Layout.States (AppState)
-import Gargantext.Pages.Corpus.Doc.Document as DV
+import Gargantext.Pages.Search                  as S
+import Gargantext.Router                           (Routes)
 
 import Network.HTTP.Affjax (AJAX)
 import Thermite (PerformAction, modifyState)
@@ -97,7 +95,7 @@ performAction Initialize  _ state = void do
               modifyState id
             Right docs -> do
               modifyState $ _ { initialized = true
-                              , ntreeView = if length d > 0
+                              , ntreeState = if length d > 0
                                             then Tree.exampleTree
                                            --then fnTransform $ unsafePartial $ fromJust $ head d
                                            else Tree.initialState

src/Gargantext/Pages/Layout/Specs.purs

@@ -21,7 +21,7 @@ import Gargantext.Pages.Layout.States (         _addCorpusState
                                       ,     _graphExplorerState
                                       ,           _landingState
                                       ,             _loginState
-                                      ,                _ngState
+                                      ,             _ngramState
                                       ,            _searchState
                                       ,           _tabviewState
                                       ,              _treeState
@@ -64,6 +64,22 @@ import React.DOM.Props (_data, _id, _type, aria, className, href, onChange, onCl
 import Thermite (Render, Spec, _render, defaultPerformAction, defaultRender, focus, simpleSpec, withState)
 import Unsafe.Coerce (unsafeCoerce)
 
+layoutSpec :: forall eff props. Spec (E eff) AppState props Action
+layoutSpec =
+  fold
+  [ routingSpec
+  , container $ withState pagesComponent
+  , withState \st ->
+     fold [ focus _loginState _loginAction (LN.modalSpec st.showLogin "Login" LN.renderSpec)
+          , focus _addCorpusState _addCorpusAction (AC.modalSpec st.showCorpus "Search Results" AC.layoutAddcorpus)
+          ]
+  ]
+  where
+    container :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
+    container = over _render \render d p s c ->
+      (render d p s c)
+
+
 pagesComponent :: forall props eff. AppState -> Spec (E eff) AppState props Action
 pagesComponent s =
   case s.currentRoute of
@@ -85,7 +101,7 @@ pagesComponent s =
     selectSpec Tabview           = layout0 $ focus _tabviewState  _tabviewAction  TV.tab1
     -- To be removed
     selectSpec SearchView        = layout0 $ focus _searchState _searchAction  S.searchSpec
-    selectSpec NGramsTable       = layout0 $ focus _ngState _NgramsA  NG.ngramsTableSpec
+    selectSpec NGramsTable       = layout0 $ focus _ngramState _NgramsA  NG.ngramsTableSpec
     selectSpec PGraphExplorer    = focus _graphExplorerState _graphExplorerAction  GE.specOld
     selectSpec Dashboard         = layout0 $ focus _dashBoardSate _dashBoardAction Dsh.layoutDashboard
 
@@ -334,17 +350,4 @@ layoutFooter = simpleSpec performAction render
                                    ]
                             ]
 
-layoutSpec :: forall eff props. Spec (E eff) AppState props Action
-layoutSpec =
-  fold
-  [ routingSpec
-  , container $ withState pagesComponent
-  , withState \st ->
-     fold [ focus _loginState _loginAction (LN.modalSpec st.showLogin "Login" LN.renderSpec)
-          , focus _addCorpusState _addCorpusAction (AC.modalSpec st.showCorpus "Search Results" AC.layoutAddcorpus)
-          ]
-  ]
-  where
-    container :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
-    container = over _render \render d p s c ->
-      (render d p s c)
+

src/Gargantext/Pages/Layout/States.purs

@@ -2,17 +2,12 @@ module Gargantext.Pages.Layout.States where
 
 import Prelude hiding (div)
 
-import Control.Monad.Cont.Trans (lift)
-import Control.Monad.Eff.Class (liftEff)
-import Control.Monad.Eff.Console (CONSOLE, log)
+import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
-import Data.Array (length)
-import Data.Either (Either(..))
-import Data.Lens (Lens', Prism', lens, prism)
+import Data.Lens (Lens', lens)
 import Data.Maybe (Maybe(Just))
 
 import Gargantext.Components.Login              as LN
-import Gargantext.Components.Modals.Modal          (modalShow)
 import Gargantext.Components.Tree               as Tree
 import Gargantext.Pages.Corpus                  as AC
 import Gargantext.Pages.Corpus.Doc.Annotation   as D
@@ -28,7 +23,6 @@ import Gargantext.Pages.Search                  as S
 import Gargantext.Router                           (Routes(..))
 
 import Network.HTTP.Affjax (AJAX)
-import Thermite (PerformAction, modifyState)
 
 type E e = (dom :: DOM, ajax :: AJAX, console :: CONSOLE | e)
 
@@ -39,18 +33,18 @@ type AppState =
   , addCorpusState :: AC.State
   , docViewState   :: DV.State
   , searchState    :: S.State
-  , userPage       :: U.State
-  , docAnnotationView :: D.State
-  , ntreeView      :: Tree.State
-  , tabview        :: TV.State
+  , userPageState  :: U.State
+  , docAnnotationState :: D.State
+  , ntreeState     :: Tree.State
+  , tabviewState   :: TV.State
   , search    :: String
-  , corpusAnalysis :: CA.State
+  , corpusState    :: CA.State
   , showLogin      :: Boolean
   , showCorpus     :: Boolean
-  , graphExplorer  :: GE.State
+  , graphExplorerState  :: GE.State
   , initialized    :: Boolean
-  , ngState        :: NG.State
-  , dashboard      :: Dsh.State
+  , ngramState     :: NG.State
+  , dashboardState :: Dsh.State
   }
 
 initAppState :: AppState
@@ -61,18 +55,18 @@ initAppState =
   , addCorpusState : AC.initialState
   , docViewState   : DV.tdata
   , searchState    : S.initialState
-  , userPage       : U.initialState
-  , docAnnotationView : D.initialState
-  , ntreeView      : Tree.exampleTree
-  , tabview        : TV.initialState
+  , userPageState  : U.initialState
+  , docAnnotationState : D.initialState
+  , ntreeState   : Tree.exampleTree
+  , tabviewState : TV.initialState
   , search  : ""
-  , corpusAnalysis : CA.initialState
+  , corpusState  : CA.initialState
   , showLogin    : false
   , showCorpus   : false
-  , graphExplorer  : GE.initialState
+  , graphExplorerState  : GE.initialState
   , initialized    : false
-  , ngState        : NG.initialState
-  , dashboard      : Dsh.initialState
+  , ngramState     : NG.initialState
+  , dashboardState : Dsh.initialState
   }
 
 ---------------------------------------------------------
@@ -92,27 +86,27 @@ _searchState :: Lens' AppState S.State
 _searchState = lens (\s -> s.searchState) (\s ss -> s{searchState = ss})
 
 _userPageState :: Lens' AppState U.State
-_userPageState = lens (\s -> s.userPage) (\s ss -> s{userPage = ss})
+_userPageState = lens (\s -> s.userPageState) (\s ss -> s{userPageState = ss})
 
 _docAnnotationViewState :: Lens' AppState D.State
-_docAnnotationViewState = lens (\s -> s.docAnnotationView) (\s ss -> s{docAnnotationView = ss})
+_docAnnotationViewState = lens (\s -> s.docAnnotationState) (\s ss -> s{docAnnotationState = ss})
 
 _treeState :: Lens' AppState Tree.State
-_treeState = lens (\s -> s.ntreeView) (\s ss -> s {ntreeView = ss})
+_treeState = lens (\s -> s.ntreeState) (\s ss -> s {ntreeState = ss})
 
 _tabviewState :: Lens' AppState TV.State
-_tabviewState = lens (\s -> s.tabview) (\s ss -> s {tabview = ss})
+_tabviewState = lens (\s -> s.tabviewState) (\s ss -> s {tabviewState = ss})
 
 _corpusState :: Lens' AppState CA.State
-_corpusState = lens (\s -> s.corpusAnalysis) (\s ss -> s {corpusAnalysis = ss})
+_corpusState = lens (\s -> s.corpusState) (\s ss -> s {corpusState = ss})
 
 _dashBoardSate :: Lens' AppState Dsh.State
-_dashBoardSate = lens (\s -> s.dashboard) (\s ss -> s {dashboard = ss})
+_dashBoardSate = lens (\s -> s.dashboardState) (\s ss -> s {dashboardState = ss})
 
 _graphExplorerState :: Lens' AppState GE.State
-_graphExplorerState = lens (\s -> s.graphExplorer) (\s ss -> s{graphExplorer = ss})
+_graphExplorerState = lens (\s -> s.graphExplorerState) (\s ss -> s{graphExplorerState = ss})
 
-_ngState :: Lens' AppState NG.State
-_ngState = lens (\s -> s.ngState) (\s ss -> s{ngState = ss})
+_ngramState :: Lens' AppState NG.State
+_ngramState = lens (\s -> s.ngramState) (\s ss -> s{ngramState = ss})