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.

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)