blob: fcf3048b28f34c26f7512c9407f37326fcd305b2 (
plain)
- #!/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;
- # 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
|