[list] updates for all list charts work

Still in TODO: refresh graph properly, show that it is updating

src/Gargantext/Components/Node.purs

@@ -2,7 +2,7 @@ module Gargantext.Components.Node
   where
 
 import Gargantext.Prelude
-import Data.Argonaut (class DecodeJson, decodeJson, (.:))
+import Data.Argonaut (class DecodeJson, decodeJson, (.:), (.:?), (.!=))
 
 newtype NodePoly a =
   NodePoly { id :: Int
@@ -29,7 +29,7 @@ instance decodeNodePoly :: (DecodeJson a)
     hyperdata  <- obj .: "hyperdata"
     hyperdata' <- decodeJson hyperdata
 
-    pure $ NodePoly  { id : id
+    pure $ NodePoly { id : id
                  , typename : typename
                  , userId   : userId
                  , parentId : parentId
@@ -38,11 +38,10 @@ instance decodeNodePoly :: (DecodeJson a)
                  , hyperdata: hyperdata'
                  }
 
-newtype HyperdataList = HyperdataList { preferences :: String}
+newtype HyperdataList = HyperdataList { preferences :: String }
 
 instance decodeHyperdataList :: DecodeJson HyperdataList where
   decodeJson json = do
     obj <- decodeJson json
-    pref <- obj .: "preferences"
-    pure $ HyperdataList { preferences : pref}
-
+    pref <- obj .:? "preferences" .!= ""
+    pure $ HyperdataList { preferences : pref }

src/Gargantext/Components/Nodes/Corpus/Chart/Histo.purs

@@ -17,7 +17,7 @@ import Gargantext.Components.Nodes.Corpus.Chart.Types (Path, Props)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, get)
-import Gargantext.Types (ChartType(..), CTabNgramType(..), TabType(..))
+import Gargantext.Types (ChartType(..), TabType(..))
 
 newtype ChartMetrics = ChartMetrics { "data" :: HistoMetrics }
 
@@ -70,7 +70,7 @@ loaded :: Session -> Record Path -> R.State Int -> HistoMetrics -> R.Element
 loaded session path reload loaded =
   H.div {} [
     U.reloadButton reload
-  , U.chartUpdateButton { chartType: Histo, ngramsType: CTabTerms, path, reload, session }
+  , U.chartUpdateButton { chartType: Histo, path, reload, session }
   , chart $ chartOptions loaded
   ]
   -- TODO: parametrize ngramsType above

src/Gargantext/Components/Nodes/Corpus/Chart/Metrics.purs

@@ -8,6 +8,7 @@ import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 import Effect.Aff (Aff)
 import Reactix as R
+import Reactix.DOM.HTML as H
 
 import Gargantext.Components.Charts.Options.ECharts (Options(..), chart, yAxis')
 import Gargantext.Components.Charts.Options.Type (xAxis)
@@ -20,7 +21,7 @@ import Gargantext.Components.Nodes.Corpus.Chart.Types (Path, Props)
 import Gargantext.Components.Nodes.Corpus.Chart.Utils as U
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, get)
-import Gargantext.Types (TabType, TermList(..))
+import Gargantext.Types (ChartType(..), TabType, TermList(..))
 
 newtype Metric = Metric
   { label :: String
@@ -102,5 +103,9 @@ metricsCpt = R.hooksComponent "G.C.N.C.C.M.metrics" cpt
       pure $ metricsLoadView {getMetrics, loaded, path, reload, session}
 
 loaded :: Session -> Record Path -> R.State Int -> Loaded -> R.Element
-loaded _session _path setReload loaded =
-  U.reloadButtonWrap setReload $ chart $ scatterOptions loaded
+loaded session path reload loaded =
+  H.div {} [
+    U.reloadButton reload
+  , U.chartUpdateButton { chartType: Scatter, path, reload, session }
+  , chart $ scatterOptions loaded
+  ]

src/Gargantext/Components/Nodes/Corpus/Chart/Pie.purs

@@ -9,6 +9,7 @@ import Data.String (take, joinWith, Pattern(..), split, length)
 import Data.Tuple (Tuple(..))
 import Effect.Aff (Aff)
 import Reactix as R
+import Reactix.DOM.HTML as H
 
 import Gargantext.Components.Charts.Options.ECharts (Options(..), chart, xAxis', yAxis')
 import Gargantext.Components.Charts.Options.Series (seriesBarD1, seriesPieD1)
@@ -87,8 +88,12 @@ pieCpt = R.hooksComponent "G.C.N.C.C.P.pie" cpt
       pure $ metricsLoadView {getMetrics, loaded: loadedPie, path, reload, session}
 
 loadedPie :: Session -> Record Path -> R.State Int -> HistoMetrics -> R.Element
-loadedPie _session _path setReload loaded =
-  U.reloadButtonWrap setReload $ chart $ chartOptionsPie loaded
+loadedPie session path reload loaded =
+  H.div {} [
+    U.reloadButton reload
+  , U.chartUpdateButton { chartType: ChartPie, path, reload, session }
+  , chart $ chartOptionsPie loaded
+  ]
 
 
 bar :: Record Props -> R.Element
@@ -102,5 +107,9 @@ barCpt = R.hooksComponent "LoadedMetricsBar" cpt
       pure $ metricsLoadView {getMetrics, loaded: loadedBar, path, reload, session}
 
 loadedBar :: Session -> Record Path -> R.State Int -> Loaded -> R.Element
-loadedBar _session _path setReload loaded =
-  U.reloadButtonWrap setReload $ chart $ chartOptionsBar loaded
+loadedBar session path reload loaded =
+  H.div {} [
+    U.reloadButton reload
+  , U.chartUpdateButton { chartType: ChartBar, path, reload, session }
+  , chart $ chartOptionsBar loaded
+  ]

src/Gargantext/Components/Nodes/Corpus/Chart/Tree.purs

@@ -62,8 +62,9 @@ treeCpt = R.hooksComponent "G.C.N.C.C.T.tree" cpt
       pure $ metricsLoadView {getMetrics, loaded, path, reload, session}
 
 loaded :: Session -> Record Path -> R.State Int -> Loaded -> R.Element
-loaded _session _path reload loaded =
+loaded session path reload loaded =
   H.div {} [
     U.reloadButton reload
+  , U.chartUpdateButton { chartType: ChartTree, path, reload, session }
   , chart (scatterOptions loaded)
   ]

src/Gargantext/Components/Nodes/Corpus/Chart/Utils.purs

 module Gargantext.Components.Nodes.Corpus.Chart.Utils where
 
+import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import DOM.Simple.Console (log2)
 import Effect (Effect)
@@ -32,7 +33,6 @@ reloadButton (_ /\ setReload) = H.a { className
 
 type ChartUpdateButtonProps = (
     chartType :: T.ChartType
-  , ngramsType :: T.CTabNgramType
   , path :: Record Path
   , reload :: R.State Int
   , session :: Session
@@ -45,7 +45,6 @@ chartUpdateButtonCpt :: R.Component ChartUpdateButtonProps
 chartUpdateButtonCpt = R.hooksComponent "G.C.N.C.C.U.chartUpdateButton" cpt
   where
     cpt { chartType
-        , ngramsType
         , path: { corpusId, listId, tabType }
         , reload: (_ /\ setReload), session } _ = do
       R.useEffect' $ do
@@ -58,5 +57,15 @@ chartUpdateButtonCpt = R.hooksComponent "G.C.N.C.C.U.chartUpdateButton" cpt
         onClick :: forall a. a -> Effect Unit
         onClick _ = do
           launchAff_ $ do
-            _ <- recomputeChart session chartType ngramsType corpusId listId
-            liftEffect $ setReload $ (_ + 1)
+            case mNgramsType of
+              Just ngramsType -> do
+                _ <- recomputeChart session chartType ngramsType corpusId listId
+                liftEffect $ setReload $ (_ + 1)
+              Nothing -> pure unit
+
+        mNgramsType = case tabType of
+            T.TabCorpus (T.TabNgramType ngramType)   -> Just ngramType
+            T.TabCorpus _                            -> Nothing
+            T.TabDocument (T.TabNgramType ngramType) -> Just ngramType
+            T.TabDocument _                          -> Nothing
+            T.TabPairing _                           -> Nothing

src/Gargantext/Ends.purs

@@ -118,7 +118,11 @@ sessionPath (R.Tab t i)             = sessionPath (R.NodeAPI Node i (showTabType
 sessionPath (R.Children n o l s i)  = sessionPath (R.NodeAPI Node i ("children?type=" <> show n <> offsetUrl o <> limitUrl l <> orderUrl s))
 sessionPath (R.NodeAPI Phylo pId p) = "phyloscape?nodeId=" <> (show $ fromMaybe 0 pId) <> p
 sessionPath (R.RecomputeNgrams nt nId lId)      = "node/" <> (show nId) <> "/ngrams/recompute?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
+sessionPath (R.RecomputeListChart ChartBar nt nId lId)      = "node/" <> (show nId) <> "/pie?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
+sessionPath (R.RecomputeListChart ChartPie nt nId lId)      = "node/" <> (show nId) <> "/pie?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
+sessionPath (R.RecomputeListChart ChartTree nt nId lId)      = "node/" <> (show nId) <> "/tree?list=" <> (show lId) <> "&ngramsType=" <> (show nt) <> "&listType=GraphTerm"
 sessionPath (R.RecomputeListChart Histo nt nId lId)      = "node/" <> (show nId) <> "/chart?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
+sessionPath (R.RecomputeListChart Scatter nt nId lId)      = "node/" <> (show nId) <> "/metrics?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
 sessionPath (R.RecomputeListChart _ nt nId lId)      = "node/" <> (show nId) <> "/recompute-chart?list=" <> (show lId) <> "&ngramsType=" <> (show nt)
 sessionPath (R.GraphAPI gId p)      = "graph/" <> (show gId) <> "/" <> p
 sessionPath (R.GetNgrams opts i)    =