use warnings;
use Unicode::Normalize qw( NFKD );
use Text::Unidecode qw( unidecode );
+use Shiar_Sheet::FormatChar;
our %rows;
+
+my $uc = Shiar_Sheet::FormatChar->new;
my %g; # present group classes
{
rows => [1, 0],
} keys %rows
},
},
- key => \%rows,
+ key => {
+ map {
+ my ($glyph, $title) = $uc->glyph_html($rows{$_});
+ $_ => join "\n", $glyph, $title
+ } keys %rows
+ },
flag => {
g2 => ['accented', "decomposes to the original letter with a combining accent"],
g4 => ['similar', "transliterates (mostly) into the unmodified letter"],