From 90fbc032df2facca1132d39407652ec538fc82c1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 13 Sep 2018 17:47:57 +0100
Subject: [PATCH] gitk: copy existing geometry when substituting

---
 templates/gitk.in | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/templates/gitk.in b/templates/gitk.in
index d821e16..3d11b5b 100755
--- a/templates/gitk.in
+++ b/templates/gitk.in
@@ -70,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
-- 
2.30.2