Unused imports removal

src/Gargantext/Components/DocsTable.purs

 -- TODO: this module should be replaced by FacetsTable
 module Gargantext.Components.DocsTable where
 
-import Affjax (defaultRequest, request)
-import Affjax.RequestBody (RequestBody(..))
-import Affjax.ResponseFormat (printResponseFormatError)
-import Affjax.ResponseFormat as ResponseFormat
-import Control.Monad.Cont.Trans (lift)
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, jsonEmptyObject, (.?), (:=), (~>))
-import Data.Array (drop, take, (:), filter)
-import Data.Either (Either(..))
+import Data.Array (drop, take)
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
-import Data.HTTP.Method (Method(..))
-import Data.Lens
+import Data.Lens ((^.))
 import Data.Lens.At (at)
 import Data.Lens.Record (prop)
 import Data.Map (Map, insert)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Set (Set)
 import Data.Set as Set
-import Data.Int (fromString)
 import Data.Symbol (SProxy(..))
 import Data.Tuple (Tuple(..), fst)
 import Data.Tuple.Nested ((/\))
 import DOM.Simple.Event as DE
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
-import Effect.Class (liftEffect)
-import Effect.Uncurried (EffectFn1, mkEffectFn1)
-import React as React
-import React (ReactClass, ReactElement, Children)
+import Effect.Uncurried (mkEffectFn1)
 import Reactix as R
-import Reactix.SyntheticEvent as RE
 import Reactix.DOM.HTML as H
-import Unsafe.Coerce (unsafeCoerce)
 ------------------------------------------------------------------------
 import Gargantext.Prelude
-import Gargantext.Config (End(..), NodeType(..), OrderBy(..), Path(..), TabType, TabPostQuery(..), toUrl, toLink)
-import Gargantext.Config.REST (get, put, post, deleteWithBody, delete)
+import Gargantext.Config (End(..), NodeType(..), OrderBy(..), TabType, TabPostQuery(..), toUrl, toLink)
+import Gargantext.Config.REST (delete, post)
 import Gargantext.Components.Loader2 (useLoader)
-import Gargantext.Components.Node (NodePoly(..))
 import Gargantext.Components.Search.Types (Category(..), CategoryQuery(..), favCategory, trashCategory, decodeCategory, putCategories)
 import Gargantext.Components.Table as T
-import Gargantext.Utils.DecodeMaybe ((.|))
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Router as Router
-import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState_, simpleSpec, hideState)
 ------------------------------------------------------------------------
 
 type NodeID = Int

src/Gargantext/Components/Tree.purs

@@ -2,7 +2,6 @@ module Gargantext.Components.Tree where
 
 import Prelude hiding (div)
 
-import Control.Monad.Cont.Trans (lift)
 import DOM.Simple.Console (log2)
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, jsonEmptyObject, (.:), (:=), (~>))
 import Data.Array (filter)
@@ -13,23 +12,17 @@ import Data.Maybe (Maybe(..), fromJust)
 import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple)
 import Data.Tuple.Nested ((/\))
-import Effect (Effect)
-import Effect.Aff (Aff, launchAff, launchAff_, killFiber, runAff)
+import Effect.Aff (Aff, launchAff, runAff)
 import Effect.Class (liftEffect)
-import Effect.Exception (error)
 import Effect.Uncurried (mkEffectFn1)
 import FFI.Simple ((..))
 import Partial.Unsafe (unsafePartial)
-import React as React
-import React.DOM (a, div, i)
-import React.DOM.Props (className, style)
 import React.SyntheticEvent as E
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Thermite (Spec)
 import URI.Extra.QueryPairs as QP
 import URI.Query as Q
-import Unsafe.Coerce (unsafeCoerce)
 import Web.File.File (toBlob)
 import Web.File.FileList (FileList, item)
 import Web.File.FileReader.Aff (readAsText)

src/Gargantext/Folder.purs

 module Gargantext.Folder where
 
 import Prelude
-import React.DOM (div, h1, text, p)
-import Thermite (Render, Spec, simpleSpec, defaultPerformAction)
+import Reactix as R
+import Reactix.DOM.HTML as H
+import Thermite (Spec)
 
--- TODO : get REST informations
+import Gargantext.Utils.Reactix as R2
 
-render :: Render {} {} Void
-render dispatch _ state _ = [ h1 [] [text "Folder"] 
-                            , text "Some description of the folder here"
-                            ]
+-- TODO : get REST informations
 
 layoutFolder :: Spec {} {} Void
