git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard: widen terse keys to fill screen space
[sheet.git]
/
font.plp
diff --git
a/font.plp
b/font.plp
index 07df3bdb436dae43bffb2f3b2e059d9ffa05fd34..a460144ca6046d5e9dc301fdf831900361a78ac4 100644
(file)
--- a/
font.plp
+++ b/
font.plp
@@
-4,7
+4,7
@@
my $font = $Request;
Html({
title => 'font coverage '.($font ? "for $font" : 'sheet'),
Html({
title => 'font coverage '.($font ? "for $font" : 'sheet'),
- version => '1.
2
',
+ version => '1.
4
',
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
@@
-14,13
+14,13
@@
Html({
});
if ($font) {
});
if ($font) {
- my
($fontmeta, @cover) = do "data/font/$font.inc.pl";
-
$fontmeta or Abort("Unknown font $font", '404 font not found'
);
+ my
$fontmeta = eval { Data("data/font/$font") }
+
or Abort("Unknown font $font", '404 font not found', ref $@ && $@->[1]
);
my $map = eval {
$get{map} or return;
my $map = eval {
$get{map} or return;
- my $groupinfo =
do 'data/unicode-cover.inc.pl' or die $@ || $!
;
+ my $groupinfo =
Data('data/unicode-cover')
;
my ($cat, $name) = split m{/}, $get{map}, 2 or die "invalid map\n";
if (!$name) {
my ($cat, $name) = split m{/}, $get{map}, 2 or die "invalid map\n";
if (!$name) {
@@
-59,7
+59,7
@@
if ($font) {
printf("<p>Version <strong%s>%s</strong> released %s contains %d glyphs.",
!!$_->[2] && qq( title="revision $_->[2]"),
$_->[1], $_->[0],
printf("<p>Version <strong%s>%s</strong> released %s contains %d glyphs.",
!!$_->[2] && qq( title="revision $_->[2]"),
$_->[1], $_->[0],
- scalar @
cover
,
+ scalar @
{ $fontmeta->{cover} }
,
) for [
grep { $_ }
($fontmeta->{date} || '?') =~ s/T.*//r,
) for [
grep { $_ }
($fontmeta->{date} || '?') =~ s/T.*//r,
@@
-86,7
+86,7
@@
if ($font) {
require Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
require Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
- my %cover = map { ($_ => 1) } @
cover
; # lookup map
+ my %cover = map { ($_ => 1) } @
{ $fontmeta->{cover} }
; # lookup map
say <<"EOT";
say <<"EOT";
@@
-181,7
+181,7
@@
Character support of Unicode
<:
<:
-my $cover =
do 'data/unicode-cover.inc.pl' or die $@ || $!
;
+my $cover =
Data('data/unicode-cover')
;
my @ossel = @{ $cover->{osdefault} };
my @fontlist = map { @{ $cover->{os}->{$_} } } @ossel;
my @ossel = @{ $cover->{osdefault} };
my @fontlist = map { @{ $cover->{os}->{$_} } } @ossel;