From 4b13af2d4d53762c4cb1aed7e4d0de3b5666c1bc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 9 Apr 2012 23:17:43 +0200
Subject: [PATCH] font: coverage overview page

Replacing earlier font page (now chars) with less specific totals.
---
 font.plp | 83 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100644 font.plp

diff --git a/font.plp b/font.plp
new file mode 100644
index 0000000..79ac28d
--- /dev/null
+++ b/font.plp
@@ -0,0 +1,83 @@
+<(common.inc.plp)><:
+
+Html({
+	title => 'character support sheet',
+	version => 'v1.1',
+	keywords => [qw(
+		unicode font glyph char character support overview cover coverage
+		script block symbol sign mark reference table
+	)],
+	stylesheet => [qw( light dark mono circus red )],
+	data => [qw( unicode-cover.inc.pl )],
+});
+
+:>
+<h1>Font coverage</h1>
+
+<p>
+Character support of Unicode
+<a href="/charset">blocks</a> and <a href="/unicode">presets</a>.
+</p>
+
+<div>
+
+<:
+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 @ossel = qw( win95 oss android );
+my @fontlist = map { @{ $oslist{$_} } } @ossel;
+
+my $cover = do 'unicode-cover.inc.pl' or die $@ || $!;
+
+# output character list
+
+print '<table class=mapped>';
+print '<col><col>';
+print "<colgroup span=$_>" for map { scalar @{$oslist{$_}} } @ossel;
+
+print '<thead><tr>';
+print '<th colspan=2>';
+printf '<th colspan=%d>%s fonts', scalar @{ $oslist{$_} }, $_ for @ossel;
+
+print '<tr>';
+print '<th colspan=2>';
+printf '<td>%s', $_ for @fontlist;
+say '</thead>';
+
+for my $name (sort keys %{$cover}) {
+	my $row = $cover->{$name};
+	print '<tr>';
+	$name = qq{<a href="/chars/$name">$name</a>}
+		if $row->{-count} and $row->{-count} < 1280;
+	print '<th>', $name;
+	print '<td class=right>', $row->{-count};
+	for (@fontlist) {
+		my $count = $row->{$_};
+		if (not defined $count) {
+			print '<td class="l0">?';
+			next;
+		}
+		if (not $count) {
+			print '<td class="l1">0';
+			next;
+		}
+
+		my $rel = $count / $row->{-count};
+		my $class = $rel < .5 ? 2 : $rel < .75 ? 3 : $rel < 1 ? 4 : 5;
+		printf '<td class="%s">%d%%', "l$class", $rel*100;
+	}
+	say '</tr>';
+}
+
+say "</table>\n";
+
+:></div>
+
-- 
2.30.0