change the candidate's selection process

src/Gargantext/Core/Viz/Phylo/PhyloExport.hs

@@ -220,7 +220,9 @@ exportToDot phylo export =
                      ,(toAttr (fromStrict "phyloGroups") $ pack $ show (length $ export ^. export_groups))
                      ,(toAttr (fromStrict "phyloSources") $ pack $ show (Vector.toList $ getSources phylo))
                      ,(toAttr (fromStrict "phyloTimeScale") $ pack $ getTimeScale phylo)
-                     ,(toAttr (fromStrict "phyloGranularity") $ pack $ show (_qua_granularity $ phyloQuality $ getConfig phylo))
+                     ,(toAttr (fromStrict "phyloLevel") $ pack $ show (_qua_granularity $ phyloQuality $ getConfig phylo))
+                     ,(toAttr (fromStrict "phyloSeaRiseStart") $ pack $ show (_cons_start $ getSeaElevation phylo))
+                     ,(toAttr (fromStrict "phyloSeaRiseSteps") $ pack $ show (_cons_step  $ getSeaElevation phylo))
                      -- ,(toAttr (fromStrict "phyloTermsFreq") $ pack $ show (toList $ _phylo_lastTermFreq phylo))
                      ])
 

src/Gargantext/Core/Viz/Phylo/TemporalMatching.hs

@@ -249,7 +249,8 @@ getNextPeriods fil max' pId pIds =
 getCandidates :: PhyloGroup -> [[(PhyloGroupId,[Int])]] -> [[(PhyloGroupId,[Int])]]
 getCandidates ego targets =
   map (\groups' ->
-    filter (\g' -> (not . null) $ intersect (ego ^. phylo_groupNgrams) (snd g')
+    -- filter (\g' -> (not . null) $ intersect (ego ^. phylo_groupNgrams) (snd g')
+    filter (\g' -> (> 1) $ length $ intersect (ego ^. phylo_groupNgrams) (snd g')
   ) groups') targets