X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=doclib%2Fdot-munge.pl;h=7cc72ca4f473bddcb4e548f6fde91db568639091;hb=ae06fe86f16fdabb7ffb219d255444d2eb4f4f79;hp=d11a5566863efac67138358ea286cee12e0fd1f5;hpb=ae4bebbc67cd665e6eb084db22f019e784bad808;p=senf.git

diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl
index d11a556..7cc72ca 100755
--- a/doclib/dot-munge.pl
+++ b/doclib/dot-munge.pl
@@ -2,11 +2,14 @@
 
 # Reduce font size
 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;
 
 # Wrap long labels (templates)
-if (/label=\"([^"]*)\"/) {              		    #"])){ # To make emacs happy ...
+if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
     $pre=$`; 
-    $post=$'; 			                            #'     # To make emacs happy ...
+    $post=$';                                               #';    # To make emacs happy ...
     $label=$1;
 
     # Break at each komma
@@ -14,15 +17,15 @@ if (/label=\"([^"]*)\"/) {              		    #"])){ # To make emacs happy ...
 
     # If more than one '<' is in the label, break after each '<'
     if (($label=~tr/</</)>1) { 
-	$label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
+        $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
     }
 
     # If at least one break is in there ...
     if ($label=~/\\r/) {
-	# Make last line flush right
-	$label.="\\r";
-	# and first line flush left
-	$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 {