From 08021626092d81773507e5fa4738e281ec43379b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 14 Dec 2021 14:06:38 +0530
Subject: 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.
---
 dump.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'dump.scm')

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)
-- 
cgit v1.2.3