anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 01:59:02 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Tools(listFontWithLang.pl): Amend 99508630, polish also the style

Browse Source
This commit is contained in:
Kornel Benko 2020-08-29 15:26:58 +02:00
parent 084781d530
commit 74e37a4791
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
development/tools/listFontWithLang.pl
View File

@ -1211,7 +1211,7 @@ sub buildFontName($$)
my $prefix = "";
# Split the family name at the border lowercase <-> uppercase characters
# except if family starts with "TeX" or "DejaVu", etc
if ($family =~ s/^((La|cw|PL)?TeX|DejaVu|MarVoSym|PL)//) {
if ($family =~ s/^((La|cw|PL)?TeX|LyX|DejaVu|MarVoSym|PL)//) {
$prefix = $1;
if ($family =~ /^[A-Z]/) {
$prefix .= " ";
@ -1224,7 +1224,12 @@ sub buildFontName($$)
$family =~ s/^Ant Polt\b/Antykwa Poltawskiego/;
$family =~ s/\b(Semi|Extra) (Bold|Condensed|Expanded|Light)\b/$1$2/;
$family = $prefix . $family;
my @style = &splitStyle($style);
my @style = ();
if ($style =~ s/^((La|cw|PL)?TeX|LyX|DejaVu|MarVoSym|PL)//) {
push(@style, $1);
}
push(@style, &splitStyle($style));
for my $st (@style) {
$st = ucfirst($st);
if ($family !~ s/$st/$st/i) {