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

bin/Builder-viz: Added override_css params to viz's + used them to define a common theme

Browse source
This commit is contained in:
rand00 2022-01-26 18:04:26 +01:00 committed by Reynir Björnsson
parent 86b5bf870d
commit 302d53835a
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
bin/visualizations/builder_viz.ml
View file

@ -55,9 +55,21 @@ let print_treemap_html elf_path elf_size =
"Smaller excluded entries", excluded_minors_size "Smaller excluded entries", excluded_minors_size
] ]
in in
let override_css = {|
.module {
fill: rgb(60, 60, 87);
}
.functor > text, .module > text {
fill: bisque;
}
|}
in
info info
|> Treemap.of_tree |> Treemap.of_tree
|> Treemap.to_html_with_scale ~binary_size:elf_size ~scale_chunks |> Treemap.to_html_with_scale
~binary_size:elf_size
~scale_chunks
~override_css
|> Tyxml.Html.pp () Format.std_formatter |> Tyxml.Html.pp () Format.std_formatter
(* |> Treemap.svg (* |> Treemap.svg
* |> Fmt.to_to_string (Tyxml.Svg.pp ()) *) * |> Fmt.to_to_string (Tyxml.Svg.pp ()) *)
@ -68,7 +80,13 @@ let print_dependencies_html file =
let data = OpamFile.SwitchExport.read_from_string switch in let data = OpamFile.SwitchExport.read_from_string switch in
let transitive = false in let transitive = false in
let graph = Ui.dependencies ~transitive data in let graph = Ui.dependencies ~transitive data in
let html = Render.Html.of_assoc graph in let override_css = {|
svg {
background: rgb(60, 60, 87);
}
|}
in
let html = Render.Html.of_assoc ~override_css graph in
Format.printf "%a" Render.Html.pp html Format.printf "%a" Render.Html.pp html
module Cmd = struct module Cmd = struct