[FACTO] Facets into Thermite Node.

src/Gargantext/Pages/Corpus/Doc/Facets.purs

-module Gargantext.Pages.Corpus.Doc.Facets where
+module Gargantext.Pages.Corpus.Doc.Facets
+  ( module Gargantext.Pages.Corpus.Doc.Facets.States
+  , module Gargantext.Pages.Corpus.Doc.Facets.Actions
+  , module Gargantext.Pages.Corpus.Doc.Facets.Specs
+  ) where
 
-import Prelude hiding (div)
+import Gargantext.Pages.Corpus.Doc.Facets.States
+import Gargantext.Pages.Corpus.Doc.Facets.Actions
+import Gargantext.Pages.Corpus.Doc.Facets.Specs
 
-import Gargantext.Pages.Corpus.Doc.Facets.Authors as AV
-import Control.Monad.Eff.Console (CONSOLE)
-import DOM (DOM)
-import Data.Either (Either(..))
-import Data.Lens (Lens', Prism', lens, prism)
-import Data.List (fromFoldable)
-import Data.Tuple (Tuple(..))
-import Gargantext.Pages.Corpus.Doc.Document as DV
-import Gargantext.Components.Tab as Tab
-import Network.HTTP.Affjax (AJAX)
-import Gargantext.Pages.Corpus.Doc.Facets.Sources as SV
-import Gargantext.Pages.Corpus.Doc.Facets.Terms as TV
-import Thermite (Spec, focus)
-
-data Action
-  =  DocviewA DV.Action
-  | SourceviewA SV.Action
-  | AuthorviewA AV.Action
-  | TermsviewA TV.Action
-  | TabViewA   Tab.Action
-  | NoOp
-
-type State =
-  { docview :: DV.State
-  , authorview :: AV.State
-  , sourceview :: SV.State
-  , termsview :: TV.State
-  , activeTab :: Int
-  }
-
-initialState :: State
-initialState =
-  { docview : DV.tdata
-  , authorview : AV.initialState
-  , sourceview : SV.initialState
-  , termsview : TV.initialState
-  , activeTab : 0
-  }
-
-_doclens :: Lens' State DV.State
-_doclens = lens (\s -> s.docview) (\s ss -> s {docview = ss})
-
-
-_docAction :: Prism' Action DV.Action
-_docAction = prism DocviewA \ action ->
-  case action of
-    DocviewA laction -> Right laction
-    _-> Left action
-
-
-docPageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
-docPageSpec = focus _doclens _docAction DV.layoutDocview
-
-
-_authorlens :: Lens' State AV.State
-_authorlens = lens (\s -> s.authorview) (\s ss -> s {authorview = ss})
-
-
-_authorAction :: Prism' Action AV.Action
-_authorAction = prism AuthorviewA \ action ->
-  case action of
-    AuthorviewA laction -> Right laction
-    _-> Left action
-
-authorPageSpec :: forall eff props. Spec (dom :: DOM, console::CONSOLE, ajax :: AJAX | eff) State  props Action
-authorPageSpec = focus _authorlens _authorAction AV.authorspec'
-
-
-_sourcelens :: Lens' State SV.State
-_sourcelens = lens (\s -> s.sourceview) (\s ss -> s {sourceview = ss})
-
-
-_sourceAction :: Prism' Action SV.Action
-_sourceAction = prism SourceviewA \ action ->
-  case action of
-    SourceviewA laction -> Right laction
-    _-> Left action
-
-
-sourcePageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
-sourcePageSpec = focus _sourcelens _sourceAction SV.sourcespec'
-
-
-_termslens :: Lens' State TV.State
-_termslens = lens (\s -> s.termsview) (\s ss -> s {termsview = ss})
-
-
-_termsAction :: Prism' Action TV.Action
-_termsAction = prism TermsviewA \ action ->
-  case action of
-    TermsviewA laction -> Right laction
-    _-> Left action
-
-
-termsPageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
-termsPageSpec = focus _termslens _termsAction TV.termSpec'
-
-
-_tablens :: Lens' State Tab.State
-_tablens = lens (\s -> s.activeTab) (\s ss -> s {activeTab = ss})
-
-
-
-_tabAction :: Prism' Action Tab.Action
-_tabAction = prism TabViewA \ action ->
-  case action of
-    TabViewA laction -> Right laction
-    _-> Left action
-
-
-
-tab1 :: forall eff props. Spec ( dom :: DOM, console :: CONSOLE, ajax :: AJAX| eff) State props Action
-tab1 = Tab.tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc View" docPageSpec
-                                               , Tuple "Author View" authorPageSpec
-                                               , Tuple "Source View" sourcePageSpec
-                                               , Tuple "Terms View" termsPageSpec
-                                               ]

src/Gargantext/Pages/Corpus/Doc/Facets/Actions.purs

