aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-12-24 15:05:31 +0530
committerArun Isaac2021-12-24 15:05:31 +0530
commit336a392bd14cd72b16130a59a14fd04f90b78116 (patch)
tree6075a38b250d3c807dee774974f2e9c91701f96f
parentea43eb9bfb4acbc9aa882a3ca3b44a506e3330ed (diff)
downloadgn-transform-databases-336a392bd14cd72b16130a59a14fd04f90b78116.tar.gz
Color code dumped tables and columns.
* visualize-schema.scm (sxml->graphviz-html): Color code dumped tables and columns.
-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)))))