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

Views: Switch viz order + fixed iframe size

Browse source
This commit is contained in:
rand00 2022-01-26 21:11:57 +01:00 committed by Reynir Björnsson
parent 302d53835a
commit 6f95f7e965
1 changed files with 24 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lib/views.ml
View file

@ -441,7 +441,16 @@ module Job = struct
("Earlier build with different output ", previous) ]) ("Earlier build with different output ", previous) ])
] ]
let viz_style = " let viz_style_deps = "
width: 46em;
height: 45.4em;
max-width: 100%;
max-height: 47vw;
min-width: 38em;
min-height: 39em;
"
let viz_style_treemap = "
width: 46em; width: 46em;
height: 48.4em; height: 48.4em;
max-width: 100%; max-width: 100%;
@ -453,15 +462,23 @@ module Job = struct
let make_viz_section ~name ~artifacts ~uuid = let make_viz_section ~name ~artifacts ~uuid =
[ [
(* [ h3 [txt "Analysis"] ]; *) (* [ h3 [txt "Analysis"] ]; *)
[ p [
let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid in
iframe ~a:[
a_src src;
a_title "Opam dependencies";
a_style viz_style_deps
] []
]];
if not @@ contains_debug_bin artifacts then [] else [ if not @@ contains_debug_bin artifacts then [] else [
p [ p [
let src = Fmt.str "/job/%s/build/%a/viztreemap" name Uuidm.pp uuid in let src = Fmt.str "/job/%s/build/%a/viztreemap" name Uuidm.pp uuid in
iframe ~a:[ a_src src; a_title "Binary dissection"; a_style viz_style ] [] iframe ~a:[
] a_src src;
]; a_title "Binary dissection";
[ p [ a_style viz_style_treemap
let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid in ] []
iframe ~a:[ a_src src; a_title "Opam dependencies"; a_style viz_style ] [] ]]; ]];
] |> List.flatten ] |> List.flatten
let make let make