gitk: copy existing geometry when substituting

[ian-dotfiles.git] / templates / gitk.in

diff --git a/templates/gitk.in b/templates/gitk.in
index 2719a63911300a8d9194771d3d8af7c2f1ffac9b..3d11b5b822da6d8265b961f005a277b4c8e84c27 100755 (executable)
--- a/templates/gitk.in
+++ b/templates/gitk.in
@@ -12,6 +12,9 @@ END
        ;;
 *)
         cat <<END
+set mainfont {sans 9}
+set textfont {monospace 9}
+set uifont {sans 9 bold}
 END
         ;;
 esac
@@ -23,7 +26,7 @@ set maxgraphpct 50
 set maxwidth 16
 set cmitmode patch
 set wrapcomment none
-set autoselect 1
+set autoselect 0
 set autosellen 40
 set showneartags 1
 set maxrefs 20
@@ -67,13 +70,14 @@ set indexcirclecolor green
 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