X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/5e2f32d08b77d469b7f190f40dde1e4ca9cd1af3..504c0879e49d9ffb9575ad6549c21d3990dc27d0:/font.plp?ds=sidebyside diff --git a/font.plp b/font.plp index 75f0198..d7f3b2e 100644 --- a/font.plp +++ b/font.plp @@ -1,9 +1,11 @@ <(common.inc.plp)><: use 5.014; +my $font = $ENV{PATH_INFO} =~ s{^/}{}r; + Html({ - title => 'character support sheet', - version => 'v1.1', + title => 'font coverage '.($font ? "for $font" : 'sheet'), + version => '1.2', keywords => [qw( unicode font glyph char character support overview cover coverage script block symbol sign mark reference table @@ -12,7 +14,7 @@ Html({ data => [qw( unicode-cover.inc.pl )], }); -if (my $font = $ENV{PATH_INFO} =~ s{^/}{}r) { +if ($font) { my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl"; $fontmeta or die "Unknown font $font\n"; @@ -31,7 +33,7 @@ if (my $font = $ENV{PATH_INFO} =~ s{^/}{}r) { say "
Version %s released %s contains %d glyphs.
\n", + printf("Version %s released %s contains %d glyphs.", !!$_->[2] && qq( title="revision $_->[2]"), $_->[1], $_->[0], scalar @cover, @@ -41,9 +43,22 @@ if (my $font = $ENV{PATH_INFO} =~ s{^/}{}r) { EscapeHTML($fontmeta->{version}), $fontmeta->{revision}, ]; - printf "
%s
\n", join('$_
" for EscapeHTML($fontmeta->{copyright}) || (); require Shiar_Sheet::FormatChar; my $glyphs = Shiar_Sheet::FormatChar->new; @@ -56,6 +71,10 @@ if (my $font = $ENV{PATH_INFO} =~ s{^/}{}r) { .glyphs tbody th[!colspan] { text-align: right } .glyphs tbody td { font-family: "$fontmeta->{name}" } .glyphs tbody td:nth-child(18) { border-left-width: 2px } + \@font-face { + font-family: "$fontmeta->{name}"; + src: url(/data/font/$font.ttf); + } EOT say '%s', !$class ? ('l0', $cp, '', '') : $cover{$cp} ? $np ? 'l2' : 'l5' : $np ? 'Xi' : 'l1', $cp, !!$name && ": $name", - ($cover{$cp} || !$np) && EscapeHTML(chr $cp); + ($cover{$cp} || !$np) && $html; } say ' |