components done

src/Gargantext/Components/Charts/Charts.purs

-module Gargantext.Chart where
+module Gargantext.Components.Charts.Charts where
 
-import Prelude (($), (<<<), (<$>))
+import Prelude hiding (min)
 
 import CSS (Color, white)
 import Data.Maybe (Maybe(..))

src/Gargantext/Components/Charts/Options/Color.purs

-module Gargantext.Charts.Color
+module Gargantext.Components.Charts.Options.Color
        ( ChartColor()
        , chartColor
        , transparent
        ) where
 
-import Prelude ((<<<))
+import Prelude
+
 import CSS (Color, toHexString)
 import Color (rgba)
 

src/Gargantext/Components/Charts/Options/Data.purs

-module Gargantext.Charts.Data where
+module Gargantext.Components.Charts.Options.Data where
 
-import Gargantext.Charts.Font (TextStyle, Icon)
-import Prelude ((<<<))
-import Unsafe.Coerce (unsafeCoerce)
+import Gargantext.Components.Charts.Options.Font (TextStyle, Icon)
 
 type DataN =
   { name :: String

src/Gargantext/Components/Charts/Options/ECharts.purs

-module Gargantext.Charts.ECharts where
+module Gargantext.Components.Charts.Options.ECharts where
 
-import Prelude (($), map, class Show, show, (<<<), (==))
-import Data.Array (length)
+import Prelude
 
-import CSS (black, blue, italic, violet, white, yellow)
+import CSS (black, italic, violet)
 import CSS.Common (normal)
-import Gargantext.Charts.Series
-import Gargantext.Charts.Data
-import Gargantext.Charts.Color (chartColor, transparent)
-import Gargantext.Charts.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon)
-import Gargantext.Charts.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient)
-import Gargantext.Charts.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition)
-import Gargantext.Charts.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis)
-import Data.Either (Either(..))
+import Data.Array (length)
 import Data.Maybe (Maybe(..))
+import Gargantext.Components.Charts.Options.Color (chartColor, transparent)
+import Gargantext.Components.Charts.Options.Data (DataN, DataS, DataV)
+import Gargantext.Components.Charts.Options.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon)
+import Gargantext.Components.Charts.Options.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient)
+import Gargantext.Components.Charts.Options.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition)
+import Gargantext.Components.Charts.Options.Series (Series, SeriesName, SeriesShape(..), seriesType)
+import Gargantext.Components.Charts.Options.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis)
 import React as R
-import React.DOM (p)
+
 
 foreign import eChartsClass :: R.ReactClass Echarts
 
@@ -157,7 +156,7 @@ tooltip' =
 series :: SeriesShape -> SeriesName -> Array DataS -> Series
 series sh name ss =  { name: name
   , "type": seriesType sh
-  , "data": ss 
+  , "data": ss
   }
 
 data YAxisFormat = YAxisFormat { position :: String
@@ -293,5 +292,3 @@ textStyle =
     ,textShadowOffsetX: 0.0
     ,textShadowOffsetY: 0.0
   }
-
-

src/Gargantext/Components/Charts/Options/Font.purs

-module Gargantext.Charts.Font
+module Gargantext.Components.Charts.Options.Font
        (
          TextStyle,
          ChartFontStyle(),
@@ -12,12 +12,14 @@ module Gargantext.Charts.Font
          icon
        ) where
 
+import Prelude (Unit, ($), (<<<), (<>))
+
 import CSS (FontStyle(..), FontWeight(..), Prefixed(..), Value(..))
-import Gargantext.Charts.Color (ChartColor)
-import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
 import Data.Generic (class Generic, gShow)
 import Data.String (toLower)
