#!/usr/bin/perl -i -n
# Reduce fontsize and change font
-s/fontsize=10/fontsize=8/g;
+s/fontsize=10/fontsize=8/g;
s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
# Wrap long labels (templates and pathnames)
-if (/label=\"([^"]{48,})\"/) { #"])){ # To make emacs happy ...
- $pre=$`;
+if (/label=\"([^"]{24,})\"/) { #"])){ # To make emacs happy ...
+ $pre=$`;
$post=$'; #'; # To make emacs happy ...
$label=$1;
# Break at each komma or /
- $label=~s{[,/]}{$&\\r\\ \\ \\ \\ \\ \\ \\ \\ }g;
+ $label=~s{[,/]}{$&\\r\\ \\ \\ \\ \\ \\ \\ \\ }g;
# If more than one '<' is in the label, break after each '<'
- if (($label=~tr/</</)>1) {
+ if (($label=~tr/</</)>1) {
$label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
}
$label.="\\r";
}
print "${pre}label=\"${label}\"${post}";
-} else {
+} else {
print;
}