X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/a0f55abe072d19b623c65e74f2ede905d4c3f997..aab415481de28a7ca3baa7e7d5ba168e962f61e0:/IkiWiki/Plugin/map.pm?ds=inline
diff --git a/IkiWiki/Plugin/map.pm b/IkiWiki/Plugin/map.pm
index 65a6ed552..af08005b8 100644
--- a/IkiWiki/Plugin/map.pm
+++ b/IkiWiki/Plugin/map.pm
@@ -25,8 +25,13 @@ sub preprocess (@) { #{{{
my %mapitems;
foreach my $page (keys %pagesources) {
if (pagespec_match($page, $params{pages}, location => $params{page})) {
- $mapitems{$page}=1;
-
+ if (exists $params{show} &&
+ exists $pagestate{$page}{meta}{$params{show}}) {
+ $mapitems{$page}=$pagestate{$page}{meta}{$params{show}};
+ }
+ else {
+ $mapitems{$page}=$page;
+ }
# Check for a common prefix.
if (! defined $common_prefix) {
$common_prefix=$page;
@@ -37,6 +42,9 @@ sub preprocess (@) { #{{{
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;
}
@@ -61,20 +69,23 @@ sub preprocess (@) { #{{{
my $parent="";
my $indent=0;
my $openli=0;
+ my $dummy=0;
my $map = "
\n
\n";
- foreach my $item (sort keys %mapitems) {
+ foreach my $item (sort { $mapitems{$a} cmp $mapitems{$b} } keys %mapitems) {
$item=~s/^\Q$common_prefix\E\///
if defined $common_prefix && length $common_prefix;
my $depth = ($item =~ tr/\//\//) + 1;
my $baseitem=IkiWiki::dirname($item);
while (length $parent && length $baseitem && $baseitem !~ /^\Q$parent\E(\/|$)/) {
$parent=IkiWiki::dirname($parent);
+ last if !$dummy && length $parent && $baseitem =~ /^\Q$parent\E(\/|$)/;
$indent--;
$map .= "\n";
if ($indent > 0) {
$map .= "
\n";
}
}
+ $dummy=0;
while ($depth < $indent) {
$indent--;
$map .= "\n";
@@ -91,9 +102,12 @@ sub preprocess (@) { #{{{
$map .= "
\n";
}
if ($depth > $indent) {
+ $dummy=1;
$p.="/".shift(@bits);
$map .= "- "
- .htmllink($params{page}, $params{destpage}, $p, class => "mapparent")
+ .htmllink($params{page}, $params{destpage},
+ $p, class => "mapparent",
+ noimageinline => 1)
."\n";
$openli=1;
}
@@ -104,7 +118,9 @@ sub preprocess (@) { #{{{
$map .= "
\n" if $openli;
$map .= "- "
.htmllink($params{page}, $params{destpage},
- "/".$common_prefix."/".$item, class => "mapitem")
+ "/".$common_prefix."/".$item,
+ linktext => $mapitems{$item},
+ class => "mapitem", noimageinline => 1)
."\n";
$openli=1;
$parent=$item;