-layoutFolder = simpleSpec defaultPerformAction render
-
+layoutFolder = R2.elSpec $ R.hooksComponent "LayoutFolder" cpt
+  where
+    cpt {} _ = do
+      pure $ H.span {} [
+          H.h1 {} [ H.text "Folder" ]
+        , H.text "Some description of the folder here"
+        ]

src/Gargantext/Pages/Annuaire/User/Contacts/Tabs/Specs.purs

@@ -17,9 +17,8 @@ import Gargantext.Pages.Annuaire.User.Contacts.Types (ContactData)
 import Gargantext.Utils.Reactix as R2
 
 import Reactix as R
-import Reactix.DOM.HTML as H
 import React (Children, ReactElement, ReactClass, createElement)
-import Thermite (Spec, focus, hideState, noState, cmapProps, createClass)
+import Thermite (Spec, hideState, noState, cmapProps, createClass)
 
 data Mode = Patents | Books | Communication
 

src/Gargantext/Pages/Corpus/Document.purs

@@ -12,7 +12,7 @@ import Reactix as R
 import Thermite (PerformAction, Render, Spec, simpleSpec, cmapProps, createClass)
 
 import Gargantext.Prelude
-import Gargantext.Config          (toUrl, NodeType(..), End(..), TabSubType(..), TabType(..), CTabNgramType(..), CTabNgramType(..))
+import Gargantext.Config          (toUrl, NodeType(..), End(..), TabSubType(..), TabType(..), CTabNgramType(..))
 import Gargantext.Config.REST     (get)
 import Gargantext.Components.AutoUpdate (autoUpdateElt)
 import Gargantext.Components.Loader2 (useLoader)

src/Gargantext/Pages/Corpus/Graph.purs

@@ -3,13 +3,10 @@ module Gargantext.Pages.Corpus.Graph where
 import Effect.Unsafe (unsafePerformEffect)
 import Gargantext.Prelude hiding (max,min)
 
-import Control.Monad.Cont.Trans (lift)
-import Data.Array (fold, length, (!!), null)
 import Data.FoldableWithIndex (foldMapWithIndex)
 import Data.Foldable (foldMap)
 import Data.Int (toNumber)
