X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4b13af2d4d53762c4cb1aed7e4d0de3b5666c1bc..2fb0fb7012a25b6847ca8187e215da735eb186bf:/font.plp

diff --git a/font.plp b/font.plp
index 79ac28d..5e81234 100644
--- a/font.plp
+++ b/font.plp
@@ -26,52 +26,90 @@ use 5.010;
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
-my %oslist = (
-	win95   => [qw( arial ariuni verdana times courier )],  # microsoft
-	mac10   => [qw( )],  # apple
-	android => [qw( droidsans )],  # google
-	oss     => [qw( dvsans c2k unifont )],
+my $cover = do 'unicode-cover.inc.pl' or die $@ || $!;
+
+my @ossel = @{ $cover->{osdefault} };
+my @fontlist = map { @{ $cover->{os}->{$_} } } @ossel;
+
+my @rows = (
+	'block/Latin-1 Supplement',
+	'block/Latin Extended-A',
+	'block/Latin Extended Additional',
+	'block/Latin Extended-B',
+	'script/Latin',
+	'script/Greek',
+	'script/Cyrillic',
+	'script/Arabic',
+	'script/Hebrew',
+	'script/Devanagari',
+	'script/Thai',
+	'script/Hangul',
+	'table/japanese',
+	'script/Han',
+	'table/ipa',
+	'table/punctuation',
+	'block/Dingbats',
+	'table/symbols',
+	'category/Sc', # currency
+	'table/math',
+	'category/Sm', # mathematical
+	'table/arrows/single',
+	'table/lines/single',
+	'table/block',
+	'table/lines',
+	'table/html',
 );
-my @ossel = qw( win95 oss android );
-my @fontlist = map { @{ $oslist{$_} } } @ossel;
 
-my $cover = do 'unicode-cover.inc.pl' or die $@ || $!;
+if (my $group = $ENV{PATH_INFO}) {
+	$group =~ s{^/}{};
+	my $grouprows = $cover->{$group}
+		or die "Unknown character category $_\n";
+	@rows = map { "$group/$_" } sort keys %{$grouprows};
+}
 
 # output character list
 
 print '<table class=mapped>';
 print '<col><col>';
-print "<colgroup span=$_>" for map { scalar @{$oslist{$_}} } @ossel;
+print "<colgroup span=$_>"
+	for map { scalar @{ $cover->{os}->{$_} } } @ossel;
 
 print '<thead><tr>';
 print '<th colspan=2>';
-printf '<th colspan=%d>%s fonts', scalar @{ $oslist{$_} }, $_ for @ossel;
+printf '<td colspan=%d>%s fonts', scalar @{ $cover->{os}->{$_} }, $_
+	for @ossel;
 
 print '<tr>';
 print '<th colspan=2>';
-printf '<td>%s', $_ for @fontlist;
+printf '<td title="%s">%s', $_->{name}, $_->{abbr}
+	for @{ $cover->{fonts} }[@fontlist];
 say '</thead>';
 
-for my $name (sort keys %{$cover}) {
-	my $row = $cover->{$name};
+for (@rows) {
+	my ($group, $name) = split m{/}, $_, 2;
+	my $row = $cover->{$group}->{$name};
+
 	print '<tr>';
-	$name = qq{<a href="/chars/$name">$name</a>}
-		if $row->{-count} and $row->{-count} < 1280;
+	$name = sprintf '<a href="%s">%s</a>', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
+		if $row->{count} and $row->{count} < 1280;
 	print '<th>', $name;
-	print '<td class=right>', $row->{-count};
-	for (@fontlist) {
-		my $count = $row->{$_};
+	print '<td class=right>', $row->{count};
+	for my $count (@{ $row->{support} }[@fontlist]) {
 		if (not defined $count) {
 			print '<td class="l0">?';
 			next;
 		}
 		if (not $count) {
-			print '<td class="l1">0';
+			print '<td class="l1">✘';
+			next;
+		}
+		if ($count == $row->{count}) {
+			print '<td class="l5">✔';
 			next;
 		}
 
-		my $rel = $count / $row->{-count};
-		my $class = $rel < .5 ? 2 : $rel < .75 ? 3 : $rel < 1 ? 4 : 5;
+		my $rel = $count / $row->{count};
+		my $class = $rel < .5 ? 2 : $rel < .9 ? 3 : 4;
 		printf '<td class="%s">%d%%', "l$class", $rel*100;
 	}
 	say '</tr>';