X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f130701c5006246ad789798d21550465db6c6502..5f4bdebe887e0d75a9db49bd98631e8df78b015d:/tools/mkfontinfo

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index e212d94..1019043 100755
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -18,6 +18,12 @@ for my $fontfile (glob 'ttfsupport/*'.$incsuffix) {
 	my ($fontid) = basename($fontfile, $incsuffix);
 	my ($fontmeta, @fontrange) = do $fontfile or next;
 	$fontmeta->{file} = $fontid;
+	my $year = substr $fontmeta->{date}, 0, 4;
+	$fontmeta->{description} = join(' ',
+		(map { "version $_" } $fontmeta->{version} || ()),
+		$fontmeta->{version} && $fontmeta->{version} =~ /\Q$year/ ? () :
+		(map { "($_)" } $year || ()),
+	);
 	push @fontlist, $fontmeta;
 	$cover{$fontid} = { map { (chr $_ => 1) } @fontrange };
 }
@@ -59,7 +65,7 @@ eval {
 
 eval {
 	use Unicode::UCD 'charinfo';
-	for my $code (0 .. 256**2) {
+	for my $code (0 .. 256**2*2) {
 		my $charinfo = charinfo($code) or next;
 		next if $charinfo->{category} =~ /^[MC]/;  # ignore Marks and "other" Control chars
 		push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code