use warnings;
use strict;
-use IkiWiki;
+use IkiWiki 2.00;
my %smileys;
my $smiley_regexp;
sub import { #{{{
- hook(type => "checkconfig", id => "smiley", call => \&setup);
+ add_underlay("smiley");
+ hook(type => "filter", id => "smiley", call => \&filter);
} # }}}
-sub setup () { #{{{
+sub build_regexp () { #{{{
my $list=readfile(srcfile("smileys.mdwn"));
while ($list =~ m/^\s*\*\s+\\([^\s]+)\s+\[\[([^]]+)\]\]/mg) {
$smileys{$1}=$2;
}
if (! %smileys) {
- debug("failed to parse any smileys, disabling plugin");
+ debug(gettext("failed to parse any smileys"));
+ $smiley_regexp='';
return;
}
- hook(type => "filter", id => "smiley", call => \&filter);
# sort and reverse so that substrings come after longer strings
# that contain them, in most cases.
$smiley_regexp='('.join('|', map { quotemeta }
sub filter (@) { #{{{
my %params=@_;
+
+ build_regexp() unless defined $smiley_regexp;
- $params{content} =~ s{(?<=\s)(\\?)$smiley_regexp(?=\s)}{
- $1 ? $2 : htmllink($params{page}, $params{page}, $smileys{$2}, 0, 0, $2)
- }egs;
+ $_=$params{content};
+ return $_ unless length $smiley_regexp;
- return $params{content};
+MATCH: while (m{(?:^|(?<=\s))(\\?)$smiley_regexp(?:(?=\s)|$)}g) {
+ my $escape=$1;
+ my $smiley=$2;
+
+ # Smilies are not allowed inside <pre> or <code>.
+ # For each tag in turn, match forward to find the next <tag>
+ # or </tag> after the smiley.
+ my $pos=pos;
+ foreach my $tag ("pre", "code") {
+ if (m/.*?<(\/)?\s*$tag\s*>/isg && defined $1) {
+ # </tag> found first, so the smiley is
+ # inside the tag, so do not expand it.
+ next MATCH;
+ }
+ # Reset pos back to where it was before this test.
+ pos=$pos;
+ }
+
+ if ($escape) {
+ # Remove escape.
+ substr($_, $-[1], 1)="";
+ }
+ else {
+ # Replace the smiley with its expanded value.
+ substr($_, $-[2], length($smiley))=
+ htmllink($params{page}, $params{destpage},
+ $smileys{$smiley}, linktext => $smiley);
+ }
+ }
+
+ return $_;
} # }}}
1