web commit by NicolasLimare: updated comment; $config{lang} is a nice default value

[git.ikiwiki.info.git] / IkiWiki / Plugin / camelcase.pm

diff --git a/IkiWiki/Plugin/camelcase.pm b/IkiWiki/Plugin/camelcase.pm
index 0bb35b6e26249294fb7d3aa57c38b17a59663e69..dc89f1b90ec8c039a6ce3adbe8ee03cb60ae30df 100644 (file)
--- a/IkiWiki/Plugin/camelcase.pm
+++ b/IkiWiki/Plugin/camelcase.pm
@@ -2,9 +2,9 @@
 # CamelCase links
 package IkiWiki::Plugin::camelcase;
 
 # CamelCase links
 package IkiWiki::Plugin::camelcase;
 

-use IkiWiki;

 use warnings;
 use strict;
 use warnings;
 use strict;

+use IkiWiki 2.00;

 
 sub import { #{{{
        hook(type => "filter", id => "camelcase", call => \&filter);
 
 sub import { #{{{
        hook(type => "filter", id => "camelcase", call => \&filter);


@@ -15,7 +15,20 @@ sub filter (@) { #{{{
 
        # Make CamelCase links work by promoting them to fullfledged
        # WikiLinks. This regexp is based on the one in Text::WikiFormat.
 
        # 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{
+               (?<![[|"/>=])   # 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};
 } #}}}
 
        return $params{content};
 } #}}}