From 336a392bd14cd72b16130a59a14fd04f90b78116 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 24 Dec 2021 15:05:31 +0530
Subject: Color code dumped tables and columns.

* visualize-schema.scm (sxml->graphviz-html): Color code dumped tables
and columns.
---
 visualize-schema.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/visualize-schema.scm b/visualize-schema.scm
index 8fa27a6..b6e4123 100644
--- a/visualize-schema.scm
+++ b/visualize-schema.scm
@@ -67,14 +67,20 @@
   "Return HTML string label for TABLE."
   (sxml->graphviz-html
    `(table (@ (cellborder 0)
-              (bgcolor "white"))
+              (bgcolor ,(if (any column-dumped?
+                                 (table-columns table))
+                            "lightgrey"
+                            "white")))
            (tr (td (@ (border 1)
                       (bgcolor ,(human-units-color (table-size table))))
                    ,(format "~a (~a)"
                             (table-name table)
                             (human-units (table-size table)))))
            ,@(map (lambda (column)
-                    `(tr (td (@ (port ,(column-name column)))
+                    `(tr (td (@ (port ,(column-name column))
+                                ,@(if (column-dumped? column)
+                                      `((bgcolor "green"))
+                                      '()))
                              ,(column-name column))))
                   (table-columns table)))))
 
-- 
cgit v1.2.3