X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/6f6495d7a6a021245a9d636ceabb8491285f88f2..92a5fa99807996d54ad9dd2b5618743ad3c8154d:/IkiWiki/Plugin/map.pm?ds=inline diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm index f2e8722c8..07b63cb70 100644 --- a/IkiWiki/Plugin/map.pm +++ b/IkiWiki/Plugin/map.pm @@ -1,10 +1,10 @@ #!/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.1 +# Revision: 0.2 package IkiWiki::Plugin::map; use warnings; @@ -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,37 +21,43 @@ 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; } } # Create the map. my $indent=0; + my $openli=0; my $map = "
\n"; + $map .= "
    \n"; foreach my $item (sort @mapitems) { - my $depth = ($item =~ tr/\//\//) + 1; + my $depth = ($item =~ tr/\//\//); while ($depth < $indent) { $indent--; - $map.="
\n"; + $map.="\n"; } while ($depth > $indent) { $indent++; $map.="
    \n"; + $openli=0; } + $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) { $indent--; - $map.="
\n"; + $map.="\n"; } + $map .= "\n"; $map .= "
\n"; return $map; } # }}}