keywords => [qw(
unicode font glyph char character support overview cover coverage
script block symbol sign mark reference table
keywords => [qw(
unicode font glyph char character support overview cover coverage
script block symbol sign mark reference table
my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl";
$fontmeta or die "Unknown font $font\n";
my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl";
$fontmeta or die "Unknown font $font\n";
.glyphs tbody th[!colspan] { text-align: right }
.glyphs tbody td { font-family: "$fontmeta->{name}" }
.glyphs tbody td:nth-child(18) { border-left-width: 2px }
.glyphs tbody th[!colspan] { text-align: right }
.glyphs tbody td { font-family: "$fontmeta->{name}" }
.glyphs tbody td:nth-child(18) { border-left-width: 2px }
say sprintf '<tr><th>%X', $cp if $colpos++ % $pagecols == 0;
my $info = $glyphs->glyph_info($cp);
say sprintf '<tr><th>%X', $cp if $colpos++ % $pagecols == 0;
my $info = $glyphs->glyph_info($cp);
- my ($class, $name, $mnem, $html, $string) = @{$info};
+ my ($class, $name, $mnem, $entity, $string) = @{$info};
my $np = $class =~ /\bC\S\b/; # noprint if control or invalid
# display literal character, with placeholder circle if non-spacing/enclosing
my $html = ($class =~ /\bM[ne]\b/ && chr 9676) . EscapeHTML(chr $cp);
my $np = $class =~ /\bC\S\b/; # noprint if control or invalid
# display literal character, with placeholder circle if non-spacing/enclosing
my $html = ($class =~ /\bM[ne]\b/ && chr 9676) . EscapeHTML(chr $cp);