X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/0a8fc6ddf55697a1ed1f8b277265b430ffe5350c..2fd2646e6621e07d8cfb04dbff20236c86f38c63:/IkiWiki/Plugin/linkmap.pm

diff --git a/IkiWiki/Plugin/linkmap.pm b/IkiWiki/Plugin/linkmap.pm
index 2c92784c2..2405cae7f 100644
--- a/IkiWiki/Plugin/linkmap.pm
+++ b/IkiWiki/Plugin/linkmap.pm
@@ -18,6 +18,7 @@ my %maps;
 
 sub preprocess (@) { #{{{
 	my %params=@_;
+
 	$params{pages}="*" unless defined $params{pages};
 	
 	# Needs to update whenever a page is added or removed, so
@@ -68,7 +69,7 @@ sub genmap ($) { #{{{
 	my $pid;
 	while (1) {
 		eval {
-			$pid=open2(*IN, *OUT, "dot /dev/stdin -Tpng -o '$IkiWiki::config{destdir}/$params{page}.png' -Tcmapx");
+			$pid=open2(*IN, *OUT, "dot -Tpng -o '$IkiWiki::config{destdir}/$params{page}.png' -Tcmapx");
 		};
 		last unless $@;
 		$tries--;
@@ -83,6 +84,8 @@ sub genmap ($) { #{{{
 	print OUT "digraph linkmap$mapnum {\n";
 	print OUT "concentrate=true;\n";
 	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};
 	foreach my $item (keys %mapitems) {
 		print OUT "\"$item\" [shape=box,href=\"$mapitems{$item}\"];\n";
 		foreach my $link (map { IkiWiki::bestlink($item, $_) } @{$IkiWiki::links{$item}}) {