font: strip ascii chars from default ipa selection

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 4cc99c9deee7ca639302c82ec96ddf91dcf9c59c..b081ac2749567468c920a663f81b52ffafed1372 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -73,6 +73,9 @@ for ($query) {
                                }
                        }
                }
                                }
                        }
                }

+               when ('ipa') {
+                       @chars = grep { !m/[a-zA-Z]/ } @chars;
+               }

        }
        when (qr{[\d,;\s+-]+}) {
                push @querydesc, "character codepoints $_";
        }
        when (qr{[\d,;\s+-]+}) {
                push @querydesc, "character codepoints $_";


@@ -129,7 +132,7 @@ for my $chr (@chars) {
        my ($class, $name, $mnem, $html, $string) = @$info;
        print "<td>$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?');
        printf '<td class="%s">%s', @$_ for (
        my ($class, $name, $mnem, $html, $string) = @$info;
        print "<td>$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?');
        printf '<td class="%s">%s', @$_ for (

-               [$ascii ? 'l0' : defined $mnem ? 'l4' : 'l1', $mnem // ''],
+               [$ascii ? 'l0' : defined $mnem ? $class =~ /\bu-di\b/ ? 'l4' : 'l3' : 'l1', $mnem // ''],

                [$ascii ? 'l0' : defined $html ? 'l4' : 'l1', $html // ''],
                (map {
                        !$font{$_}->{-id} ? [l0 => '?'] :
                [$ascii ? 'l0' : defined $html ? 'l4' : 'l1', $html // ''],
                (map {
                        !$font{$_}->{-id} ? [l0 => '?'] :