X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/eea9f5053a36e178d35479501dda13d0dcd3a535..62aecc19f0585779a443fead2fae23bf3483e44e:/IkiWiki/Plugin/map.pm?ds=inline diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm index 070f49415..07b63cb70 100644 --- a/IkiWiki/Plugin/map.pm +++ b/IkiWiki/Plugin/map.pm @@ -1,8 +1,8 @@ #!/usr/bin/perl # -# Produce a hyerarchical map of links. +# Produce a hierarchical map of links. # -# By Alessandro Dotti Contra +# by Alessandro Dotti Contra # # Revision: 0.2 package IkiWiki::Plugin::map; @@ -12,8 +12,7 @@ use strict; use IkiWiki; sub import { #{{{ - IkiWiki::hook(type => "preprocess", id => "map", - call => \&preprocess); + hook(type => "preprocess", id => "map", call => \&preprocess); } # }}} sub preprocess (@) { #{{{ @@ -22,12 +21,12 @@ sub preprocess (@) { #{{{ # Needs to update whenever a page is added or removed, so # register a dependency. - IkiWiki::add_depends($params{page}, $params{pages}); + add_depends($params{page}, $params{pages}); # Get all the items to map. my @mapitems = (); - foreach my $page (keys %IkiWiki::links) { - if (IkiWiki::pagespec_match($page, $params{pages})) { + foreach my $page (keys %links) { + if (pagespec_match($page, $params{pages}, $params{page})) { push @mapitems, $page; } } @@ -50,7 +49,8 @@ sub preprocess (@) { #{{{ } $map .= "\n" if $openli; $map .= "
  • " - .IkiWiki::htmllink($params{page}, $params{destpage}, $item) ."\n"; + .htmllink($params{page}, $params{destpage}, $item) + ."\n"; $openli=1; } while ($indent > 0) {