X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/65ee755208200729b5754d38aa35dc168251c3e7..bba0d5b6fb0b1bbe6b5bb4a84c72de2152d8dfe3:/chars.plp diff --git a/chars.plp b/chars.plp index a637eae..96d74b4 100644 --- a/chars.plp +++ b/chars.plp @@ -115,12 +115,12 @@ for my $chr (@chars) { print "$chr\n"; my $info = $glyphs->glyph_info($codepoint); - my ($class, $name, $mnem, $html, $string) = @$info; + my ($class, $name, $mnem, $entity, $string) = @$info; print "$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?'); printf '%s', @$_ for ( [$ascii ? 'l0' : defined $mnem ? $class =~ /\bu-di\b/ ? 'l4' : 'l3' : 'l1', EscapeHTML($mnem) // ''], - [$ascii ? 'l0' : defined $html ? 'l4' : 'l1', $html // ''], + [$ascii ? 'l0' : defined $entity ? 'l4' : 'l1', $entity // ''], (map { !defined $font{$_}->{-name} ? [l0 => '?'] : $font{$_}->{$chr} ? [l4 => '✔'] : [l1 => '✘']