some pages are complete except facets sub folder

src/Gargantext/Navigation.purs

@@ -2,35 +2,35 @@ module Gargantext.Navigation where
 
 import Prelude hiding (div)
 
-import AddCorpusview as AC
 import Control.Monad.Cont.Trans (lift)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE, log)
-import CorpusAnalysis as CA
+import Gargantext.Pages.Corpus.Doc.Body as CA
 import DOM (DOM)
 import Data.Array (length)
 import Data.Either (Either(..))
 import Data.Foldable (fold, intercalate)
 import Data.Lens (Lens', Prism', lens, over, prism)
 import Data.Maybe (Maybe(Nothing, Just))
-import DocAnnotation as D
-import DocView as DV
+import Gargantext.Pages.Corpus.Doc.Annotation as D
+import Gargantext.Pages.Corpus.Doc.Document as DV
 import Gargantext.Components.Data.Lang (Lang(..))
 import Gargantext.Components.Login as LN
 import Gargantext.Components.Modals.Modal (modalShow)
 import Gargantext.Components.Tree as Tree
 import Gargantext.Dashboard as Dsh
+import Gargantext.Pages.Corpus as AC
 import Gargantext.Router (Routes(..))
 import Gargantext.Users as U
 import Graph as GE
-import Landing as L
+import Gargantext.Pages.Home as L
 import Network.HTTP.Affjax (AJAX)
 import NgramsTable as NG
 import React (ReactElement)
 import React.DOM (a, button, div, footer, hr, img, input, li, p, span, text, ul)
 import React.DOM.Props (_data, _id, _type, aria, className, href, onChange, onClick, placeholder, role, src, style, tabIndex, target, title)
-import SearchForm as S
-import Tabview as TV
+import Gargantext.Pages.Search as S
+import Gargantext.Pages.Corpus.Doc.Facets as TV
 import Thermite (PerformAction, Render, Spec, _render, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState)
 import Unsafe.Coerce (unsafeCoerce)
 

src/Gargantext/Pages/Corpus.purs

-module AddCorpusview where
+module Gargantext.Pages.Corpus where
+
+import Prelude hiding (div)
 
 import Control.Monad.Aff (Aff, attempt)
 import Control.Monad.Aff.Class (liftAff)
 import Control.Monad.Aff.Console (log)
 import Control.Monad.Cont.Trans (lift)
-import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
-import DOM.HTML (window)
-import DOM.HTML.Location (host)
-import DOM.HTML.Window (localStorage)
-import DOM.WebStorage.Storage (getItem, setItem)
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, jsonEmptyObject, (.?), (:=), (~>))
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
-import Data.Lens (Lens', Prism', lens, over)
-import Data.List (List, fold, fromFoldable, toUnfoldable)
-import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Lens (over)
+import Data.Maybe (Maybe(Just))
 import Data.MediaType.Common (applicationJSON)
-import Data.Tuple (Tuple(..))
-import Landing as L
 import Gargantext.Components.Modals.Modal (modalHide)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))
-import Prelude hiding (div)
 import React (ReactElement)
-import React.DOM (a, button, div, form, h2, h3, h4, h5, i, input, label, li, p, span, text, ul)
-import React.DOM.Props (_data, _id, _type, aria, className, href, maxLength, name, onClick, onInput, placeholder, role, target, value)
+import React.DOM (button, div, h3, h5, li, span, text, ul)
+import React.DOM.Props (_data, _id, _type, aria, className, onClick, role)
 import Routing.Hash.Aff (setHash)
-import Thermite (PerformAction, Render, Spec, _render, cotransform, focus, foreach, modifyState, simpleSpec, withState)
-import Unsafe.Coerce (unsafeCoerce)
-
+import Thermite (PerformAction, Render, Spec, _render, cotransform, modifyState, simpleSpec)
 
 type State =
   { select_database :: Boolean

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

-module DocAnnotation where
+module Gargantext.Pages.Corpus.Doc.Annotation where
 
 import Prelude hiding (div)
 import React (ReactElement)

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

-module CorpusAnalysis where
+module Gargantext.Pages.Corpus.Doc.Body where
+
+import Prelude hiding (div)
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import Network.HTTP.Affjax (AJAX)
-import Prelude (id, void)
-import Prelude hiding (div)
-import React.DOM (div, h3, hr, i, p, span, text, input)
-import React.DOM.Props (className, style)
-import Tabview as Tab
-import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
 import Gargantext.Components.Charts.Options.ECharts (chart)
 import Gargantext.Dashboard (globalPublis)
+import Gargantext.Pages.Corpus.Doc.Facet as Tab
+import Network.HTTP.Affjax (AJAX)
+import React.DOM (div, h3, hr, i, p, text)
+import React.DOM.Props (className, style)
+import Thermite (Render, Spec, defaultPerformAction, simpleSpec)
 
 type State = Tab.State
 

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

-module DocView where
+module Gargantext.Pages.Corpus.Doc.Document where
 
 import Prelude
 
-import Control.Monad.Aff (Aff, attempt)
-import Control.Monad.Aff.Class (liftAff)
+import Control.Monad.Aff (Aff)
 import Control.Monad.Cont.Trans (lift)
-import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE, log)
-import DOM (DOM)
-import DOM.HTML (window) as DOM
-import DOM.HTML.Types (htmlDocumentToParentNode) as DOM
-import DOM.HTML.Window (document) as DOM
-import DOM.Node.ParentNode (QuerySelector(..))
-import DOM.Node.ParentNode (querySelector) as DOM
-import Data.Argonaut
-import Data.Array (filter, replicate)
+import Data.Argonaut (class DecodeJson, decodeJson, (.?))
+import Data.Array (filter)
 import Data.Either (Either(..))
 import Data.Generic (class Generic, gShow)
