Commit 4d8d11c2 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

dotted PBM links

parent 1f0d6851
......@@ -138,6 +138,7 @@ module G_edge = struct
match List_.sort_assoc_opt "1" fs with
| Some (String "unscoped") | Some (String "wider") | Some (String "equal") | Some (String "dual") ->
["color=\"red\""; "fontcolor=\"red\""]
| Some (String "in") -> ["style=\"dotted\""] (* PMB link from Box-nodes to Sem-nodes *)
| _ -> [] in
let multi_line_label = Str.global_replace (Str.regexp_string ",") "\n" (fs_to_string ~config fs) in
let label = match deco with
......
Supports Markdown
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