font: coverage groups
[sheet.git] / font.plp
index 79ac28d..50d8dcb 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -52,8 +52,10 @@ print '<th colspan=2>';
 printf '<td>%s', $_ for @fontlist;
 say '</thead>';
 
-for my $name (sort keys %{$cover}) {
-       my $row = $cover->{$name};
+for my $group (sort keys %{$cover}) {
+       say '<tbody>';
+for my $name (sort keys %{ $cover->{$group} }) {
+       my $row = $cover->{$group}->{$name};
        print '<tr>';
        $name = qq{<a href="/chars/$name">$name</a>}
                if $row->{-count} and $row->{-count} < 1280;
@@ -76,6 +78,8 @@ for my $name (sort keys %{$cover}) {
        }
        say '</tr>';
 }
+       say '</tbody>';
+}
 
 say "</table>\n";