-import Prelude (Unit, ($), (<<<), (<>))
+import Gargantext.Components.Charts.Options.Color (ChartColor)
+import Gargantext.Components.Charts.Options.Position (LeftRelativePosition, Position, TopRelativePosition)
+
 
 type TextStyle =
   { color      :: ChartColor

src/Gargantext/Components/Charts/Options/Legend.purs

-module Gargantext.Charts.Legend
+module Gargantext.Components.Charts.Options.Legend
        (
          LegendType(..),
          PlainOrScroll(..),
@@ -11,9 +11,10 @@ module Gargantext.Charts.Legend
          selectedMode
        ) where
 
+import Prelude (class Show, show, (<<<))
+
 import Data.Generic (class Generic, gShow)
 import Data.String (toLower)
-import Prelude (class Show, show, (<<<))
 import Unsafe.Coerce (unsafeCoerce)
 
 newtype LegendType = LegendType String
@@ -45,4 +46,3 @@ selectedMode :: LegendMode -> SelectedMode
 selectedMode (Bool b) = unsafeCoerce b
 selectedMode (Single) = unsafeCoerce "single"
 selectedMode (Multiple) = unsafeCoerce "multiple"
-

src/Gargantext/Components/Charts/Options/Position.purs

-module Gargantext.Charts.Position
+module Gargantext.Components.Charts.Options.Position
        (
          Position(),
          numberPosition,
@@ -9,7 +9,8 @@ module Gargantext.Charts.Position
          LeftRelativePosition(..)
        ) where
 
-import Prelude (class Show, show, ($), (<>))
+import Prelude
+
 import Unsafe.Coerce (unsafeCoerce)
 
 -- | The type `Position` is made to render a css position.

src/Gargantext/Components/Charts/Options/Series.purs

-module Gargantext.Charts.Series where
+module Gargantext.Components.Charts.Options.Series where
 
-import Gargantext.Charts.Data (DataS)
-import Prelude (class Show, show, (<<<))
+import Prelude
+
+import Gargantext.Components.Charts.Options.Data (DataS)
 
 
 newtype SeriesType = SeriesType String

src/Gargantext/Components/Charts/Options/Type.purs

-module Gargantext.Charts.Type where
+module Gargantext.Components.Charts.Options.Type where
 
-import Gargantext.Charts.Font
+import Prelude
 
 import CSS (Color)
-import Gargantext.Charts.Series
-import Gargantext.Charts.Data
-import Gargantext.Charts.Color (ChartColor(..))
-import Gargantext.Charts.Font (Icon, icon, TextStyle)
-import Gargantext.Charts.Legend (LegendType, SelectedMode, selectedMode, Orient)
-import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
-import Data.Either (Either)
 import Data.Maybe (Maybe)
-import Prelude (Unit, (<<<))
-
+import Gargantext.Components.Charts.Options.Color (ChartColor)
+import Gargantext.Components.Charts.Options.Data (DataN, DataV)
+import Gargantext.Components.Charts.Options.Font (TextStyle)
+import Gargantext.Components.Charts.Options.Legend (LegendType, Orient, SelectedMode)
+import Gargantext.Components.Charts.Options.Position (LeftRelativePosition, Position, TopRelativePosition)
+import Gargantext.Components.Charts.Options.Series (Series)
 
 newtype ChartAlign = ChartAlign String
 

src/Gargantext/Components/GraphExplorer/Sigmajs.purs

-module GraphExplorer.Sigmajs where
+module Gargantext.Components.GraphExplorer.Sigmajs where
+
+import Prelude
 
 import Control.Monad.Eff (Eff)
-import Prelude (Unit)
 import React (ReactClass, ReactElement, createElement)
 import Unsafe.Coerce (unsafeCoerce)
 

src/Gargantext/Components/Modals/Modal.purs

 module Gargantext.Components.Modals.Modal where
 
-import Control.Monad.Eff (Eff)
 import Prelude (Unit)
 
+import Control.Monad.Eff (Eff)
+
 foreign import modalShow :: forall eff. String -> Eff eff Unit
 
 foreign import modalHide :: forall eff. String -> Eff eff Unit

src/Gargantext/Components/Tab.purs

 module Gargantext.Components.Tab where
 
+import Prelude hiding (div)
+
 import Data.Array (fold)
 import Data.Lens (Lens', Prism', over, view)
 import Data.List (List, mapWithIndex, toUnfoldable)
 import Data.Tuple (Tuple(..))
-import Prelude hiding (div)
 import React (ReactElement)
 import React.DOM (a, div, nav, text)
 import React.DOM.Props (className, onClick)

src/Gargantext/Components/Tree.purs

@@ -9,7 +9,6 @@ import Control.Monad.Eff.Console (CONSOLE, log)
 import Data.Argonaut (class DecodeJson, decodeJson, (.?))
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
-import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple(..))
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import React (ReactElement)

src/Gargantext/Config/REST.purs

 module Gargantext.Config.REST where
 
