doclib/dot-munge.pl

   1 #!/usr/bin/perl -i -n
   2
   3 # Reduce font size
   4 s/fontsize=10/fontsize=8/g;
   5 ##s/fontname="FreeSans.ttf"/fontname="Bitstream Vera Sans Mono"/g;
   6 s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
   7 ##s/fontname="FreeSans.ttf"/fontname="Lucida Sans Typewriter"/g;
   8
   9 # Wrap long labels (templates)
  10 if (/label=\"([^"]*)\"/) {                                  #"])){ # To make emacs happy ...
  11     $pre=$`;
  12     $post=$';                                               #';    # To make emacs happy ...
  13     $label=$1;
  14
  15     # Break at each komma
  16     $label=~s/,/,\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
  17
  18     # If more than one '<' is in the label, break after each '<'
  19     if (($label=~tr/</</)>1) {
  20         $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
  21     }
  22
  23     # If at least one break is in there ...
  24     if ($label=~/\\r/) {
  25         # Make last line flush right
  26         $label.="\\r";
  27         # and first line flush left
  28         $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
  29     }
  30     print "${pre}label=\"${label}\"${post}";
  31 } else {
  32     print;
  33 }