case "$font" in
zealot)
cat <<END
-set mainfont {Helvetica 14}
-set textfont {Courier 14}
-set uifont {Helvetica 14 bold}
+set mainfont {{Nimbus Sans L} 12}
+set textfont {{Courier 10 Pitch} 12}
+set uifont {{Nimbus Sans L} 11 bold}
END
;;
*)
cat <<END
+set mainfont {sans 9}
+set textfont {monospace 9}
+set uifont {sans 9 bold}
END
;;
esac
set maxwidth 16
set cmitmode patch
set wrapcomment none
-set autoselect 1
+set autoselect 0
set autosellen 40
set showneartags 1
+set maxrefs 20
+set visiblerefs {"master"}
set hideremotes 0
set showlocalchanges 1
set datetimeformat {%Y-%m-%d %H:%M:%S}
set circlecolors {white blue gray blue blue}
set linkfgcolor blue
set circleoutlinecolor black
+END
+
+perl <$HOME/.gitk -ne '
+ next unless m{^set geometry\(};
+ s{^(set geometry\(state\)) .*}{$1 normal};
+ print;
+'
+
+cat <<END
set permviews {}
-set geometry(main) 750x957+846+32
-set geometry(state) normal
-set geometry(topwidth) 750
-set geometry(topheight) 210
-set geometry(pwsash0) "406 1"
-set geometry(pwsash1) "586 1"
-set geometry(botwidth) 574
-set geometry(botheight) 742
END