font: strip ascii chars from default ipa selection

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 819bae7df4f5d9a9675c66e70c7708a67a327efa..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 $_";