[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.21,1.22"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Mon Oct 13 21:32:41 UTC 2008
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv30611/lib/Locale/Po4a
Modified Files:
Text.pm
Log Message:
* lib/Locale/Po4a/Text.pm, t/data-30/Paragraphs.po: Added support
for Admonition Paragraphs.
Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Text.pm 13 Oct 2008 19:45:28 -0000 1.21
+++ Text.pm 13 Oct 2008 21:32:39 -0000 1.22
@@ -291,6 +291,17 @@
undef $self->{bullet};
undef $self->{indent};
} elsif ($asciidoc and not defined $self->{verbatim} and
+ ($paragraph eq "") and
+ ($line =~ m/^((?:NOTE|TIP|IMPORTANT|WARNING|CAUTION):\s+)(.*)$/)) {
+ my $type = $1;
+ my $text = $2;
+ do_paragraph($self,$paragraph,$wrapped_mode);
+ $paragraph=$text."\n";
+ $wrapped_mode = 1;
+ $self->pushline($type);
+ undef $self->{bullet};
+ undef $self->{indent};
+ } elsif ($asciidoc and not defined $self->{verbatim} and
($line =~ m/^\[(NOTE|TIP|IMPORTANT|WARNING|CAUTION|verse|quote)\]$/)) {
my $type = $1;
do_paragraph($self,$paragraph,$wrapped_mode);
More information about the Po4a-commits
mailing list