TEMP: endConfig work

src/Gargantext/Components/Tree.purs

@@ -26,7 +26,7 @@ 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 Thermite as T
 import URI.Extra.QueryPairs as QP
 import URI.Query as Q
 import Unsafe.Coerce (unsafeCoerce)
@@ -37,6 +37,7 @@ import Web.File.FileReader.Aff (readAsText)
 import Gargantext.Components.Loader2 (useLoader)
 import Gargantext.Config (toUrl, endConfigStateful, End(..), NodeType(..), readNodeType)
 import Gargantext.Config.REST (get, put, post, postWwwUrlencoded, delete)
+import Gargantext.Pages.Layout.States (AppState)
 import Gargantext.Router as Router
 import Gargantext.Types (class ToQuery, toQuery)
 import Gargantext.Utils (id)
@@ -178,9 +179,12 @@ treeLoadView setReload p = R.createElement el p []
       useLoader root loadNode $ \{loaded} ->
         loadedTreeView setReload {tree: loaded, mCurrentRoute}
 
-treeview :: Spec {} Props Void
-treeview = R2.elSpec $ R.hooksComponent "TreeView" cpt
+treeview :: T.Spec AppState Props Void
+--treeview = R2.elSpec $ R.hooksComponent "TreeView" cpt
+treeview = T.simpleSpec T.defaultPerformAction render
   where
+    render :: T.Render AppState Props Void
+    render _ props _ children = [R2.scuff $ R.createElement (R.hooksComponent "TreeView" cpt) props (R2.buff <$> children)]
     cpt {root, mCurrentRoute} _children = do
       -- NOTE: this is a hack to reload the tree view on demand
       setReload <- R.useState' 0

src/Gargantext/Pages/Corpus/Graph.purs

@@ -23,7 +23,7 @@ import Gargantext.Components.GraphExplorer.Sigmajs (Color(Color), SigmaEasing, S
 import Gargantext.Components.GraphExplorer.Types (Cluster(..), MetaData(..), Edge(..), GraphData(..), Legend(..), Node(..), getLegendData)
 import Gargantext.Components.Login.Types (AuthData(..), TreeId)
 import Gargantext.Components.RandomText (words)
-import Gargantext.Components.Tree as Tree
+--import Gargantext.Components.Tree as Tree
 import Gargantext.Config as Config
 import Gargantext.Config.REST (get)
 import Gargantext.Pages.Corpus.Graph.Tabs as GT
@@ -419,7 +419,8 @@ specOld = fold [treespec treeSpec, graphspec $ simpleSpec performAction render']
         Nothing ->
           simpleSpec defaultPerformAction defaultRender
         Just treeId ->
-          (cmapProps (const {root: treeId, mCurrentRoute: Nothing}) (noState Tree.treeview))
+          simpleSpec defaultPerformAction defaultRender
+          --cmapProps (const {root: treeId, mCurrentRoute: Nothing}) (noState $ Tree.treeview Config.endConfigStateful)
     
     
     render' :: Render State {} Action

src/Gargantext/Pages/Layout/Specs.purs

@@ -29,10 +29,14 @@ import Gargantext.Pages.Layout.Actions (Action(..), _addCorpusAction, _graphExpl
 import Gargantext.Pages.Layout.Specs.AddCorpus as AC
 import Gargantext.Pages.Layout.Specs.Search    as S
 import Gargantext.Pages.Layout.Specs.SearchBar as SB
-import Gargantext.Pages.Layout.States (AppState, _addCorpusState, _graphExplorerState, _loginState, _searchState)
+import Gargantext.Pages.Layout.States (AppState, _graphExplorerState, _searchState, _loginState, _addCorpusState)
 import Gargantext.Router (Routes(..))
 import Gargantext.Utils.Reactix (scuff)
 
+-- TODO
+-- rewrite layoutSpec to use state (with EndConfig)
+-- tree changes endConfig state => trigger endConfig change in outerLayout, layoutFooter etc
+
 layoutSpec :: Spec AppState {} Action
 layoutSpec =
   fold
@@ -94,7 +98,7 @@ layout0 layout =
        withState \st ->
           case st.loginState.authData of
             Just (AuthData {tree_id}) ->
-              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) as
+              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) $ Tree.treeview
             Nothing ->
               outerLayout1
       , rs bs
@@ -111,7 +115,7 @@ layout0 layout =
         ] (render d p s c) ]
     cont = over _render \render d p s c -> [ div [className "row"      ] (render d p s c) ]
 
-    as = noState Tree.treeview
+    --as = noState Tree.treeview
 
     bs = innerLayout $ layout
 
@@ -142,7 +146,7 @@ layout1 layout =
       [ withState \st ->
           case st.loginState.authData of
             Just (AuthData {tree_id}) ->
-              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) as
+              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) $ Tree.treeview
             Nothing ->
               outerLayout1
       , rs bs
@@ -156,8 +160,6 @@ layout1 layout =
     rs   = over _render \render d p s c -> [ div [if (s.showTree) then className "col-md-10" else className "col-md-12"] (render d p s c) ]
     cont = over _render \render d p s c -> [ div [className "row"      ] (render d p s c) ]
 
-    as = noState Tree.treeview
-
     bs = innerLayout $ layout
 
     innerLayout :: Spec AppState {} Action

src/Gargantext/Pages/Layout/States.purs

@@ -6,6 +6,7 @@ import Data.Lens                                       (Lens', lens)
 import Data.Maybe                                      (Maybe(Just))
 import Effect (Effect)
 import Gargantext.Components.Login                  as LN
+import Gargantext.Config (EndConfig, endConfigStateful)
 
 import Gargantext.Pages.Corpus.Graph     as GE
 import Gargantext.Pages.Layout.Specs.AddCorpus      as AC
@@ -21,6 +22,7 @@ type AppState =
   , showCorpus         :: Boolean
   , graphExplorerState :: GE.State
   , showTree           :: Boolean
+  , endConfig          :: EndConfig
   }
 
 initAppState :: Effect AppState
@@ -35,6 +37,7 @@ initAppState = do
     , showCorpus     : false
     , graphExplorerState : GE.initialState
     , showTree : false
+    , endConfig : endConfigStateful
     }