Html({
title => 'character support sheet',
- version => 'v1.1',
+ version => 'v1.2',
keywords => [qw(
unicode font glyph char character support overview cover coverage
script block symbol sign mark reference table
say "<h1>Font coverage</h1>";
say "<h2>$_</h2>" for EscapeHTML($fontmeta->{name});
- printf("<p>Version <strong%s>%s</strong> released %s contains %d glyphs.</p>\n",
+ printf("<p>Version <strong%s>%s</strong> released %s contains %d glyphs.",
!!$_->[2] && qq( title="revision $_->[2]"),
$_->[1], $_->[0],
scalar @cover,
EscapeHTML($fontmeta->{version}),
$fontmeta->{revision},
];
- printf "<p>%s</p>\n", join('<br>', map { $_ ? EscapeHTML($_) : () }
- $fontmeta->{copyright}, $fontmeta->{license},
- );
+ for ($fontmeta->{os}) {
+ say '<br>';
+ print ucfirst join(' ',
+ "distributed",
+ (map { "by $_" } $fontmeta->{oscorp} || "various sources"),
+ (map { "with <em>$_</em>" } $_ || ()),
+ ('and published as freeware "Core Web font"') x ($_ eq 'Windows 2000'),
+ (map { "under a $_ license" }
+ map { $fontmeta->{license} ? qq(<a href="$fontmeta->{license}">$_</a>) : $_ }
+ $_ && $_ ne 'Android' ? 'proprietary' : 'free',
+ ),
+ );
+ print '.';
+ }
+ say '</p>';
+ say "<p>$_</p>" for EscapeHTML($fontmeta->{copyright}) || ();
require Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
.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);
+ }
</style>
EOT
say '<table class="glyphs big">';
print '<thead><tr>';
print '<th colspan=2>';
-printf '<td colspan=%d>%s fonts', scalar @{ $cover->{os}->{$_} }, $_
- for @ossel;
+for my $os (@ossel) {
+ my $osfonts = $cover->{os}->{$os};
+ my $osfont = $cover->{fonts}->[ $osfonts->[0] ]; # first font
+ printf '<td colspan=%d>%s', scalar @{$osfonts}, $osfont->{os} || ''
+}
print '<tr>';
print '<th colspan=2>';