FANCY => 32,
INITIALS => 64,
SYMBOL => 128,
+ SMALLCAP => 256,
};
sub convertlang($);
FANCY() => "Fancy",
INITIALS() => "Initials",
SYMBOL() => "Symbol",
+ SMALLCAP() => "SmallCap",
"default" => 1,
);
"j" => qr/^(jsmath.?euf)/i,
"m" => qr/^(missaali)/i,
"o" => qr/^(oldania)/i,
- "q" => qr/^qt(blackforest|cloisteredmonk|dublinirish|fraktur|heidelbergtype|(lino|london)scroll)/i,
+ "q" => qr/^qt(blackforest|cloisteredmonk|dublinirish|fraktur|heidelbergtype|(lino|london) ?scroll)/i,
"u" => qr/^ukij ?(kufi ?tar|mejnun ?reg)/i,
);
"w" => qr/^w(ebdings|asy|elfare ?brat)/i,
);
+my %smallcapFonts = (
+ "value" => SMALLCAP | SERIF,
+ "c" => qr/^cs[ct]sc\d/i,
+ "d" => qr/^drm(it)?sc\d/i,
+ "f" => qr/^fetamont.?script/i,
+ "n" => qr/^newtxb?ttsc/i,
+ "s" => qr/^(screengem|sf.?kp.?sc)/i,
+ "t" => qr/^t1?xb?ttsc/i,
+ "v" => qr/^vn ?cccsc\d/i,
+);
+
if (open(FI, "$cmd |")) {
NXTLINE: while (my $l = <FI>) {
chomp($l);
}
my $fontname;
($fontname, $style) = &buildFontName($family, $style);
-
if (defined($options{NFontName})) {
for my $fn (@{$options{NFontName}}) {
next NXTLINE if ($fontname =~ /$fn/i);
if ($fontname =~ /callig/i) {
$resftype |= FANCY;
}
+ if ($fontname =~ /\bS(mall)?C(aps)\b/i) {
+ if ($fontname !~ /^noto/i) {
+ $resftype |= SMALLCAP|SERIF;
+ }
+ }
# Now check for fonts without a hint in font name
if ($fontname =~ /^([a-z])/i) {
my $key = lc($1);
}
}
}
- for my $rFonts (\%fancyFonts, \%initialFonts, \%symbolFonts) {
+ for my $rFonts (\%fancyFonts, \%initialFonts, \%symbolFonts, \%smallcapFonts) {
if (defined($rFonts->{$key})) {
if ($fontname =~ $rFonts->{$key}) {
$resftype |= $rFonts->{"value"};