diff options
| author | Arun Isaac | 2021-12-24 15:05:31 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-12-24 15:05:31 +0530 |
| commit | 336a392bd14cd72b16130a59a14fd04f90b78116 (patch) | |
| tree | 6075a38b250d3c807dee774974f2e9c91701f96f | |
| parent | ea43eb9bfb4acbc9aa882a3ca3b44a506e3330ed (diff) | |
| download | gn-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.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))))) |