-import Data.HTTP.Method (Method(..))
-import Data.Maybe (fromJust)
-import Data.MediaType.Common (applicationJSON)
 import Data.Tuple (Tuple(..))
 import Gargantext.Components.Charts.Charts (p'')
-import Gargantext.Components.Charts.Options.ECharts
-import Gargantext.Dashboard (globalPublis)
 import Gargantext.Config.REST (get)
-import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
-import Network.HTTP.RequestHeader (RequestHeader(..))
-import Partial.Unsafe (unsafePartial)
+import Network.HTTP.Affjax (AJAX)
 import React (ReactElement)
-import React as R
-import React.DOM (a, b, b', br', div, h3, i, input, li, option, select, span, table, tbody, td, text, thead, th, tr, ul, nav)
-import React.DOM.Props (Props, _type, className, href, onChange, onClick, selected, value, scope, _id, role, _data, aria)
-import ReactDOM as RDOM
-import Thermite (PerformAction, Render, Spec, cotransform, createReactSpec, defaultPerformAction, modifyState, simpleSpec)
+import React.DOM (a, b, b', br', div, input, option, select, span, table, tbody, td, text, th, thead, tr)
+import React.DOM.Props (_type, className, href, onChange, onClick, scope, selected, value)
+import Thermite (PerformAction, Render, Spec, cotransform, defaultPerformAction, modifyState, simpleSpec)
 import Unsafe.Coerce (unsafeCoerce)
 
 

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

-module Tabview where
+module Gargantext.Pages.Corpus.Doc.Facets where
 
 import Prelude hiding (div)
 
@@ -9,7 +9,7 @@ import Data.Either (Either(..))
 import Data.Lens (Lens', Prism', lens, prism)
 import Data.List (fromFoldable)
 import Data.Tuple (Tuple(..))
-import DocView as DV
+import Gargantext.Pages.Corpus.Doc.Document as DV
 import Gargantext.Components.Tab as Tab
 import Network.HTTP.Affjax (AJAX)
 import Sourceview as SV

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

@@ -4,11 +4,11 @@ module Sourceview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)
-import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
+import Thermite (Render, Spec, defaultPerformAction, simpleSpec)
 
 type State = D.State
 

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

@@ -4,7 +4,7 @@ module Authorview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)

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

@@ -5,7 +5,7 @@ module Termsview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)

src/Gargantext/Pages/Corpus/User/Users/Types.purs

@@ -19,7 +19,7 @@ import DOM (DOM)
 import Data.List (fromFoldable)
 import Data.Tuple (Tuple(..))
 import Network.HTTP.Affjax (AJAX)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Gargantext.Components.Tab (tabs)
 import Thermite (Spec, focus)
 

src/Gargantext/Pages/Corpus/User/Users/Types/Lens.purs

@@ -9,7 +9,7 @@ import Data.Maybe (Maybe)
 import Gargantext.Users.Types.States (Action(..), State)
 import Gargantext.Users.Types.Types (User)
 import Network.HTTP.Affjax (AJAX)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Publications as P
 import Gargantext.Components.Tab as Tab
 import Thermite (Spec, focus)

src/Gargantext/Pages/Corpus/User/Users/Types/States.purs

@@ -4,7 +4,7 @@ module Gargantext.Users.Types.States
 import Brevets as B
 import Data.Maybe (Maybe(..))
 import Gargantext.Users.Types.Types (User)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Publications as P
 import Gargantext.Components.Tab as Tab
 

src/Gargantext/Pages/Folder.purs

-module Projects where
-
+module Gargantext.Pages.Folder where
 
+import Prelude (id, void)
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Network.HTTP.Affjax (AJAX)
-import Prelude (id, void)
 import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
 
 

src/Gargantext/Pages/Home.purs

-module Landing where
+module Gargantext.Pages.Home where
 
 import Prelude hiding (div)
 

src/Gargantext/Pages/Search.purs

-module SearchForm where
-
+module Gargantext.Pages.Search where
 
 import Control.Monad.Aff.Console (CONSOLE)
 import Control.Monad.Cont.Trans (lift)
@@ -11,7 +10,7 @@ import React.DOM.Props (_id, _type, className, name, onClick, onInput, placehold
 import Routing.Hash.Aff (setHash)
 import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
 import Unsafe.Coerce (unsafeCoerce)
-import Landing as L
+import Gargantext.Pages.Home as L
 
 type State =
   {