-sub table {
- my ($width, $digraphs, $rowheads, $colheads) = @_;
-
- my @cells;
- push @cells, sprintf '<td title="%s"%s>%s%s',
- $di{ord $_} && $diinfo->{$di{ord $_}}->[1],
- $_ eq '-' ? ' class="empty"' : $_ eq '=' ? ' class="reserved"' : '',
- $_ eq '-' || $_ eq '=' ? ' ' : quote($_),
- $di{ord $_} && sprintf(' <small>%s</small>', $di{ord $_})
- for @$digraphs;
-
- if ($rowheads) {
- splice @cells, $_ * $width, 0, '<th>'.($rowheads->[$_] || ' ')
- for reverse 0 .. $#cells / $width;
- $width++;
- }
-
- my @rows;
- push @rows, sprintf '<tr>%s', join '', splice @cells, 0, $width, ()
- while @cells;
-
- if ($colheads) {
- unshift @rows, sprintf '<thead><tr><td>%s<tbody>', join '',
- map { sprintf '<th title="%2$s">%s', split(/:/, $colheads->[$_], 2) }
- 0 .. $width-2;
- }
-
- return sprintf "<table>%s</table>\n", join '', @rows;
+if (exists $get{di}) {
+ $glyphs->{anno} = [ (!defined $get{di} || $get{di}) && 'di', 'hex' ];
+}
+if (exists $get{q}) {
+ $glyphs->{anno} = [];
+}
+if (exists $get{html}) {
+ $glyphs->{anno} = ['html', 'xml'];
+ $glyphs->{style} = 'html';