X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/02e6a32fd44d994d88f8bcb79d47e217455c580d..ca7123f5e6439a6726d2c603d5f51bc390916d8f:/font.plp diff --git a/font.plp b/font.plp index 4cc99c9..819bae7 100644 --- a/font.plp +++ b/font.plp @@ -129,7 +129,7 @@ for my $chr (@chars) { my ($class, $name, $mnem, $html, $string) = @$info; print "$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?'); printf '%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 => '?'] :