From 302d53835a86eb5093ec0a180c32ef0f9cd8b052 Mon Sep 17 00:00:00 2001
From: rand00 <oth.rand@gmail.com>
Date: Wed, 26 Jan 2022 18:04:26 +0100
Subject: [PATCH] bin/Builder-viz: Added override_css params to viz's + used
 them to define a common theme

---
 bin/visualizations/builder_viz.ml | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/bin/visualizations/builder_viz.ml b/bin/visualizations/builder_viz.ml
index 0cdfe24..39f2154 100644
--- a/bin/visualizations/builder_viz.ml
+++ b/bin/visualizations/builder_viz.ml
@@ -55,9 +55,21 @@ let print_treemap_html elf_path elf_size =
       "Smaller excluded entries", excluded_minors_size
     ]
   in
+  let override_css = {|
+    .module {
+      fill: rgb(60, 60, 87);
+    }
+    .functor > text, .module > text {
+      fill: bisque;
+    }
+  |}
+  in
   info
   |> 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
 (* |> Treemap.svg
  * |> 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 transitive = false 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
 
 module Cmd = struct