]> sipb.mit.edu Git - ikiwiki.git/blobdiff - IkiWiki/Plugin/camelcase.pm
add parens around scheme regexp
[ikiwiki.git] / IkiWiki / Plugin / camelcase.pm
index 0934b27c27826e369a8a033c09ba891cefac0df5..845a516ee5e0d02d4080e08fab386d009db31c52 100644 (file)
@@ -4,9 +4,10 @@ package IkiWiki::Plugin::camelcase;
 
 use warnings;
 use strict;
+use IkiWiki 2.00;
 
 sub import { #{{{
-       IkiWiki::hook(type => "filter", id => "camelcase", call => \&filter);
+       hook(type => "filter", id => "camelcase", call => \&filter);
 } # }}}
 
 sub filter (@) { #{{{
@@ -14,7 +15,21 @@ sub filter (@) { #{{{
 
        # Make CamelCase links work by promoting them to fullfledged
        # WikiLinks. This regexp is based on the one in Text::WikiFormat.
-       $params{content}=~s#(?<![["/>=])\b((?:[A-Z][a-z0-9]\w*){2,})#[[$1]]#g;
+       $params{content}=~s{
+               (?<![^A-Za-z0-9\s])     # try to avoid expanding non-links
+                                       # with a zero width negative
+                                       # lookbehind for characters that
+                                       # suggest it's not a link
+               \b                      # word boundry
+               (
+                       (?:
+                               [A-Z]           # Uppercase start
+                               [a-z0-9]        # followed by lowercase
+                               \w*             # and rest of word
+                       )
+                       {2,}                    # repeated twice
+               )
+       }{[[$1]]}gx;
 
        return $params{content};
 } #}}}