b051a6da2f29bf59ab63d935e866042f8edb580f
[ikiwiki.git] / IkiWiki / Plugin / pedigree.pm
1 #!/usr/bin/perl
2 # -*- cperl-indent-level: 8; -*-
3 # Ikiwiki pedigree plugin.
4 package IkiWiki::Plugin::pedigree;
5
6 use warnings;
7 use strict;
8 use IkiWiki 2.00;
9
10 sub import { #{{{
11         hook(type => "pagetemplate", id => "pedigree", call => \&pagetemplate);
12 } # }}}
13
14 sub pedigree ($) { #{{{
15         my $page=shift;
16
17         my @ret;
18         my $path="";
19         my $title=$config{wikiname};
20         my $i=0;
21
22         my @pagepath=(split("/", $page));
23         my $pagedepth=@pagepath;
24         foreach my $dir (@pagepath) {
25                 next if $dir eq 'index';
26                 push @ret, {
27                             url => urlto($path, $page),
28                             page => $title,
29                             level => $i,
30                             is_root => ($i eq 0),
31                             is_second_ancestor => ($i eq 1),
32                             is_grand_mother => ($i eq ($pagedepth - 2)),
33                             is_mother => ($i eq ($pagedepth - 1)),
34                            };
35                 $path.="/".$dir;
36                 $title=IkiWiki::pagetitle($dir);
37                 $i++;
38         }
39         return @ret;
40 } #}}}
41
42 sub pagetemplate (@) { #{{{
43         my %params=@_;
44         my $page=$params{page};
45         my $template=$params{template};
46
47         if ($template->query(name => "pedigree")) {
48                 $template->param(pedigree => [pedigree($page)]);
49         }
50
51 } # }}}
52
53 1