ttfsupport/all: ttfsupport/all-ms ttfsupport/all-apple ttfsupport/all-dejavu ttfsupport/all-google ttfsupport/unifont.inc.pl ttfsupport/c2k.inc.pl
-ttfsupport/all-ms: ttfsupport/verdana.inc.pl ttfsupport/times.inc.pl ttfsupport/arial.inc.pl ttfsupport/courier.inc.pl ttfsupport/comic.inc.pl ttfsupport/georgia.inc.pl ttfsupport/arialuni.inc.pl
+ttfsupport/all-ms: ttfsupport/verdana.inc.pl ttfsupport/timesnew.inc.pl ttfsupport/arial.inc.pl ttfsupport/couriernew.inc.pl ttfsupport/comic.inc.pl ttfsupport/georgia.inc.pl ttfsupport/arialuni.inc.pl
ttfsupport/verdana.inc.pl: tools/mkttfinfo
$< Verdana.ttf $@
-ttfsupport/times.inc.pl: tools/mkttfinfo
+ttfsupport/timesnew.inc.pl: tools/mkttfinfo
$< Times_New_Roman.ttf $@
ttfsupport/arial.inc.pl: tools/mkttfinfo
$< Arial.ttf $@
-ttfsupport/courier.inc.pl: tools/mkttfinfo
+ttfsupport/couriernew.inc.pl: tools/mkttfinfo
$< Courier_New.ttf $@
ttfsupport/comic.inc.pl: tools/mkttfinfo
$< Comic_Sans_MS.ttf $@
$charlist{fonts} = \@fontlist;
my %osfonts = (
- win95 => [qw( arial arialuni lucidau verdana times courier )], # microsoft
+ win95 => [qw( arial arialuni lucidau verdana timesnew couriernew )], # microsoft
mac10 => [qw( helvetica lucida times garamond palatino )], # apple
android => [qw( roboto noto )], # google
oss => [qw( dvsans c2k unifont opensans )],
#!/usr/bin/env perl
-use 5.010;
+use 5.014;
use strict;
use warnings;
select $output;
}
-my %FONTID = (
- 'Times New Roman' => 'times',
- 'DejaVu Sans' => 'dv ss',
- 'DejaVu Serif' => 'dv serif',
- 'DejaVu Sans Mono'=> 'dv mono',
- 'Code2000' => 'c2k',
- 'GNU Unifont' => 'guf',
- 'Droid Sans' => 'droid',
- 'Droid Serif' => 'droid serif',
- 'Droid Sans Mono' => 'droid mono',
-);
-
{
my $ttf = Font::TTF::Font->open($ttfuri)
or die "Cannot open truetype in $ttfuri: $!";
}
} $ttf->{head}->getdate),
);
- $meta{abbr} = $FONTID{ $meta{name} } // lc $ttfname;
+ $meta{abbr} = lc join '', $meta{name} =~ s/ MS$//r =~ m{
+ (?!Sans) (?<! [0-9]) ([[:upper:]0-9])
+ }gx;
say "# automatically generated by $0";
say '+', pp(\%meta), ',';