diff options
-rw-r--r-- | visualize-schema.scm | 10 |
1 files 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))))) |