[PHYLO] implementation to Garg Flow (main fun ok).

src/Gargantext/API/Ngrams/Tools.hs

@@ -49,6 +49,20 @@ getListNgrams nodeIds ngramsType = do
 
   pure ngrams
 
+getTermsWith :: RepoCmdM env err m
+          => [ListId]
+          -> NgramsType -> ListType
+          -> m (Map Text [Text])
+getTermsWith ls ngt lt = Map.fromListWith (<>)
+                      <$> map toTree
+                      <$> Map.toList
+                      <$> Map.filter (\f -> (fst f) == lt)
+                      <$> mapTermListRoot ls ngt
+  where
+    toTree (t, (_lt, maybeRoot)) = case maybeRoot of
+      Nothing -> (t, [])
+      Just  r -> (r, [t])
+
 mapTermListRoot :: RepoCmdM env err m
                => [ListId] -> NgramsType
                -> m (Map Text (ListType, (Maybe Text)))

src/Gargantext/Viz/Phylo/Tools.hs

@@ -878,13 +878,27 @@ defaultWeightedLogJaccard :: Proximity
 defaultWeightedLogJaccard = WeightedLogJaccard (initWeightedLogJaccard Nothing Nothing)
 
 -- Queries
+type Title = Text
+type Desc  = Text
 
 defaultQueryBuild :: PhyloQueryBuild
-defaultQueryBuild = initPhyloQueryBuild "Cesar et Cleôpatre" "An example of Phylomemy (french without accent)"
-                              Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+defaultQueryBuild = defaultQueryBuild'
+  "Cesar et Cleôpatre"
+  "An example of Phylomemy (french without accent)"
+
+defaultQueryBuild' :: Title -> Desc -> PhyloQueryBuild
+defaultQueryBuild' t d = initPhyloQueryBuild t d
+                              Nothing Nothing Nothing
+                              Nothing Nothing Nothing
+                              Nothing Nothing Nothing
+                              Nothing Nothing Nothing
 
 defaultQueryView :: PhyloQueryView
-defaultQueryView = initPhyloQueryView Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+defaultQueryView = initPhyloQueryView
+    Nothing Nothing Nothing
+    Nothing Nothing Nothing
+    Nothing Nothing Nothing
+    Nothing Nothing
 
 -- Software