[Node] add "charts" in JSONField
[gargantext.git] / src / Gargantext / Viz / Phylo / View / ViewMaker.hs
index 31ea2d0581bf36beca9caff07d14f2c8b74a3f0c..c604f1c4c99706b33ad2c2de6dd091fca0f6bca7 100644 (file)
@@ -26,6 +26,7 @@ import Data.Vector      (Vector)
 import Gargantext.Prelude
 import Gargantext.Viz.Phylo
 import Gargantext.Viz.Phylo.Tools
+import Gargantext.Viz.Phylo.Metrics
 import Gargantext.Viz.Phylo.View.Display
 import Gargantext.Viz.Phylo.View.Filters
 import Gargantext.Viz.Phylo.View.Metrics
@@ -71,7 +72,8 @@ groupsToNodes isR isV ns gs = map (\g -> let idxs = getGroupNgrams g
                                               (if isV
                                                 then Just (ngramsToText ns idxs)
                                                 else Nothing)
-                                              empty
+                                              (g ^. phylo_groupNgramsMeta)
+                                              (g ^. phylo_groupCooc)
                                               (if (not isR)
                                                 then Just (getGroupLevelParentsId g)
                                                 else Nothing)
@@ -146,6 +148,7 @@ toPhyloView q p = traceView
                 $ processDisplay (q ^. qv_display) (q ^. qv_export)
                 $ processSort    (q ^. qv_sort   ) p
                 $ processTaggers (q ^. qv_taggers) p
+                $ processDynamics
                 $ processFilters (q ^. qv_filters) p
                 $ processMetrics (q ^. qv_metrics) p
                 $ addChildNodes  (q ^. qv_levelChilds) (q ^. qv_lvl) (q ^. qv_levelChildsDepth) (q ^. qv_verbose) (q ^. qv_filiation) p
@@ -153,19 +156,6 @@ toPhyloView q p = traceView
 
 
 
--- | To get the PhyloParam of a Phylo
-getPhyloParams :: Phylo -> PhyloParam
-getPhyloParams = _phylo_param
-
--- | To get the title of a Phylo
-getPhyloTitle :: Phylo -> Text
-getPhyloTitle p = _q_phyloTitle $ _phyloParam_query $ getPhyloParams p
-
--- | To get the desc of a Phylo
-getPhyloDescription :: Phylo -> Text
-getPhyloDescription p = _q_phyloTitle $ _phyloParam_query $ getPhyloParams p
-
-
 -----------------
 -- | Taggers | --
 -----------------