font: show currency and mathematical unicode categories

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 98fff40ade1bc140b524e0758380cd64f4d58d0d..5e81234ecd4f750c578161b6edbbb9e51822ae00 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";