Utils: Revamp documentation overview and add some missing docs

[senf.git] / doclib / dot-munge.pl

diff --git a/doclib/dot-munge.pl b/doclib/dot-munge.pl
index d11a556..7cc72ca 100755 (executable)
--- 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 {