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;
   9
  10 use warnings;
  11 use strict;
  12 use IkiWiki;
  13
  14 sub import { #{{{
  15         IkiWiki::hook(type => "preprocess", id => "map",
  16                 call => \&preprocess);
  17 } # }}}
  18
  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         }
  34
  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 } # }}}
  59
  60 1