font: include version in font name hover

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 98fff40ade1bc140b524e0758380cd64f4d58d0d..1d6ee4f104dbab6c28eb133e1f0f37d166adf35a 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -50,7 +50,9 @@ my @rows = (
        'table/punctuation',
        'block/Dingbats',
        'table/symbols',
+       'category/Sc', # currency
        'table/math',
+       'category/Sm', # mathematical
        'table/arrows/single',
        'table/lines/single',
        'table/block',
@@ -58,7 +60,7 @@ my @rows = (
        'table/html',
 );
 
-for my $group ($ENV{PATH_INFO} || ()) {
+if (my $group = $ENV{PATH_INFO}) {
        $group =~ s{^/}{};
        my $grouprows = $cover->{$group}
                or die "Unknown character category $_\n";
@@ -79,8 +81,10 @@ printf '<td colspan=%d>%s fonts', scalar @{ $cover->{os}->{$_} }, $_
 
 print '<tr>';
 print '<th colspan=2>';
-printf '<td title="%s">%s', $_->{name}, $_->{abbr}
-       for @{ $cover->{fonts} }[@fontlist];
+printf('<td title="%s">%s', map { EscapeHTML($_) }
+       join("\n", $_->{name}, $_->{description}),
+       $_->{abbr},
+) for @{ $cover->{fonts} }[@fontlist];
 say '</thead>';
 
 for (@rows) {