summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-08-04 02:19:28 +0200
committerJonas Smedegaard <dr@jones.dk>2008-08-04 02:19:28 +0200
commit52d3706fd4d7ba3425dac767d75db549fb499dc7 (patch)
tree7e71b8bcb0ae7cbcfb5e959e3813932150d3d59b /perl
parentb68f746ade49fff4ff4ba3c0adec95d26237a966 (diff)
Extend make and po4a to support templates.
Diffstat (limited to 'perl')
-rw-r--r--perl/Locale/Po4a/Text.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index 5236095..0cc2cc8 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -179,6 +179,12 @@ sub parse {
$paragraph="";
$wrapped_mode = 1;
$self->pushline($line."\n");
+ } elsif ($line =~ /^-- $/) {
+ # Break paragraphs on email signature hint
+ do_paragraph($self,$paragraph,$wrapped_mode);
+ $paragraph="";
+ $wrapped_mode = 1;
+ $self->pushline($line."\n");
} elsif ( $line =~ /^=+$/
or $line =~ /^_+$/
or $line =~ /^-+$/) {
@@ -237,6 +243,7 @@ sub parse {
$wrapped_mode = 0 if (
$paragraph =~ /^>/ms # blockquote
or $paragraph =~ /^( {8}|\t)/ms # monospaced
+ or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro
or $paragraph =~ /[<>]/ms # maybe html
or $paragraph =~ /^\s*\[\[\!\S[^\]]+$/ms # macro begin
);