Browse Source

* Text::Dokuwiki::Parser->_parse_text()

master
Zubrikhin Alexey 9 years ago
parent
commit
7067110fe9
  1. 21
      lib/Text/Dokuwiki/Parser.pm

21
lib/Text/Dokuwiki/Parser.pm

@ -200,25 +200,22 @@ sub _parse_text {
$line = substr($after, $endpos + 2);
}
my %attrs;
if ($match eq "//") { %attrs = ('font-style' => 'italic'); }
elsif ($match eq "**") { %attrs = ('font-weight' => 'bold'); }
elsif ($match eq "''") { %attrs = ('font-family' => 'monospace'); }
elsif ($match eq "__") { %attrs = ('text-decoration' => 'underline'); }
my ($tag, %attrs);
if ($match eq "//") { $tag = 'i'; }
elsif ($match eq "**") { $tag = 'b'; }
elsif ($match eq "__") { $tag = 'u'; } # should be rendered as <span style="">
elsif ($match eq "''") { $tag = 'code'; }
elsif ($match eq "{{") { push @parts, $self->_parse_include($content); next; }
elsif ($match eq "[[") { push @parts, $self->_parse_link($content); next; }
elsif ($match eq "[[") { push @parts, $self->_parse_link($content); next; }
elsif ($match eq "((") {
push @{ $self->{footnotes} }, $self->_parse_text($content);
my $n = scalar @{ $self->{footnotes} };
push @parts, [sup => {}, [a => {href => "#note_$n"}, $n]];
push @parts, [a => {href => "#note_$n", class => 'footnote'}, $n];
next;
}
elsif ($match) { die("unrecognized inline: $match\n"); }
elsif ($match) { die("parser failed, unrecognized inline: $match\n"); }
if (%attrs) {
push @parts, [span => \%attrs, $self->_parse_text($content)];
next;
}
push @parts, [$tag => \%attrs, $self->_parse_text($content)];
}
return @parts;

Loading…
Cancel
Save