;;
*)
cat <<END
+set mainfont {sans 9}
+set textfont {monospace 9}
+set uifont {sans 9 bold}
END
;;
esac
set circlecolors {white blue gray blue blue}
set linkfgcolor blue
set circleoutlinecolor black
-set geometry(main) 1245x1535+0+0
-set geometry(state) normal
-set geometry(topwidth) 1245
-set geometry(topheight) 982
-set geometry(pwsash0) "833 1"
-set geometry(pwsash1) "1038 1"
-set geometry(botwidth) 900
-set geometry(botheight) 548
+END
+
+perl <$HOME/.gitk -ne '
+ next unless m{^set geometry\(};
+ s{^(set geometry\(state\)) .*}{$1 normal};
+ print;
+'
+
+cat <<END
set permviews {}
END