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

Main: Made 'html' render option output the same as we use at Robur

Browse source
This commit is contained in:
rand00 2022-04-07 13:39:37 +02:00
parent 2fd3da6ceb
commit 8c9e3748f5
1 changed files with 26 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
app/main.ml
View file

@ -12,24 +12,39 @@ let read_file file =
with _ -> invalid_arg ("Error opening file " ^ file) with _ -> invalid_arg ("Error opening file " ^ file)
let jump () transitive file output_format = let jump () transitive file output_format =
let module G = Opam_graph in
let switch = read_file file in let switch = read_file file in
let data = OpamFile.SwitchExport.read_from_string switch in let data = OpamFile.SwitchExport.read_from_string switch in
match output_format with match output_format with
| `Text -> | `Text ->
let graph = Opam_graph.dependencies ~transitive data in let graph = G.dependencies ~transitive data in
Format.printf "%a" Opam_graph.pp_graph graph Format.printf "%a" G.pp_graph graph
| `Dot -> | `Dot ->
let graph = Opam_graph.dependencies ~transitive data in let graph = G.dependencies ~transitive data in
let dot = Opam_graph.Render.Dot.of_graph graph in let dot = G.Render.Dot.of_graph graph in
Format.printf "%a" Opam_graph.Render.Dot.pp dot Format.printf "%a" G.Render.Dot.pp dot
| `Dot_ui -> | `Dot_ui ->
let graph = Opam_graph.Ui.dependencies ~transitive data in let graph = G.Ui.dependencies ~transitive data in
let dot = Opam_graph.Render.Dot.of_assoc graph in let dot = G.Render.Dot.of_assoc graph in
Format.printf "%a" Opam_graph.Render.Dot.pp dot Format.printf "%a" G.Render.Dot.pp dot
| `Html -> | `Html ->
let graph = Opam_graph.Ui.dependencies ~transitive data in let graph = G.Ui.dependencies ~transitive data in
let html = Opam_graph.Render.Html.of_assoc graph in let sharing_stats =
Format.printf "%a" Opam_graph.Render.Html.pp html data
|> G.dependencies ~transitive:false
|> G.calc_sharing_stats in
let override_css = "\
.deps-svg-wrap {\
background: rgb(60, 60, 87); \
}\
"
in
let html =
G.Render.Html.of_assoc
~override_css
~sharing_stats graph
in
Format.printf "%a" G.Render.Html.pp html
let setup_log style_renderer level = let setup_log style_renderer level =
Fmt_tty.setup_std_outputs ?style_renderer (); Fmt_tty.setup_std_outputs ?style_renderer ();