X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/8bc72cf576806b52fae4b4e34505fcd84b97e2bf..5e2f32d08b77d469b7f190f40dde1e4ca9cd1af3:/tools/mkttfinfo diff --git a/tools/mkttfinfo b/tools/mkttfinfo index 916e7f3..9102726 100755 --- a/tools/mkttfinfo +++ b/tools/mkttfinfo @@ -9,14 +9,14 @@ use Getopt::Long; our $VERSION = '1.00'; -GetOptions(my %opt, +GetOptions(\my %opt, 'verbose|v!', ); my ($ttfuri, $outfile) = @ARGV; $ttfuri or die "usage error\n"; -my $fontinc = $ENV{FONTINC} // '~/.fonts,/usr/share/fonts/truetype/*'; +my $fontinc = $ENV{FONTINC} // 'data/font,~/.fonts,/usr/share/fonts/truetype/*'; if (!-e $ttfuri) { my $found = (grep {-e} glob "{$fontinc}/$ttfuri")[0] or do { warn "font not found: $ttfuri\n"; @@ -40,7 +40,7 @@ for ($outfile || ()) { source => $ttfuri =~ m{(^/usr/.+ | [^/]+) \z}msx, name => $ttfmeta->find_name(4) || $ttfname, revision => sprintf('%g', $ttf->{head}->{fontRevision}), - version => $ttfmeta->find_name(5) =~ s/\Aversion //ri, + version => $ttfmeta->find_name(5) =~ s/\Aversion //ri =~ s/\s+\z//r, copyright=> scalar $ttfmeta->find_name(0), license => $ttfmeta->find_name(14) || undef, date => (map {