aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--visualize-schema.scm10
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)))))