aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-12-14 14:06:38 +0530
committerArun Isaac2021-12-14 14:06:38 +0530
commit08021626092d81773507e5fa4738e281ec43379b (patch)
tree26f41ce904d12557b681c7daf96f6253de51271c
parent86d0968236ba3d44b327343d1597c77583a39355 (diff)
downloadgn-transform-databases-08021626092d81773507e5fa4738e281ec43379b.tar.gz
Specify appearance using HTML table.
* dump.scm (table-label): Unset border attribute of <table> tag. Set cellborder and bgcolor attributes of <table> tag. (table->graphviz-node): Unset style and fillcolor node attributes. Set shape node attribute to none.
-rwxr-xr-xdump.scm8
1 files changed, 3 insertions, 5 deletions
diff --git a/dump.scm b/dump.scm
index f0391ee..62d3a5d 100755
--- a/dump.scm
+++ b/dump.scm
@@ -623,7 +623,8 @@ metric."
(define (table-label table)
"Return HTML string label for TABLE."
(sxml->graphviz-html
- `(table (@ (border 0))
+ `(table (@ (cellborder 0)
+ (bgcolor ,(if (dumped-table? table) "lightgrey" "white")))
(tr (td (@ (border 1)
(bgcolor ,(human-units-color (table-size table))))
,(format #f "~a (~a)"
@@ -642,10 +643,7 @@ metric."
"Convert TABLE to graphviz node, and return it."
((@@ (ccwl graphviz) graph-node)
(table-name table)
- `((shape . "record")
- (style . "filled")
- (fillcolor . ,(if (dumped-table? table)
- "lightgrey" "white"))
+ `((shape . "none")
(label . ,(table-label table)))))
(define (column->foreign-table table column all-tables)