IkiWiki/Plugin/camelcase.pm



#!/usr/bin/perl
# CamelCase links
package IkiWiki::Plugin::camelcase;

use warnings;
use strict;
use IkiWiki 3.00;

# This regexp is based on the one in Text::WikiFormat.
my $link_regexp=qr{
    (?<![^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
    )
}x;

sub import {
    hook(type => "getsetup", id => "camelcase", call => \&getsetup);
    hook(type => "linkify", id => "camelcase", call => \&linkify);
    hook(type => "scan", id => "camelcase", call => \&scan);
}

sub getsetup () {
    return
        plugin => {
            safe => 1,
            rebuild => undef,
        };
}

sub linkify (@) {
    my %params=@_;
    my $page=$params{page};
    my $destpage=$params{destpage};

    $params{content}=~s{$link_regexp}{
        htmllink($page, $destpage, linkpage($1))
    }eg;

    return $params{content};
}

sub scan (@) {
        my %params=@_;
        my $page=$params{page};
        my $content=$params{content};

    while ($content =~ /$link_regexp/g) {
        push @{$links{$page}}, linkpage($1);
    }
}

1