-import Data.Argonaut
-import Data.HTTP.Method (Method(..))
-import Network.HTTP.RequestHeader (RequestHeader(..))
-import Prelude (bind, ($), pure, show)
-import Data.MediaType.Common (applicationJSON)
+import Prelude
 
 import Control.Monad.Aff (Aff, attempt)
 import Control.Monad.Aff.Class (liftAff)
 import Control.Monad.Eff.Console (CONSOLE)
-
+import Data.Argonaut (class DecodeJson, decodeJson)
 import Data.Either (Either(..))
-
+import Data.HTTP.Method (Method(..))
+import Data.MediaType.Common (applicationJSON)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
-
+import Network.HTTP.RequestHeader (RequestHeader(..))
 
 get :: forall eff t2 t31. DecodeJson t31 => String ->
                       Aff (console :: CONSOLE, ajax :: AJAX| eff)

src/Gargantext/Navigation.purs

@@ -15,15 +15,15 @@ import Data.Lens (Lens', Prism', lens, over, prism)
 import Data.Maybe (Maybe(Nothing, Just))
 import DocAnnotation as D
 import DocView 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.Components.Data.Lang (Lang(..))
 import Gargantext.Router (Routes(..))
 import Gargantext.Users as U
 import Graph as GE
 import Landing as L
-import Gargantext.Components.Login as LN
-import Gargantext.Components.Modals.Modal (modalShow)
 import Network.HTTP.Affjax (AJAX)
 import NgramsTable as NG
 import React (ReactElement)

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

@@ -10,8 +10,7 @@ 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.Charts.ECharts (chart)
+import Gargantext.Components.Charts.Options.ECharts (chart)
 import Gargantext.Dashboard (globalPublis)
 
 type State = Tab.State
@@ -50,7 +49,7 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
                          , text " Query: all publications with all schools ids"
                          ]
                   ]
-            , div [ className "col-md-4 content"] 
+            , div [ className "col-md-4 content"]
                   [ p [] [ i [className "fa fa-calendar"] []
                          , text " June. 26 2018, 10:59 am"
                          ]

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

@@ -22,8 +22,8 @@ import Data.HTTP.Method (Method(..))
 import Data.Maybe (fromJust)
 import Data.MediaType.Common (applicationJSON)
 import Data.Tuple (Tuple(..))
-import Gargantext.Chart (p'')
-import Gargantext.Charts.ECharts
+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)

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

 module Gargantext.Dashboard where
 
-import Prelude (($), (<>), show, pure, unit, map)
+import Prelude
+
 import Data.Array (zip)
 import Data.Tuple (Tuple(..))
-import Gargantext.Charts.ECharts
-import Gargantext.Charts.Series
-
+import Gargantext.Components.Charts.Options.ECharts
+import Gargantext.Components.Charts.Options.Series
 import DOM (DOM)
 import Data.Unit (Unit)
 import Data.Int (toNumber)
-
 import React.DOM (div, h1, text, title)
 import React.DOM.Props (className)
 import Thermite (PerformAction, Render, Spec, simpleSpec)

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

@@ -17,9 +17,9 @@ import Data.Int (toNumber)
 import Data.Maybe (Maybe(..), fromJust)
 import Data.MediaType.Common (applicationJSON)
 import Data.Newtype (class Newtype)
+import Gargantext.Components.GraphExplorer.Sigmajs (Color(Color), SigmaEasing, SigmaGraphData(SigmaGraphData), SigmaNode, SigmaSettings, canvas, edgeShape, edgeShapes, forceAtlas2, sStyle, sigma, sigmaEasing, sigmaEdge, sigmaEnableWebGL, sigmaNode, sigmaSettings)
 import Gargantext.Components.GraphExplorer.Types (Cluster(..), Edge(..), GraphData(..), Legend(..), Node(..), getLegendData)
 import Gargantext.Utils (getter)
-import GraphExplorer.Sigmajs (Color(Color), SigmaEasing, SigmaGraphData(SigmaGraphData), SigmaNode, SigmaSettings, canvas, edgeShape, edgeShapes, forceAtlas2, sStyle, sigma, sigmaEasing, sigmaEdge, sigmaEnableWebGL, sigmaNode, sigmaSettings)
 import Math (cos, sin)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))