($table-width$)
This function is called to calculate the width of tables that should theoretically be "100%" wide. Unfortunately, in HTML, a 100% width table in a list hangs off the right side of the browser window. (Who's mistake was that!). So this function provides a way to massage the width appropriately.
This version is fairly dumb.
(define ($table-width$) ;; Calculate table width (if (has-ancestor-member? (current-node) '("LISTITEM")) "90%" "100%"))