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 819bae7..b081ac2 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 $_";