my %font = ();
my $lang = "main";
-if ($source =~ /\/([a-z][a-z](_[A-Z][A-Z])?)\//) {
+if ($source =~ /\/([a-z][a-z](_[A-Z][A-Z])?)[\/_]/) {
$lang = $1;
}
+
+my $inputEncoding = undef;
if ($fontT eq "systemF") {
- if ($lang =~ /^(ru|uk)$/) {
+ if ($lang =~ /^(ru|uk|sk)$/) {
$font{roman} = "DejaVu Serif";
$font{sans} = "DejaVu Sans";
$font{typewriter} = "DejaVu Sans Mono";
}
else {
# use tex font here
+ if ($format =~ /^(pdf4)$/) { # xelatex
+ # set input encoding to 'ascii' always
+ $inputEncoding = {
+ "search" => '.*', # this will be substituted from '\inputencoding'-line
+ "out" => "ascii",
+ };
+ }
+ elsif ($format =~ /^(dvi3|pdf5)$/) { # (dvi)?lualatex
+ # when to set input encoding to 'ascii'?
+ #$inputEncoding = {
+ # "search" => 'auto|default', # this will be substituted from '\inputencoding'-line
+ # "out" => "ascii",
+ #};
+ }
}
my $sourcedir = dirname($source);
diestack("could not read \"$source\"") if (!open(FI, $source));
diestack("could not write \"$dest\"") if (! open(FO, '>', $dest));
- initLyxStack(\%font, $fontT);
+ initLyxStack(\%font, $fontT, $inputEncoding);
while (my $l = <FI>) {
chomp($l);