Merge remote-tracking branch 'origin/dev-phylo' into dev

364a44c2 · Alexandre Delanoë · aeed0f7b · 95553245 · 364a44c2
Commit 364a44c2 authored Jun 28, 2023 by Alexandre Delanoë
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

PhyloExport.hs src/Gargantext/Core/Viz/Phylo/PhyloExport.hs +2 -1

No files found.
--- a/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
+++ b/src/Gargantext/Core/Viz/Phylo/PhyloExport.hs
@@ -110,7 +110,8 @@ periodToDotNode prd prd' =
 groupToDotNode :: Vector Ngrams -> PhyloGroup -> Int -> Dot DotId
 groupToDotNode fdt g bId =
    node (groupIdToDotId $ getGroupId g)
-                     ([ toAttr "nodeType" "group"
+                     ([FontName "Arial", Shape Square, penWidth 4]
+                      <> [ toAttr "nodeType" "group"
                         , toAttr "gid" (groupIdToDotId $ getGroupId g)
                         , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod))
                         , toAttr "to"   (pack $ show (snd $ g ^. phylo_groupPeriod))