diff options
author | Jonas Smedegaard <dr@jones.dk> | 2008-08-04 02:19:28 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2008-08-04 02:19:28 +0200 |
commit | 52d3706fd4d7ba3425dac767d75db549fb499dc7 (patch) | |
tree | 7e71b8bcb0ae7cbcfb5e959e3813932150d3d59b /perl/Locale | |
parent | b68f746ade49fff4ff4ba3c0adec95d26237a966 (diff) |
Extend make and po4a to support templates.
Diffstat (limited to 'perl/Locale')
-rw-r--r-- | perl/Locale/Po4a/Text.pm | 7 |
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 ); |