X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/2eac55e90efa6aa82f3159385f1398be4b3bf6da..ea8c7a7e024e0574ce0d4f6e42f267256980fba4:/IkiWiki/Plugin/map.pm diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm index c65e61ac9..4a9bf58db 100644 --- a/IkiWiki/Plugin/map.pm +++ b/IkiWiki/Plugin/map.pm @@ -1,61 +1,163 @@ #!/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; use strict; -use IkiWiki; +use IkiWiki 3.00; -sub import { #{{{ - IkiWiki::hook(type => "preprocess", id => "map", - call => \&preprocess); -} # }}} +sub import { + hook(type => "getsetup", id => "map", call => \&getsetup); + hook(type => "preprocess", id => "map", call => \&preprocess); +} -sub preprocess (@) { #{{{ +sub getsetup () { + return + plugin => { + safe => 1, + rebuild => undef, + section => "widget", + }, +} + +sub preprocess (@) { my %params=@_; $params{pages}="*" unless defined $params{pages}; - # Needs to update whenever a page is added or removed, so - # register a dependency. - IkiWiki::add_depends($params{page}, $params{pages}); + # Needs to update whenever a page is added or removed (or in some + # cases, when its content changes, if show= is specified). + my $deptype=deptype(exists $params{show} ? "content" : "presence"); + my $common_prefix; + # Get all the items to map. - my @mapitems = (); - foreach my $page (keys %IkiWiki::links) { - if (IkiWiki::pagespec_match($page, $params{pages})) { - push @mapitems, $page; + my %mapitems; + foreach my $page (pagespec_match_list($params{page}, $params{pages}, + deptype => $deptype)) { + if (exists $params{show} && + exists $pagestate{$page} && + exists $pagestate{$page}{meta}{$params{show}}) { + $mapitems{$page}=$pagestate{$page}{meta}{$params{show}}; + } + else { + $mapitems{$page}=''; + } + # Check for a common prefix. + if (! defined $common_prefix) { + $common_prefix=$page; } + elsif (length $common_prefix && + $page !~ /^\Q$common_prefix\E(\/|$)/) { + my @a=split(/\//, $page); + my @b=split(/\//, $common_prefix); + $common_prefix=""; + while (@a && @b && $a[0] eq $b[0]) { + if (length $common_prefix) { + $common_prefix.="/"; + } + $common_prefix.=shift(@a); + shift @b; + } + } + } + + # Common prefix should not be a page in the map. + while (defined $common_prefix && length $common_prefix && + exists $mapitems{$common_prefix}) { + $common_prefix=IkiWiki::dirname($common_prefix); } + # Set this to 1 or more spaces to pretty-print maps for debugging + my $spaces = ""; + # Create the map. + my $parent=""; my $indent=0; + my $openli=0; + my $addparent=""; my $map = "
\n"; - foreach my $item (sort @mapitems) { + + if (! keys %mapitems) { + # return empty div for empty map + $map .= "
\n"; + return $map; + } + else { + $map .= "\n"; + } + $indent--; + } while ($depth < $indent) { + $map .= ($spaces x $indent) . "\n"; + if ($indent > 1) { + $map .= ($spaces x $indent) . "\n"; + } $indent--; - $map.="\n"; } + my @bits=split("/", $item); + my $p=""; + $p.="/".shift(@bits) for 1..$indent; while ($depth > $indent) { $indent++; - $map.="
    \n"; + if ($indent > 1) { + $map .= ($spaces x $indent) . "
      \n"; + } + if ($depth > $indent) { + $p.="/".shift(@bits); + $addparent=$p; + $addparent=~s/^\///; + $map .= ($spaces x $indent) . "
    • \n"; + $map .= ($spaces x $indent) + .htmllink($params{page}, $params{destpage}, + "/".$common_prefix.$p, class => "mapparent", + noimageinline => 1) + ."\n"; + $openli=1; + } + else { + $openli=0; + } } - $map .= "
    • " - .IkiWiki::htmllink($params{page}, $params{destpage}, $item) - ."
    • \n"; + $map .= ($spaces x $indent) . "\n" if $openli; + $map .= ($spaces x $indent) . "
    • \n"; + $map .= ($spaces x $indent) + .htmllink($params{page}, $params{destpage}, + "/".$common_prefix."/".$item, + @linktext, + class => "mapitem", noimageinline => 1) + ."\n"; + $openli=1; + $parent=$item; } while ($indent > 0) { + $map .= ($spaces x $indent) . "
    • \n"; $indent--; - $map.="
    \n"; + $map .= ($spaces x $indent) . "
\n"; } + $map =~ s{\n *\n *
    \n}{\n}gs; + $map =~ s{}{}g; $map .= "\n"; return $map; -} # }}} +} 1