-import Data.Int as Int
-import Data.Lens (Lens', over, (%~), (.~), (^.))
+import Data.Lens (Lens')
 import Data.Lens.Record (prop)
 import Data.Maybe (Maybe(..), fromJust)
 import Data.Newtype (class Newtype)
@@ -18,36 +15,15 @@ import Data.Sequence as Seq
 import Data.Set (Set)
 import Data.Set as Set
 import Data.Symbol (SProxy(..))
-import Data.Traversable (for_)
-import Effect (Effect)
-import Effect.Aff (Aff)
-import Effect.Class (liftEffect)
 import Partial.Unsafe (unsafePartial)
-import React (ReactElement)
-import React.DOM (button, div, input, li, li', menu, p, span, text, ul')
-import React.DOM.Props (_id, _type, className, defaultValue, max, min, onChange, onClick, style, onMouseMove)
 import React.SyntheticEvent (SyntheticUIEvent, target)
-import Thermite (PerformAction, Render, Spec, _render, cmapProps, defaultPerformAction, defaultRender, modifyState, modifyState_, noState, simpleSpec, withState)
 import Unsafe.Coerce (unsafeCoerce)
-import Web.HTML (window)
-import Web.HTML.Window (localStorage)
-import Web.Storage.Storage (getItem)
 
 import Gargantext.Hooks.Sigmax.Types as Sigmax
-import Gargantext.Hooks.Sigmax.Sigmajs (CameraProps, SigmaNode, cameras, getCameraProps, goTo, pauseForceAtlas2, sigmaOnMouseMove)
-import Gargantext.Components.GraphExplorer.Types (Cluster(..), MetaData(..), Edge(..), GraphData(..), Legend(..), Node(..), getLegendData, intColor)
-import Gargantext.Components.Login.Types (AuthData(..), TreeId)
-import Gargantext.Components.RangeSlider as RangeSlider
-import Gargantext.Components.RandomText (words)
+import Gargantext.Components.GraphExplorer.Types (Cluster(..), MetaData(..), Edge(..), GraphData(..), Legend, Node(..), intColor)
+import Gargantext.Components.Login.Types (TreeId)
 import Gargantext.Components.Graph as Graph
-import Gargantext.Components.Tree as Tree
-import Gargantext.Config as Config
-import Gargantext.Config.REST (get)
-import Gargantext.Pages.Corpus.Graph.Tabs as GT
-import Gargantext.Types (class Optional)
-import Gargantext.Utils (toggleSet)
 import Gargantext.Utils.Range as Range
-import Gargantext.Utils.Reactix (scuff)
 
 data Action
   = LoadGraph Int

src/Gargantext/Pages/Layout.purs

 module Gargantext.Pages.Layout where
 
 import Prelude hiding (div)
--- import Gargantext.Components.Login as LN
 import Gargantext.Pages.Layout.Actions (Action(..))
--- import Gargantext.Pages.Corpus.Tabs as TV
 
-import Gargantext.Pages.Corpus.Graph          as GE
--- import Gargantext.Pages.Corpus.Tabs.Terms.NgramsTable as NG
-
--- import Gargantext.Pages.Home as L
 import Gargantext.Router (Routes(..))
 
 dispatchAction :: forall ignored m.

src/Gargantext/Pages/Lists/Tabs/Specs.purs

@@ -8,21 +8,16 @@ import Data.List (fromFoldable)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 
-import Gargantext.Config (CTabNgramType(..), End(..), Path(..), TabSubType(..), TabType(..), toUrl)
+import Gargantext.Config (CTabNgramType(..), TabSubType(..), TabType(..))
 import Gargantext.Pages.Lists.Tabs.Types (Props, PropsRow)
 
-import Gargantext.Pages.Corpus.Chart.Histo (histoSpec)
 import Gargantext.Pages.Corpus.Chart.Metrics (metricsSpec)
 import Gargantext.Pages.Corpus.Chart.Pie  (pieSpec, barSpec)
 import Gargantext.Pages.Corpus.Chart.Tree (treeSpec)
 
 import Gargantext.Components.NgramsTable as NT
-import Gargantext.Components.Charts.Options.ECharts (chart) as ECharts
-import Gargantext.Components.DocsTable as DT
 import Gargantext.Components.Tab as Tab
-import Gargantext.Utils.Reactix as R2
 
-import Reactix.DOM.HTML as H
 import React (ReactElement, ReactClass, createElement, Children)
 import Thermite (Spec, hideState, noState, cmapProps, createClass)
 

src/Gargantext/Pages/Texts/Tabs/Specs.purs

@@ -8,16 +8,11 @@ import Data.List (fromFoldable)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 
-import Gargantext.Config (CTabNgramType(..), End(..), Path(..), TabSubType(..), TabType(..), toUrl)
+import Gargantext.Config (CTabNgramType(..), TabSubType(..), TabType(..))
 import Gargantext.Pages.Texts.Tabs.Types (Props, PropsRow)
 
 import Gargantext.Pages.Corpus.Chart.Histo (histoSpec)
-import Gargantext.Pages.Corpus.Chart.Metrics (metricsSpec)
-import Gargantext.Pages.Corpus.Chart.Pie  (pieSpec, barSpec)
-import Gargantext.Pages.Corpus.Chart.Tree (treeSpec)
 
-import Gargantext.Components.NgramsTable as NT
-import Gargantext.Components.Charts.Options.ECharts (chart) as ECharts
 import Gargantext.Components.DocsTable as DT
 import Gargantext.Components.Tab as Tab
 import Gargantext.Utils.Reactix as R2
@@ -80,7 +75,7 @@ docViewSpec tst = R2.elSpec $ R.hooksComponent "DocViewSpecWithCorpus" cpt
       pure $ DT.docViewSpec $ params tst
 
       where
-        params :: forall a. TabSubType a -> DT.Props
+        params :: forall b. TabSubType b -> DT.Props
         params TabDocs = {
           nodeId: corpusId
           -- ^ TODO merge nodeId and corpusId in DT

src/Gargantext/Router.purs

@@ -2,16 +2,9 @@ module Gargantext.Router where
 
 import Gargantext.Prelude
 
-import Control.Alt ((<|>))
 import Data.Foldable (oneOf)
 import Data.Int (floor)
-import Data.Maybe (Maybe(..))
-import Effect (Effect)
-import Effect.Class (liftEffect)
 import Routing.Match (Match, lit, num)
-import Web.HTML (window)
-import Web.HTML.Window (localStorage)
-import Web.Storage.Storage (getItem)
 
 data Routes
   = Home

src/Gargantext/Utils.purs

 module Gargantext.Utils where
 
 import Prelude
-import Data.Ordering (Ordering(..))
+import Data.Lens (Lens', lens)
 import Data.Newtype (class Newtype, unwrap, wrap)
 import Data.Set as Set
 import Data.Set (Set)
-import Data.Lens (Lens', lens)
 
 -- | Astonishingly, not in the prelude
 id :: forall a. a -> a