$content =~ s{ ^ ( \\newline \ )+ }{ _lb_to_space($1) }gxe; # convert line breaks at the start of the text to vertical space
$content =~ s{ ( \n\n+ ) ( \\newline \ )+ }{ $1 . _lb_to_space($2) }gxe; # convert line breaks at the start of a paragraph to vertical space
$content =~ s{ ( \\end\{ [^\}]+ \} \h* ) ( \\newline \ )+ }{ $1 . _lb_to_space($2) }gxe; # convert line breaks after LaTeX environments like lists to vertical space
+ $content =~ s{ ^ \h+ \\newline }{\\newline}gmx;
+ $content =~ s{ \n\n \h* \\newline \h* }{\n\n}gmx;
return $content;
}
// $formatters{ $self->{default_content_type} }
// $formatters{ text };
+ $content =~ s{[^\p{Print}\n]|\p{Cf}}{}g;
+ $variable =~ s{[^\p{Print}\n]|\p{Cf}}{}g;
+
return $formatter->($self, $content, variable => $variable);
}
$contents = "[% TAGS $self->{tag_start} $self->{tag_end} %]\n" . $contents;
}
- $form->prepare_global_vars;
+ my $globals = global_vars();
- $::form->init_template->process(\$contents, $form, \$new_contents) || die $::form->template->error;
+ $::form->template->process(\$contents, { %$form, %$globals }, \$new_contents) || die $::form->template->error;
} else {
$new_contents = $self->parse_block($contents);
}
return (file_name => do { $tex_file_name =~ s/tex$/pdf/; $tex_file_name });
}
+sub global_vars {
+ {
+ AUTH => $::auth,
+ INSTANCE_CONF => $::instance_conf,
+ LOCALE => $::locale,
+ LXCONFIG => $::lx_office_conf,
+ LXDEBUG => $::lxdebug,
+ MYCONFIG => \%::myconfig,
+ };
+}
+
1;