+module Gargantext.Pages.Corpus.Doc.Facets.Actions where
+
+
+import Data.Lens (Prism', prism)
+import Data.Either (Either(..))
+
+import Gargantext.Pages.Corpus.Doc.Document as DV
+import Gargantext.Pages.Corpus.Doc.Facets.Sources as SV
+import Gargantext.Pages.Corpus.Doc.Facets.Authors as AV
+import Gargantext.Pages.Corpus.Doc.Facets.Terms as TV
+import Gargantext.Components.Tab as Tab
+
+data Action
+  =  DocviewA DV.Action
+  | SourceviewA SV.Action
+  | AuthorviewA AV.Action
+  | TermsviewA TV.Action
+  | TabViewA   Tab.Action
+  | NoOp
+
+_docAction :: Prism' Action DV.Action
+_docAction = prism DocviewA \ action ->
+  case action of
+    DocviewA laction -> Right laction
+    _-> Left action
+
+_authorAction :: Prism' Action AV.Action
+_authorAction = prism AuthorviewA \ action ->
+  case action of
+    AuthorviewA laction -> Right laction
+    _-> Left action
+
+_sourceAction :: Prism' Action SV.Action
+_sourceAction = prism SourceviewA \ action ->
+  case action of
+    SourceviewA laction -> Right laction
+    _-> Left action
+
+_termsAction :: Prism' Action TV.Action
+_termsAction = prism TermsviewA \ action ->
+  case action of
+    TermsviewA laction -> Right laction
+    _-> Left action
+
+_tabAction :: Prism' Action Tab.Action
+_tabAction = prism TabViewA \ action ->
+  case action of
+    TabViewA laction -> Right laction
+    _-> Left action
+
+
+

src/Gargantext/Pages/Corpus/Doc/Facets/Specs.purs

+module Gargantext.Pages.Corpus.Doc.Facets.Specs where
+
+import Prelude hiding (div)
+
+import Control.Monad.Eff.Console (CONSOLE)
+import DOM (DOM)
+import Data.Lens (Lens', Prism', lens, prism)
+import Data.List (fromFoldable)
+import Data.Tuple (Tuple(..))
+
+import Gargantext.Pages.Corpus.Doc.Facets.States (State(..), _doclens, _sourcelens, _authorlens, _termslens, _tablens)
+import Gargantext.Pages.Corpus.Doc.Facets.Actions (Action(..), _docAction, _sourceAction, _authorAction, _termsAction, _tabAction)
+
+import Gargantext.Pages.Corpus.Doc.Document as DV
+import Gargantext.Pages.Corpus.Doc.Facets.Sources as SV
+import Gargantext.Pages.Corpus.Doc.Facets.Authors as AV
+import Gargantext.Pages.Corpus.Doc.Facets.Terms as TV
+import Gargantext.Components.Tab as Tab
+
+import Network.HTTP.Affjax (AJAX)
+import Thermite (Spec, focus)
+
+
+
+tab1 :: forall eff props. Spec ( dom :: DOM, console :: CONSOLE, ajax :: AJAX| eff) State props Action
+tab1 = Tab.tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc View"    docPageSpec
+                                                   , Tuple "Author View" authorPageSpec
+                                                   , Tuple "Source View" sourcePageSpec
+                                                   , Tuple "Terms View"  termsPageSpec
+                                                   ]
+
+docPageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+docPageSpec = focus _doclens _docAction DV.layoutDocview
+
+authorPageSpec :: forall eff props. Spec (dom :: DOM, console::CONSOLE, ajax :: AJAX | eff) State  props Action
+authorPageSpec = focus _authorlens _authorAction AV.authorspec'
+
+sourcePageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+sourcePageSpec = focus _sourcelens _sourceAction SV.sourcespec'
+
+termsPageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+termsPageSpec = focus _termslens _termsAction TV.termSpec'
+
+
+

src/Gargantext/Pages/Corpus/Doc/Facets/States.purs

+module Gargantext.Pages.Corpus.Doc.Facets.States where
+
+import Data.Lens (Lens', lens)
+import Gargantext.Pages.Corpus.Doc.Document as DV
+import Gargantext.Pages.Corpus.Doc.Facets.Sources as SV
+import Gargantext.Pages.Corpus.Doc.Facets.Authors as AV
+import Gargantext.Pages.Corpus.Doc.Facets.Terms as TV
+import Gargantext.Components.Tab as Tab
+
+
+type State =
+  { docview :: DV.State
+  , authorview :: AV.State
+  , sourceview :: SV.State
+  , termsview :: TV.State
+  , activeTab :: Int
+  }
+
+initialState :: State
+initialState =
+  { docview : DV.tdata
+  , authorview : AV.initialState
+  , sourceview : SV.initialState
+  , termsview : TV.initialState
+  , activeTab : 0
+  }
+
+_doclens :: Lens' State DV.State
+_doclens = lens (\s -> s.docview) (\s ss -> s {docview = ss})
+
+_authorlens :: Lens' State AV.State
+_authorlens = lens (\s -> s.authorview) (\s ss -> s {authorview = ss})
+
+_sourcelens :: Lens' State SV.State
+_sourcelens = lens (\s -> s.sourceview) (\s ss -> s {sourceview = ss})
+
+_termslens :: Lens' State TV.State
+_termslens = lens (\s -> s.termsview) (\s ss -> s {termsview = ss})
+
+_tablens :: Lens' State Tab.State
+_tablens = lens (\s -> s.activeTab) (\s ss -> s {activeTab = ss})
+
+
+
+