[graph] some more ngrams children work in graph

src/Gargantext/Core/Viz/Graph/API.hs

@@ -188,11 +188,11 @@ computeGraph cId d nt repo = do
   -- printDebug "myCooc" myCooc
   -- saveAsFileDebug "debug/my-cooc" myCooc
 
-  listNgrams <- getListNgrams [lId] NgramsTerms
+  listNgrams <- getListNgrams [lId] nt
 
   graph <- liftBase $ cooc2graphWith Spinglass d 0 myCooc
   -- saveAsFileDebug "debug/graph" graph
-  pure $ set graph_ngrams (Just listNgrams) graph
+  pure $ mergeGraphNgrams graph (Just listNgrams)
 
 
 defaultGraphMetadata :: HasNodeError err

src/Gargantext/Core/Viz/Graph/Tools.hs

@@ -207,22 +207,22 @@ data2graph :: ToComId a
            -> Graph
 data2graph labels coocs bridge conf partitions = Graph { _graph_nodes = nodes
                                                        , _graph_edges = edges
-                                                       , _graph_metadata = Nothing
-                                                       , _graph_ngrams = Nothing }
+                                                       , _graph_metadata = Nothing }
   where
 
     community_id_by_node_id = Map.fromList $ map nodeId2comId partitions
 
     nodes = map (setCoord ForceAtlas labels bridge)
           [ (n, Node { node_size = maybe 0 identity (Map.lookup (n,n) coocs)
-                   , node_type = Terms -- or Unknown
-                   , node_id    = cs (show n)
-                   , node_label = l
-                   , node_x_coord = 0
-                   , node_y_coord = 0
-                   , node_attributes =
-                     Attributes { clust_default = maybe 0 identity
-                                (Map.lookup n community_id_by_node_id) } }
+                     , node_type = Terms -- or Unknown
+                     , node_id    = cs (show n)
+                     , node_label = l
+                     , node_x_coord = 0
+                     , node_y_coord = 0
+                     , node_attributes =
+                       Attributes { clust_default = maybe 0 identity
+                                    (Map.lookup n community_id_by_node_id) }
+                     , node_children = [] }
                )
             | (l, n) <- labels
             , Set.member n $ Set.fromList