Merge pull request 'Updates related to new opam-graph nodes-sharing-color' (#100) from 20220317_opam-graph_updates into main

Reviewed-on: #100

bin/visualizations/builder_viz.ml

@@ -72,19 +72,22 @@ let print_treemap_html elf_path elf_size =
  * |> Fmt.to_to_string (Tyxml.Svg.pp ()) *)
 
 let print_dependencies_html file =
-  let open Opam_graph in
+  let module G = Opam_graph in
   let switch = read_file file in
   let data = OpamFile.SwitchExport.read_from_string switch in
-  let transitive = false in
-  let graph = Ui.dependencies ~transitive data in
+  let graph = G.Ui.dependencies ~transitive:false data in
+  let sharing_stats =
+    data
+    |> G.dependencies ~transitive:false
+    |> G.calc_sharing_stats in
   let override_css = {|
     .deps-svg-wrap {
       background: rgb(60, 60, 87);
     }
   |}
   in
-  let html = Render.Html.of_assoc ~override_css graph in
-  Format.printf "%a" Render.Html.pp html
+  let html = G.Render.Html.of_assoc ~override_css ~sharing_stats graph in
+  Format.printf "%a" G.Render.Html.pp html
 
 module Cmd_aux = struct
 

lib/views.ml

@@ -618,6 +618,7 @@ module Job_build = struct
       ~next
 
   let viz_style_deps = "
+      border: 0;
       width: 45em;
       height: 45.4em;
       max-width: 100%;
@@ -627,8 +628,9 @@ module Job_build = struct
     "
 
   let viz_style_treemap = "
+      border: 0;
       width: 46em;
-      height: 48.4em;
+      height: 49.4em;
       max-width: 100%;
       max-height: 52vw;
       min-width: 38em;