Export pagetitle, titlepage, linkpage.
[ikiwiki] / IkiWiki / Plugin / camelcase.pm
1 #!/usr/bin/perl
2 # CamelCase links
3 package IkiWiki::Plugin::camelcase;
4
5 use warnings;
6 use strict;
7 use IkiWiki 2.00;
8
9 # This regexp is based on the one in Text::WikiFormat.
10 my $link_regexp=qr{
11         (?<![^A-Za-z0-9\s])     # try to avoid expanding non-links with a
12                                 # zero width negative lookbehind for
13                                 # characters that suggest it's not a link
14         \b                      # word boundry
15         (
16                 (?:
17                         [A-Z]           # Uppercase start
18                         [a-z0-9]        # followed by lowercase
19                         \w*             # and rest of word
20                 )
21                 {2,}                    # repeated twice
22         )
23 }x;
24
25 sub import { #{{{
26         hook(type => "getsetup", id => "camelcase", call => \&getsetup);
27         hook(type => "linkify", id => "camelcase", call => \&linkify);
28         hook(type => "scan", id => "camelcase", call => \&scan);
29 } # }}}
30
31 sub getsetup () { #{{{
32         return
33                 plugin => {
34                         safe => 1,
35                         rebuild => undef,
36                 };
37 } #}}}
38
39 sub linkify (@) { #{{{
40         my %params=@_;
41         my $page=$params{page};
42         my $destpage=$params{destpage};
43
44         $params{content}=~s{$link_regexp}{
45                 htmllink($page, $destpage, linkpage($1))
46         }eg;
47
48         return $params{content};
49 } #}}}
50
51 sub scan (@) { #{{{
52         my %params=@_;
53         my $page=$params{page};
54         my $content=$params{content};
55
56         while ($content =~ /$link_regexp/g) {
57                 push @{$links{$page}}, linkpage($1);
58         }
59 }
60
61 1