import Gargantext.Core.Text.Context (TermList)
import Gargantext.Core.Text.Corpus.Parsers.CSV (csv_title, csv_abstract, csv_publication_year)
import Gargantext.Core.Text.Corpus.Parsers (FileFormat(..),parseFile)
-import Gargantext.Core.Text.List.CSV (csvMapTermList)
+import Gargantext.Core.Text.List.Formats.CSV (csvMapTermList)
import Gargantext.Core.Text.Terms.WithList (Patterns, buildPatterns, extractTermsWithList)
import Gargantext.Core.Viz.AdaptativePhylo
import Gargantext.Core.Viz.Phylo.PhyloMaker (toPhylo)
let sensibility = case (phyloProximity config) of
Hamming -> undefined
- WeightedLogJaccard s -> (show s)
+ WeightedLogJaccard s -> (show s)
+
+ let sync = case (phyloSynchrony config) of
+ ByProximityThreshold t _ _ _ -> (show t)
+ ByProximityDistribution _ _ -> undefined
+
+ -- to be improved
+ -- let br_length = case (take 1 $ exportFilter config) of
+ -- ByBranchSize t -> (show t)
+
let output = (outputPath config)
<> (unpack $ phyloName config)
- <> "-scale_" <> (show (_qua_granularity $ phyloQuality config))
- <> "-level_" <> (show (phyloLevel config))
<> "-" <> clq
- <> "-sens_" <> sensibility
+ <> "-level_" <> (show (phyloLevel config))
+ <> "-sens_" <> sensibility
+ -- <> "-lenght_" <> br_length
+ <> "-scale_" <> (show (_qua_granularity $ phyloQuality config))
+ <> "-sync_" <> sync
<> ".dot"
dotToFile output dot