Skip to content

haskell-gargantext
haskell-gargantext
Commit 4db2157c authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Export Phylo Ratio

parent adee098c
Pipeline #2499 passed with stage
    in 53 minutes and 49 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
    View file @ 4db2157c
    ...@@ -208,7 +208,8 @@ exportToDot phylo export = ...@@ -208,7 +208,8 @@ exportToDot phylo export =
    {- 1) init the dot graph -} {- 1) init the dot graph -}
    graphAttrs ( [ Label (toDotLabel $ (phyloName $ getConfig phylo))] graphAttrs ( [ Label (toDotLabel $ (phyloName $ getConfig phylo))]
    <> [ FontSize 30, LabelLoc VTop, NodeSep 1, RankSep [1], Rank SameRank, Splines SplineEdges, Overlap ScaleOverlaps <> [ FontSize 30, LabelLoc VTop, NodeSep 1, RankSep [1], Rank SameRank, Splines SplineEdges, Overlap ScaleOverlaps
    , Ratio FillRatio -- , Ratio FillRatio
    , Ratio AutoRatio
    , Style [SItem Filled []],Color [toWColor White]] , Style [SItem Filled []],Color [toWColor White]]
    {-- home made attributes -} {-- home made attributes -}
    <> [(toAttr (fromStrict "phyloFoundations") $ pack $ show (length $ Vector.toList $ getRoots phylo)) <> [(toAttr (fromStrict "phyloFoundations") $ pack $ show (length $ Vector.toList $ getRoots phylo))
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment