git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
font: subpage lists ordered glyphs in requested typeface
[sheet.git]
/
tools
/
mkfontinfo
diff --git
a/tools/mkfontinfo
b/tools/mkfontinfo
index e212d94a8aba715362a91c3957b2c2a971229f53..10190437fadb8e78770a388d6d91ffc8fd2ed6c7 100755
(executable)
--- 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 ($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 };
}
push @fontlist, $fontmeta;
$cover{$fontid} = { map { (chr $_ => 1) } @fontrange };
}
@@
-59,7
+65,7
@@
eval {
eval {
use Unicode::UCD 'charinfo';
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
my $charinfo = charinfo($code) or next;
next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code