use XLabel for Ortho edges (#96) (#103)

BurntSushi · Jan 18, 2024 · d3c8406 · d3c8406
1 parent 90ca649
commit d3c8406
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/app/Main.hs b/app/Main.hs
@@ -68,7 +68,12 @@ dotER conf er = graph' $ do
       relToEdge n r = edge (entity1 r) (entity2 r) (label:eAttr n)
         where
           optss = roptions r
-          label = A.Label $ A.HtmlLabel $ H.Text $ withLabelFmt " %s " optss []
+          labelOrXLabel =
+            case fromConfigOrDefault edgeType of
+              A.Ortho -> A.XLabel -- Graphivz recommends xlabels for ortho edges
+              _ -> A.Label
+          label =
+            labelOrXLabel . A.HtmlLabel . H.Text $ withLabelFmt " %s " optss []
           (c1,c2) = (card1 r, card2 r)
           eAttr UML = [A.TailLabel $ card2label c1
                       ,A.HeadLabel $ card2label c2