font: strip ascii chars from default ipa selection
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 4 Apr 2012 21:46:22 +0000 (23:46 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000 (03:03 +0200)
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 $_";