Skip to content

haskell-gargantext
haskell-gargantext
Commit 077bf19a authored by qlobbe's avatar qlobbe
Browse files
Options

last commit before bruno's workshop

parent 59c75314
Pipeline #591 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 3 deletions
    src/Gargantext/Viz/AdaptativePhylo.hs
    View file @ 077bf19a
    ...@@ -125,7 +125,7 @@ defaultConfig = ...@@ -125,7 +125,7 @@ defaultConfig =
    , phyloLevel = 2 , phyloLevel = 2
    , phyloProximity = WeightedLogJaccard 10 0 0.1 , phyloProximity = WeightedLogJaccard 10 0 0.1
    , phyloSynchrony = ByProximityDistribution 0 , phyloSynchrony = ByProximityDistribution 0
    , phyloQuality = Quality 0.5 3 , phyloQuality = Quality 0.1 1
    , timeUnit = Year 3 1 5 , timeUnit = Year 3 1 5
    , contextualUnit = Fis 1 5 , contextualUnit = Fis 1 5
    , exportLabel = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2] , exportLabel = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]
    ......
    src/Gargantext/Viz/Phylo/PhyloExport.hs
    View file @ 077bf19a
    ...@@ -114,7 +114,7 @@ branchToDotNode b = ...@@ -114,7 +114,7 @@ branchToDotNode b =
    ([FillColor [toWColor CornSilk], FontName "Arial", FontSize 40, Shape Egg, Style [SItem Bold []], Label (toDotLabel $ b ^. branch_label)] ([FillColor [toWColor CornSilk], FontName "Arial", FontSize 40, Shape Egg, Style [SItem Bold []], Label (toDotLabel $ b ^. branch_label)]
    <> (metaToAttr $ b ^. branch_meta) <> (metaToAttr $ b ^. branch_meta)
    <> [ toAttr "nodeType" "branch" <> [ toAttr "nodeType" "branch"
    , toAttr "branchId" (pack $ unwords (init $ map show $ snd $ b ^. branch_id)) ]) , toAttr "branchId" (pack $ unwords (map show $ snd $ b ^. branch_id)) ])
    periodToDotNode :: (Date,Date) -> Dot DotId periodToDotNode :: (Date,Date) -> Dot DotId
    periodToDotNode prd = periodToDotNode prd =
    ...@@ -132,7 +132,8 @@ groupToDotNode fdt g = ...@@ -132,7 +132,8 @@ groupToDotNode fdt g =
    <> [ toAttr "nodeType" "group" <> [ toAttr "nodeType" "group"
    , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod)) , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod))
    , toAttr "to" (pack $ show (snd $ g ^. phylo_groupPeriod)) , toAttr "to" (pack $ show (snd $ g ^. phylo_groupPeriod))
    , toAttr "branchId" (pack $ unwords (init $ map show $ snd $ g ^. phylo_groupBranchId))]) , toAttr "branchId" (pack $ unwords (init $ map show $ snd $ g ^. phylo_groupBranchId))
    , toAttr "support" (pack $ show (g ^. phylo_groupSupport))])
    toDotEdge :: DotId -> DotId -> Text.Text -> EdgeType -> Dot DotId toDotEdge :: DotId -> DotId -> Text.Text -> EdgeType -> Dot DotId
    ......
    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