Browse Source

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

Reviewed-on: https://git.robur.io/robur/builder-web/pulls/100
pull/104/head
rand 5 months ago
parent
commit
7b08045114
  1. 13
      bin/visualizations/builder_viz.ml
  2. 4
      lib/views.ml

13
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

4
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;

Loading…
Cancel
Save