po: inject custom isselflink to fix selflink detection on translation pages

[git.ikiwiki.info.git] / IkiWiki / Plugin / linkmap.pm

diff --git a/IkiWiki/Plugin/linkmap.pm b/IkiWiki/Plugin/linkmap.pm
index 9540bd112f397cd5cd98e89eb54572737aefa839..28acbda32abdbb4a9abd022d96a9906b81e987b7 100644 (file)
--- a/IkiWiki/Plugin/linkmap.pm
+++ b/IkiWiki/Plugin/linkmap.pm
@@ -49,6 +49,7 @@ sub genmap ($) {
        my $mapnum=shift;
        return "" unless exists $maps{$mapnum};
        my %params=%{$maps{$mapnum}};
        my $mapnum=shift;
        return "" unless exists $maps{$mapnum};
        my %params=%{$maps{$mapnum}};

+       my $connected=IkiWiki::yesno($params{connected});

 
        # Get all the items to map.
        my %mapitems = map { $_ => urlto($_, $params{destpage}) }
 
        # Get all the items to map.
        my %mapitems = map { $_ => urlto($_, $params{destpage}) }


@@ -79,24 +80,38 @@ sub genmap ($) {
        print OUT "charset=\"utf-8\";\n";
        print OUT "ratio=compress;\nsize=\"".($params{width}+0).", ".($params{height}+0)."\";\n"
                if defined $params{width} and defined $params{height};
        print OUT "charset=\"utf-8\";\n";
        print OUT "ratio=compress;\nsize=\"".($params{width}+0).", ".($params{height}+0)."\";\n"
                if defined $params{width} and defined $params{height};

+       my %shown;
+       my $show=sub {
+               my $item=shift;
+               if (! $shown{$item}) {
+                       print OUT "\"$item\" [shape=box,href=\"$mapitems{$item}\"];\n";
+                       $shown{$item}=1;
+               }
+       };

        foreach my $item (keys %mapitems) {
        foreach my $item (keys %mapitems) {

-               print OUT "\"$item\" [shape=box,href=\"$mapitems{$item}\"];\n";
+               $show->($item) unless $connected;

                foreach my $link (map { bestlink($item, $_) } @{$links{$item}}) {
                foreach my $link (map { bestlink($item, $_) } @{$links{$item}}) {

-                       print OUT "\"$item\" -> \"$link\";\n"
-                               if $mapitems{$link};
+                       next unless length $link and $mapitems{$link};
+                       foreach my $endpoint ($item, $link) {
+                               $show->($endpoint);
+                       }
+                       print OUT "\"$item\" -> \"$link\";\n";

                }
        }
        print OUT "}\n";
                }
        }
        print OUT "}\n";

-       close OUT;
+       close OUT || error gettext("failed to run dot");

 
        local $/=undef;
        my $ret="<object data=\"".urlto($dest, $params{destpage}).
               "\" type=\"image/png\" usemap=\"#linkmap$mapnum\">\n".
                <IN>.
                "</object>";
 
        local $/=undef;
        my $ret="<object data=\"".urlto($dest, $params{destpage}).
               "\" type=\"image/png\" usemap=\"#linkmap$mapnum\">\n".
                <IN>.
                "</object>";

-       close IN;
+       close IN || error gettext("failed to run dot");

        
        waitpid $pid, 0;
        
        waitpid $pid, 0;

+       if ($?) {
+               error gettext("failed to run dot");
+       }

        $SIG{PIPE}="DEFAULT";
        error gettext("failed to run dot") if $sigpipe;
 
        $SIG{PIPE}="DEFAULT";
        error gettext("failed to run dot") if $sigpipe;