[Docs] Node Docs : blank page

* Issue #312

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

@@ -59,7 +59,11 @@ chartWith options =
 
       execOnInit fn = toMaybe >>> case _ of
         Nothing                        -> pure unit
-        Just (ref :: Record EChartRef) -> pure unit -- fn =<< ref.getEchartsInstance
+        -- Just (ref :: Record EChartRef) -> fn =<< ref.getEchartsInstance
+        -- ^ this line can break for some reasons... (see Issue #312)
+        Just (ref :: Record EChartRef) -> do
+          i <- ref.getEchartsInstance
+          fn i
 
 echarts :: Echarts -> R.Element
 echarts c = R2.buff $ unsafeCreateElementDynamic (unsafeCoerce eChartsClass) c []

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

@@ -216,3 +216,19 @@ type EChartRef =
   ( getEchartsInstance :: Effect EChartsInstance
   -- ...
   )
+
+----
+
+-- | As "dispatchAction" call has a variadic arity, we can dissociate a type
+-- | where the cliked item (bar, pie section, etc.) need this dispatchAction
+-- | To do so, we have to trimmed its given properties to match this example [1]
+-- |
+-- | [1] https://echarts.apache.org/en/api.html#action.highlight
+type EChartActionData =
+  ( dataIndex   :: Int
+  , name        :: String
+  , seriesId    :: Nullable String
+  , seriesIndex :: Int
+  , seriesName  :: String
+  , type        :: String
+  )

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

@@ -67,7 +67,7 @@ chartOptions { onClick, onInit } (HistoMetrics { dates: dates', count: count'})
         , emphasis: { itemStyle: itemStyle { color: blue } }
         -- @XXX "select" action not working
         -- , selectedMode: selectedMode Single
-        , select: { itemStyle: itemStyle { color: green }}
+        -- , select: { itemStyle: itemStyle { color: green }}
         }
 
       series =

src/Gargantext/Components/Nodes/Texts.purs

 module Gargantext.Components.Nodes.Texts where
 
-import DOM.Simple.Console (log2)
+import Gargantext.Prelude
+
 import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..))
 import Data.Show.Generic (genericShow)
-import Data.Symbol (SProxy(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (launchAff_)
 import Gargantext.Components.Charts.Options.ECharts (dispatchAction)
-import Gargantext.Components.Charts.Options.Type (EChartsInstance)
+import Gargantext.Components.Charts.Options.Type (EChartsInstance, EChartActionData)
 import Gargantext.Components.DocsTable as DT
 import Gargantext.Components.DocsTable.Types (Year)
 import Gargantext.Components.NgramsTable.Loader (clearCache)
@@ -23,13 +23,11 @@ import Gargantext.Components.Tab as Tab
 import Gargantext.Components.Table as Table
 import Gargantext.Ends (Frontends)
 import Gargantext.Hooks.Loader (useLoader)
-import Gargantext.Prelude
 import Gargantext.Sessions (WithSession, Session, getCacheState)
 import Gargantext.Types (CTabNgramType(..), ListId, NodeID, SidePanelState(..), TabSubType(..), TabType(..))
 import Gargantext.Utils.Reactix as R2
 import Reactix as R
 import Reactix.DOM.HTML as H
-import Record (set)
 import Toestand as T
 
 here :: R2.Here
@@ -170,8 +168,18 @@ tabsCpt = here.component "tabs" cpt
               -- @XXX due to lack of support for "echart.select" action,
               --      have to manually rely on a set/unset selection
               --      targeting the "echart.emphasis" action
+              let
+                opts' :: Record EChartActionData
+                opts' =
+                  { dataIndex   : opts.dataIndex
+                  , name        : opts.name
+                  , seriesId    : opts.seriesId
+                  , seriesIndex : opts.seriesIndex
+                  , seriesName  : opts.seriesName
+                  , type        : "highlight"
+                  }
               dispatchAction i { type: "downplay" }
-              dispatchAction i $ set (SProxy :: SProxy "type") "highlight" opts
+              dispatchAction i opts'
 
       activeTab <- T.useBox 0