#!/usr/bin/perl package IkiWiki::Plugin::smiley; use warnings; use strict; use IkiWiki 2.00; my %smileys; my $smiley_regexp; sub import { #{{{ add_underlay("smiley"); hook(type => "filter", id => "smiley", call => \&filter); } # }}} sub build_regexp () { #{{{ my $list=readfile(srcfile("smileys.mdwn")); while ($list =~ m/^\s*\*\s+\\([^\s]+)\s+\[\[([^]]+)\]\]/mg) { $smileys{$1}=$2; } if (! %smileys) { debug(gettext("failed to parse any smileys")); $smiley_regexp=''; return; } # sort and reverse so that substrings come after longer strings # that contain them, in most cases. $smiley_regexp='('.join('|', map { quotemeta } reverse sort keys %smileys).')'; #debug($smiley_regexp); } #}}} sub filter (@) { #{{{ my %params=@_; build_regexp() unless defined $smiley_regexp; $_=$params{content}; return $_ unless length $smiley_regexp; MATCH: while (m{(?:^|(?<=\s))(\\?)$smiley_regexp(?:(?=\s)|$)}g) { my $escape=$1; my $smiley=$2; my $epos=$-[1]; my $spos=$-[2]; # Smilies are not allowed inside
 or .
		# For each tag in turn, match forward to find the next 
		# or  after the smiley.
		my $pos=pos;
		foreach my $tag ("pre", "code") {
			if (m/.*?<(\/)?\s*$tag\s*>/isg && defined $1) {
				#  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($_, $epos, 1)="";
		}
		else {
			# Replace the smiley with its expanded value.
			substr($_, $spos, length($smiley))=
				htmllink($params{page}, $params{destpage},
				         $smileys{$smiley}, linktext => $smiley);
		}
	}

	return $_;
} # }}}

1