X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4b13af2d4d53762c4cb1aed7e4d0de3b5666c1bc..1b59bfbf3962b74b973bde67c3de5b20dd5e7b58:/font.plp
diff --git a/font.plp b/font.plp
index 79ac28d..11eba2f 100644
--- a/font.plp
+++ b/font.plp
@@ -52,10 +52,12 @@ print '
';
printf ' | %s', $_ for @fontlist;
say '';
-for my $name (sort keys %{$cover}) {
- my $row = $cover->{$name};
+for my $group (sort keys %{$cover}) {
+ say ' | ';
+for my $name (sort keys %{ $cover->{$group} }) {
+ my $row = $cover->{$group}->{$name};
print '';
- $name = qq{$name}
+ $name = sprintf '%s', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
if $row->{-count} and $row->{-count} < 1280;
print '', $name;
print ' | ', $row->{-count};
@@ -76,6 +78,8 @@ for my $name (sort keys %{$cover}) {
}
say ' |
';
}
+ say '';
+}
say "\n";