[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.22,1.23"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Fri Oct 24 21:46:53 UTC 2008
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv27777/lib/Locale/Po4a
Modified Files:
Text.pm
Log Message:
* lib/Locale/Po4a/Text.pm, t/data-30/Paragraphs.po: Added support
for [icons=...] and [icon=...].
* t/data-30/Paragraphs.po, t/data-30/Paragraphs.out,
t/data-30/Paragraphs.asciidoc: Added test for [icon="..."].
Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- Text.pm 13 Oct 2008 21:32:39 -0000 1.22
+++ Text.pm 24 Oct 2008 21:46:51 -0000 1.23
@@ -332,6 +332,32 @@
undef $self->{bullet};
undef $self->{indent};
} elsif ($asciidoc and not defined $self->{verbatim} and
+ ($line =~ m/^\[icon="(.*)"\]$/)) {
+ my $arg = $1;
+ do_paragraph($self,$paragraph,$wrapped_mode);
+ $paragraph="";
+ my $t = $self->translate($arg,
+ $self->{ref},
+ "icon",
+ "wrap" => 0);
+ $self->pushline("[icon=\"$t\"]\n");
+ $wrapped_mode = 1;
+ undef $self->{bullet};
+ undef $self->{indent};
+ } elsif ($asciidoc and not defined $self->{verbatim} and
+ ($line =~ m/^\[icons=None, +caption="(.*)"\]$/)) {
+ my $arg = $1;
+ do_paragraph($self,$paragraph,$wrapped_mode);
+ $paragraph="";
+ my $t = $self->translate($arg,
+ $self->{ref},
+ "caption",
+ "wrap" => 0);
+ $self->pushline("[icons=None, caption=\"$t\"]\n");
+ $wrapped_mode = 1;
+ undef $self->{bullet};
+ undef $self->{indent};
+ } elsif ($asciidoc and not defined $self->{verbatim} and
($line =~ m/^(\s*)(\S.*)((?:::|;;)\s+)(.*)$/)) {
my $indent = $1;
my $label = $2;
More information about the Po4a-commits
mailing list