commit 74e37a4791ebea5c0c555806dd986c84851f02ad Author: Kornel Benko <kor...@lyx.org> Date: Sat Aug 29 15:26:58 2020 +0200
Tools(listFontWithLang.pl): Amend 99508630, polish also the style --- development/tools/listFontWithLang.pl | 9 +++++++-- 1 files changed, 7 insertions(+), 2 deletions(-) diff --git a/development/tools/listFontWithLang.pl b/development/tools/listFontWithLang.pl index 34c36c9..4683cc9 100644 --- a/development/tools/listFontWithLang.pl +++ b/development/tools/listFontWithLang.pl @@ -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) { -- lyx-cvs mailing list lyx-cvs@lists.lyx.org http://lists.lyx.org/mailman/listinfo/lyx-cvs