]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/map.pm
remove maxdepth, it can be accomplished by pagespec like ".. and !*/*/*/*"
[git.ikiwiki.info.git] / IkiWiki / Plugin / map.pm
1 #!/usr/bin/perl
2 #
3 # Produce a hyerarchical map of links.
4 #
5 # By Alessandro Dotti Contra <alessandro@hyboria.org>
6 #
7 # Revision: 0.1
8 package IkiWiki::Plugin::map;
10 use warnings;
11 use strict;
12 use IkiWiki;
14 sub import { #{{{
15         IkiWiki::hook(type => "preprocess", id => "map",
16                 call => \&preprocess);
17 } # }}}
19 sub preprocess (@) { #{{{
20         my %params=@_;
21         $params{pages}="*" unless defined $params{pages};
22         
23         # Needs to update whenever a page is added or removed, so
24         # register a dependency.
25         IkiWiki::add_depends($params{page}, $params{pages});
26         
27         # Get all the items to map.
28         my @mapitems = ();
29         foreach my $page (keys %IkiWiki::links) {
30                 if (IkiWiki::pagespec_match($page, $params{pages})) {
31                         push @mapitems, $page;
32                 }
33         }
35         # Create the map.
36         my $indent=0;
37         my $map = "<div class='map'>\n";
38         foreach my $item (sort @mapitems) {
39                 my $depth = ($item =~ tr/\//\//) + 1;
40                 while ($depth < $indent) {
41                         $indent--;
42                         $map.="</ul>\n";
43                 }
44                 while ($depth > $indent) {
45                         $indent++;
46                         $map.="<ul>\n";
47                 }
48                 $map .= "<li>"
49                         .IkiWiki::htmllink($params{page}, $params{destpage}, $item)
50                         ."</li>\n";
51         }
52         while ($indent > 0) {
53                 $indent--;
54                 $map.="</ul>\n";
55         }
56         $map .= "</div>\n";
57         return $map;
58 } # }}}
60 1