robur/opam-graph
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

M-x whitespace-cleanup

Browse source
This commit is contained in:
Hannes Mehnert 2022-12-27 18:22:58 +01:00
parent 252dbd1bd0
commit a54994a7a2
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/opam_graph.ml
View file

@ -1,10 +1,10 @@
let visualization_version = 1 let visualization_version = 1
(** Remember to increment this when anything changes that can affect the (** Remember to increment this when anything changes that can affect the
visualization, e.g.: visualization, e.g.:
* algorithm change * algorithm change
* UI change * UI change
* certain library-dependency changes * certain library-dependency changes
*) *)
let sprintf = Printf.sprintf let sprintf = Printf.sprintf
@ -153,7 +153,7 @@ module Ui = struct
|> Name_map.find root |> Name_map.find root
in in
let all_transitive_deps = let all_transitive_deps =
if transitive = false then all_direct_deps else if transitive = false then all_direct_deps else
dependencies ~transitive data dependencies ~transitive data
in in
let direct_deps_w_transitive_deps = let direct_deps_w_transitive_deps =
@ -451,7 +451,7 @@ svg {
let make_direct_dep_edge_css dep = let make_direct_dep_edge_css dep =
let dep = scoped_class dep in let dep = scoped_class dep in
sprintf {| sprintf {|
.deps-direct_dep.deps-edge.%s:hover ~ .deps-direct_dep.deps-edge.%s:hover ~
.deps-direct_dep.deps-node.%s { .deps-direct_dep.deps-node.%s {
transform: scale(2); transform: scale(2);
} }
@ -697,7 +697,7 @@ svg {
let make_shared_deps_css_aux ~dep ~shared_deps = let make_shared_deps_css_aux ~dep ~shared_deps =
shared_deps |> Seq.map (fun shared_dep -> shared_deps |> Seq.map (fun shared_dep ->
sprintf {| sprintf {|
.deps-direct_dep.%s:hover ~ .deps-direct_dep.%s:hover ~
.deps-node.deps-layer2_dep.%s { .deps-node.deps-layer2_dep.%s {
fill: #5454ff; fill: #5454ff;
filter: brightness(1.0) !important; filter: brightness(1.0) !important;
@ -799,7 +799,7 @@ svg {
css :: acc css :: acc
) sharing_stats [] ) sharing_stats []
|> merge_css |> merge_css
let of_assoc ~(sharing_stats:assoc_stats) (graph:assoc_graph) : _ output = let of_assoc ~(sharing_stats:assoc_stats) (graph:assoc_graph) : _ output =
match graph with match graph with
| [] -> { svg_content = []; svg_attr = []; css = "" } | [] -> { svg_content = []; svg_attr = []; css = "" }