X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/02e6a32fd44d994d88f8bcb79d47e217455c580d..57f9cfa126a76ddeaac15fd55e05277afdcba98f:/font.plp

diff --git a/font.plp b/font.plp
index 4cc99c9..b081ac2 100644
--- 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 $_";
@@ -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 (
-		[$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 => '?'] :