Commit 0fd3795f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[MV] Facets -> Tabs

parent b381a621
...@@ -109,7 +109,7 @@ exampleTree = NTree (LNode { id : 1 ...@@ -109,7 +109,7 @@ exampleTree = NTree (LNode { id : 1
-- corpus :: Int -> String -> NTree (Tuple String String) -- corpus :: Int -> String -> NTree (Tuple String String)
-- corpus n name = NTree (LNode {id : n, name, nodeType : "", open : false}) -- corpus n name = NTree (LNode {id : n, name, nodeType : "", open : false})
-- [ NTree (Tuple "Facets" "#/corpus") [] -- [ NTree (Tuple "Tabs" "#/corpus") []
-- , NTree (Tuple "Dashboard" "#/dashboard") [] -- , NTree (Tuple "Dashboard" "#/dashboard") []
-- , NTree (Tuple "Graph" "#/graphExplorer") [] -- , NTree (Tuple "Graph" "#/graphExplorer") []
-- ] -- ]
......
...@@ -18,11 +18,11 @@ import Gargantext.Prelude ...@@ -18,11 +18,11 @@ import Gargantext.Prelude
import Gargantext.Config (toUrl, NodeType(..), End(..)) import Gargantext.Config (toUrl, NodeType(..), End(..))
import Gargantext.Config.REST (get) import Gargantext.Config.REST (get)
--------------------------------------------------------- ---------------------------------------------------------
-- Facets -- Tabs
import Gargantext.Pages.Corpus.Facets.Documents as D import Gargantext.Pages.Corpus.Tabs.Documents as D
import Gargantext.Pages.Corpus.Facets.Sources as S import Gargantext.Pages.Corpus.Tabs.Sources as S
import Gargantext.Pages.Corpus.Facets.Authors as A import Gargantext.Pages.Corpus.Tabs.Authors as A
import Gargantext.Pages.Corpus.Facets.Terms as T import Gargantext.Pages.Corpus.Tabs.Terms as T
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
------------------------------------------------------------------- -------------------------------------------------------------------
type State = { info :: Maybe (NodePoly CorpusInfo) type State = { info :: Maybe (NodePoly CorpusInfo)
...@@ -225,7 +225,7 @@ getNode :: Int -> Aff (Either String (NodePoly CorpusInfo)) ...@@ -225,7 +225,7 @@ getNode :: Int -> Aff (Either String (NodePoly CorpusInfo))
getNode id = get $ toUrl Back Node id getNode id = get $ toUrl Back Node id
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Facets -- Tabs
------------------------------------------------------------------------ ------------------------------------------------------------------------
facets :: Spec State {} Action facets :: Spec State {} Action
facets = facets =
......
module Gargantext.Pages.Corpus.Facets module Gargantext.Pages.Corpus.Tabs
( module Gargantext.Pages.Corpus.Facets.States ( module Gargantext.Pages.Corpus.Tabs.States
, module Gargantext.Pages.Corpus.Facets.Actions , module Gargantext.Pages.Corpus.Tabs.Actions
, module Gargantext.Pages.Corpus.Facets.Specs , module Gargantext.Pages.Corpus.Tabs.Specs
) where ) where
import Gargantext.Pages.Corpus.Facets.States import Gargantext.Pages.Corpus.Tabs.States
import Gargantext.Pages.Corpus.Facets.Actions import Gargantext.Pages.Corpus.Tabs.Actions
import Gargantext.Pages.Corpus.Facets.Specs import Gargantext.Pages.Corpus.Tabs.Specs
module Gargantext.Pages.Corpus.Facets.Actions where module Gargantext.Pages.Corpus.Tabs.Actions where
import Data.Lens (Prism', prism) import Data.Lens (Prism', prism)
import Data.Either (Either(..)) import Data.Either (Either(..))
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Sources as SV import Gargantext.Pages.Corpus.Tabs.Sources as SV
import Gargantext.Pages.Corpus.Facets.Authors as AV import Gargantext.Pages.Corpus.Tabs.Authors as AV
import Gargantext.Pages.Corpus.Facets.Terms as TV import Gargantext.Pages.Corpus.Tabs.Terms as TV
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
data Action data Action
......
module Gargantext.Pages.Corpus.Facets.Authors where module Gargantext.Pages.Corpus.Tabs.Authors where
import Data.Array (fold) import Data.Array (fold)
import Gargantext.Pages.Corpus.Facets.Documents as D import Gargantext.Pages.Corpus.Tabs.Documents as D
import Prelude hiding (div) import Prelude hiding (div)
import React.DOM (h3, text) import React.DOM (h3, text)
import Thermite (PerformAction, Render, Spec, defaultPerformAction, simpleSpec) import Thermite (PerformAction, Render, Spec, defaultPerformAction, simpleSpec)
......
module Gargantext.Pages.Corpus.Facets.Documents where module Gargantext.Pages.Corpus.Tabs.Documents where
import Affjax (defaultRequest, printResponseFormatError, request) import Affjax (defaultRequest, printResponseFormatError, request)
import Affjax.ResponseFormat as ResponseFormat import Affjax.ResponseFormat as ResponseFormat
...@@ -23,7 +23,7 @@ import Gargantext.Config (NodeType(..), toUrl, End(..)) ...@@ -23,7 +23,7 @@ import Gargantext.Config (NodeType(..), toUrl, End(..))
import Gargantext.Config.REST (get) import Gargantext.Config.REST (get)
import Gargantext.Utils.DecodeMaybe ((.|)) import Gargantext.Utils.DecodeMaybe ((.|))
import Gargantext.Components.Charts.Options.ECharts (chart) import Gargantext.Components.Charts.Options.ECharts (chart)
import Gargantext.Pages.Corpus.Facets.Dashboard (globalPublis) import Gargantext.Pages.Corpus.Dashboard (globalPublis)
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- TODO: Pagination Details are not available from the BackEnd -- TODO: Pagination Details are not available from the BackEnd
-- TODO: PageSize Change manually sets the totalPages, need to get from backend and reload the data -- TODO: PageSize Change manually sets the totalPages, need to get from backend and reload the data
......
module Gargantext.Pages.Corpus.Facets.Sources where module Gargantext.Pages.Corpus.Tabs.Sources where
import Data.Array (fold) import Data.Array (fold)
import Gargantext.Pages.Corpus.Facets.Documents as D import Gargantext.Pages.Corpus.Tabs.Documents as D
import Prelude hiding (div) import Prelude hiding (div)
import React.DOM (h3, text) import React.DOM (h3, text)
import Thermite (Render, Spec, defaultPerformAction, simpleSpec) import Thermite (Render, Spec, defaultPerformAction, simpleSpec)
......
module Gargantext.Pages.Corpus.Facets.Specs where module Gargantext.Pages.Corpus.Tabs.Specs where
import Prelude hiding (div) import Prelude hiding (div)
import Data.List (fromFoldable) import Data.List (fromFoldable)
import Data.Tuple (Tuple(..)) import Data.Tuple (Tuple(..))
import Gargantext.Pages.Corpus.Facets.States (State(), _doclens, _sourcelens, _authorlens, _termslens, _tablens, initialState) import Gargantext.Pages.Corpus.Tabs.States (State(), _doclens, _sourcelens, _authorlens, _termslens, _tablens, initialState)
import Gargantext.Pages.Corpus.Facets.Actions (Action(), _docAction, _sourceAction, _authorAction, _termsAction, _tabAction) import Gargantext.Pages.Corpus.Tabs.Actions (Action(), _docAction, _sourceAction, _authorAction, _termsAction, _tabAction)
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Sources as SV import Gargantext.Pages.Corpus.Tabs.Sources as SV
import Gargantext.Pages.Corpus.Facets.Authors as AV import Gargantext.Pages.Corpus.Tabs.Authors as AV
import Gargantext.Pages.Corpus.Facets.Terms as TV import Gargantext.Pages.Corpus.Tabs.Terms as TV
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
import Thermite (Spec, focus, hide) import Thermite (Spec, focus, hide)
......
module Gargantext.Pages.Corpus.Facets.States where module Gargantext.Pages.Corpus.Tabs.States where
import Data.Lens (Lens', lens) import Data.Lens (Lens', lens)
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Sources as SV import Gargantext.Pages.Corpus.Tabs.Sources as SV
import Gargantext.Pages.Corpus.Facets.Authors as AV import Gargantext.Pages.Corpus.Tabs.Authors as AV
import Gargantext.Pages.Corpus.Facets.Terms as TV import Gargantext.Pages.Corpus.Tabs.Terms as TV
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
......
module Gargantext.Pages.Corpus.Facets.Terms where module Gargantext.Pages.Corpus.Tabs.Terms where
import Data.Array (fold) import Data.Array (fold)
import Gargantext.Pages.Corpus.Facets.Documents as D import Gargantext.Pages.Corpus.Tabs.Documents as D
import Prelude hiding (div) import Prelude hiding (div)
import React.DOM (h3, text) import React.DOM (h3, text)
import Thermite (PerformAction, Render, Spec, defaultPerformAction, simpleSpec) import Thermite (PerformAction, Render, Spec, defaultPerformAction, simpleSpec)
......
module Gargantext.Pages.Corpus.Facets.Terms.NgramsItem where module Gargantext.Pages.Corpus.Tabs.Terms.NgramsItem where
import Prelude import Prelude
......
module Gargantext.Pages.Corpus.Facets.Terms.NgramsTable where module Gargantext.Pages.Corpus.Tabs.Terms.NgramsTable where
import Data.Array (filter, toUnfoldable) import Data.Array (filter, toUnfoldable)
...@@ -12,7 +12,7 @@ import Data.Tuple (Tuple(..), uncurry) ...@@ -12,7 +12,7 @@ import Data.Tuple (Tuple(..), uncurry)
import Data.Void (Void) import Data.Void (Void)
import Data.Unit (Unit) import Data.Unit (Unit)
import Effect (Effect) import Effect (Effect)
import Gargantext.Pages.Corpus.Facets.Terms.NgramsItem as NI import Gargantext.Pages.Corpus.Tabs.Terms.NgramsItem as NI
import Prelude (class Eq, class Ord, class Show, map, show, void, ($), (*), (+), (-), (/), (<), (<>), (==), (>), (>=), pure, unit) import Prelude (class Eq, class Ord, class Show, map, show, void, ($), (*), (+), (-), (/), (<), (<>), (==), (>), (>=), pure, unit)
import React (ReactElement) import React (ReactElement)
import React.DOM hiding (style, map) import React.DOM hiding (style, map)
......
...@@ -4,13 +4,13 @@ import Prelude hiding (div) ...@@ -4,13 +4,13 @@ import Prelude hiding (div)
-- import Gargantext.Components.Login as LN -- import Gargantext.Components.Login as LN
import Gargantext.Pages.Layout.Actions (Action(..)) import Gargantext.Pages.Layout.Actions (Action(..))
import Gargantext.Pages.Layout.Specs.AddCorpus as AC import Gargantext.Pages.Layout.Specs.AddCorpus as AC
-- import Gargantext.Pages.Corpus.Facets as TV -- import Gargantext.Pages.Corpus.Tabs as TV
-- import Gargantext.Pages.Corpus.Document as D -- import Gargantext.Pages.Corpus.Document as D
import Gargantext.Pages.Corpus as Corpus import Gargantext.Pages.Corpus as Corpus
import Gargantext.Pages.Corpus.Facets.Documents as D import Gargantext.Pages.Corpus.Tabs.Documents as D
import Gargantext.Pages.Corpus.Facets.Graph as GE import Gargantext.Pages.Corpus.Graph as GE
-- import Gargantext.Pages.Corpus.Facets.Terms.NgramsTable as NG -- import Gargantext.Pages.Corpus.Tabs.Terms.NgramsTable as NG
import Gargantext.Pages.Annuaire.User.Users as U import Gargantext.Pages.Annuaire.User.Users as U
import Gargantext.Pages.Annuaire as Annuaire import Gargantext.Pages.Annuaire as Annuaire
......
...@@ -16,8 +16,8 @@ import Gargantext.Pages.Annuaire as Annuaire ...@@ -16,8 +16,8 @@ import Gargantext.Pages.Annuaire as Annuaire
import Gargantext.Pages.Annuaire.User.Users as U import Gargantext.Pages.Annuaire.User.Users as U
import Gargantext.Pages.Corpus as Corpus import Gargantext.Pages.Corpus as Corpus
import Gargantext.Pages.Corpus.Document as D import Gargantext.Pages.Corpus.Document as D
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Graph as GE import Gargantext.Pages.Corpus.Graph as GE
import Gargantext.Pages.Layout.Specs.AddCorpus as AC import Gargantext.Pages.Layout.Specs.AddCorpus as AC
import Gargantext.Pages.Layout.Specs.Search as S import Gargantext.Pages.Layout.Specs.Search as S
import Gargantext.Pages.Layout.States (AppState) import Gargantext.Pages.Layout.States (AppState)
......
...@@ -19,11 +19,11 @@ import Gargantext.Pages.Annuaire as A ...@@ -19,11 +19,11 @@ import Gargantext.Pages.Annuaire as A
import Gargantext.Pages.Annuaire.User.Users as U import Gargantext.Pages.Annuaire.User.Users as U
import Gargantext.Pages.Corpus as Corpus import Gargantext.Pages.Corpus as Corpus
import Gargantext.Pages.Corpus.Document as Annotation import Gargantext.Pages.Corpus.Document as Annotation
import Gargantext.Pages.Corpus.Facets as TV import Gargantext.Pages.Corpus.Tabs as TV
import Gargantext.Pages.Corpus.Facets.Dashboard as Dsh import Gargantext.Pages.Corpus.Dashboard as Dsh
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Graph as GE import Gargantext.Pages.Corpus.Graph as GE
import Gargantext.Pages.Corpus.Facets.Terms.NgramsTable as NG import Gargantext.Pages.Corpus.Tabs.Terms.NgramsTable as NG
import Gargantext.Pages.Home as L import Gargantext.Pages.Home as L
import Gargantext.Pages.Layout.Actions (Action(..), _corpusAction, _addCorpusAction, _documentViewAction, _graphExplorerAction, _loginAction, _searchAction, _treeAction, _userPageAction, performAction, _annuaireAction) import Gargantext.Pages.Layout.Actions (Action(..), _corpusAction, _addCorpusAction, _documentViewAction, _graphExplorerAction, _loginAction, _searchAction, _treeAction, _userPageAction, performAction, _annuaireAction)
import Gargantext.Pages.Layout.Specs.AddCorpus as AC import Gargantext.Pages.Layout.Specs.AddCorpus as AC
......
...@@ -10,8 +10,8 @@ import Gargantext.Components.Tree as Tree ...@@ -10,8 +10,8 @@ import Gargantext.Components.Tree as Tree
import Gargantext.Pages.Corpus as Corpus import Gargantext.Pages.Corpus as Corpus
import Gargantext.Pages.Corpus.Document as D import Gargantext.Pages.Corpus.Document as D
import Gargantext.Pages.Annuaire as Annuaire import Gargantext.Pages.Annuaire as Annuaire
import Gargantext.Pages.Corpus.Facets.Documents as DV import Gargantext.Pages.Corpus.Tabs.Documents as DV
import Gargantext.Pages.Corpus.Facets.Graph as GE import Gargantext.Pages.Corpus.Graph as GE
import Gargantext.Pages.Annuaire.User.Users as U import Gargantext.Pages.Annuaire.User.Users as U
import Gargantext.Pages.Layout.Specs.AddCorpus as AC import Gargantext.Pages.Layout.Specs.AddCorpus as AC
import Gargantext.Pages.Layout.Specs.Search as S import Gargantext.Pages.Layout.Specs.Search as S
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment