X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=doclib%2Fdot-munge.pl;h=263b44e24a328803aad6997ba4e16ba9e97104d9;hb=3863d46dd898b7bc35ea8c6ccd8563b18762a6b6;hp=dcebfc8bb6c01a0f37057421465924e57fd36f59;hpb=cb8e93678c717d109d151e0944b5c0f78581f6cd;p=senf.git

diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl
index dcebfc8..263b44e 100755
--- a/doclib/dot-munge.pl
+++ b/doclib/dot-munge.pl
@@ -1,19 +1,17 @@
 #!/usr/bin/perl -i -n
 
-# Reduce font size
+# Reduce fontsize and change font
 s/fontsize=10/fontsize=8/g; 
-s/fontname="FreeSans.ttf"/fontname="Bitstream Vera Sans Mono"/g;
-##s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
-##s/fontname="FreeSans.ttf"/fontname="Lucida Sans Typewriter"/g;
+s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
 
-# Wrap long labels (templates)
-if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
+# Wrap long labels (templates and pathnames)
+if (/label=\"([^"]{48,})\"/) {                              #"])){ # To make emacs happy ...
     $pre=$`; 
     $post=$';                                               #';    # To make emacs happy ...
     $label=$1;
 
-    # Break at each komma
-    $label=~s/,/,\\r\\ \\ \\ \\ \\ \\ \\ \\ /g; 
+    # Break at each komma or /
+    $label=~s{[,/]}{$&\\r\\ \\ \\ \\ \\ \\ \\ \\ }g; 
 
     # If more than one '<' is in the label, break after each '<'
     if (($label=~tr/</</)>1) { 
@@ -22,10 +20,17 @@ if (/label=\"([^"]*)\"/) {                                  #"])){ # To make ema
 
     # If at least one break is in there ...
     if ($label=~/\\r/) {
+    # If it's a pathname, make all but the last line flush left
+    # Otherwise only make first line flush left
+    if ($label=~m{/}) {
+        $label=~s/\\r(\\ )*/\\ \\ \\ \\ \\ \\ \\ \\ \\l/g;
+        # Re-add blanks before last line
+        $label=~s/^.*\\l/$&\\ \\ \\ \\ \\ \\ \\ \\ /;
+    } else {
+        $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
+    }
         # Make last line flush right
         $label.="\\r";
-        # and first line flush left
-        $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
     }
     print "${pre}label=\"${label}\"${post}";
 } else {