'],
stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
+ raw => <<'EOT',
+<style>
+ tbody tr:hover th {
+ font-size: 300%;
+ min-width: 1.2em;
+ border-width: 1px;
+ }
+</style>
+EOT
});
-use 5.010;
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
my ($title, $parent) = ('Character overview');
my $query = eval {
- for ($ENV{PATH_INFO} || ()) {
- s{^/}{};
+ for ($Request || ()) {
return $_ if m{^[0-9 +-]+$};
my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";
say "<h1>$title</h1>";
if (!$query) {
- say "<p>Unicode group not specified: $@</p>";
+ Alert('Unicode group not specified', $@);
exit;
};
# output character list
say '<div>';
-print '<table class=mapped>';
+print '<table class="mapped cover">';
print '<col>' x 3;
print "<colgroup span=$_>"
for 2, map { scalar @{ $groupinfo->{os}->{$_} } } @ossel;
my $codepoint = ord $chr;
my $ascii = $codepoint <= 127;
- print "<tr><th>$chr\n";
+ say '<tr><th>', $chr;
my $info = $glyphs->glyph_info($codepoint);
- my ($class, $name, $mnem, $html, $string) = @$info;
+ my ($class, $name, $mnem, $entity, $string) = @$info;
print "<td>$_" for sprintf('%X', $codepoint), EscapeHTML($name || '?');
printf '<td class="%s">%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 => '✘']