Mercurial > hg
comparison contrib/hgk @ 24514:d01c767d8753
hgk: remove no longer needed debug-config command
author | Andrew Shadura <andrew@shadura.me> |
---|---|
date | Sat, 28 Mar 2015 21:24:57 +0100 |
parents | b5a0b2374eb6 |
children | c1fe7111b6bb |
comparison
equal
deleted
inserted
replaced
24513:b5a0b2374eb6 | 24514:d01c767d8753 |
---|---|
4049 destroy . | 4049 destroy . |
4050 } | 4050 } |
4051 | 4051 |
4052 proc getconfig {} { | 4052 proc getconfig {} { |
4053 global env | 4053 global env |
4054 | |
4055 set lines [exec $env(HG) debug-config] | |
4056 regsub -all "\r\n" $lines "\n" config | |
4057 set config {} | 4054 set config {} |
4058 foreach line [split $lines "\n"] { | 4055 |
4059 regsub "^(k|v)=" $line "" line | 4056 set lines [exec $env(HG) debugconfig] |
4060 lappend config $line | 4057 foreach line [split $lines \n] { |
4058 set line [string trimright $line \r] | |
4059 if {[string match hgk.* $line]} { | |
4060 regexp {(.*)=(.*)} $line - k v | |
4061 lappend config $k $v | |
4062 } | |
4061 } | 4063 } |
4062 return $config | 4064 return $config |
4063 } | 4065 } |
4064 | 4066 |
4065 # defaults... | 4067 # defaults... |
4119 set stopped 0 | 4121 set stopped 0 |
4120 set redisplaying 0 | 4122 set redisplaying 0 |
4121 set stuffsaved 0 | 4123 set stuffsaved 0 |
4122 set patchnum 0 | 4124 set patchnum 0 |
4123 | 4125 |
4126 set config(hgk.vdiff) "" | |
4124 array set config [getconfig] | 4127 array set config [getconfig] |
4125 set hgvdiff $config(vdiff) | 4128 set hgvdiff $config(hgk.vdiff) |
4126 setcoords | 4129 setcoords |
4127 makewindow | 4130 makewindow |
4128 readrefs | 4131 readrefs |
4129 set hgroot [exec $env(HG) root] | 4132 set hgroot [exec $env(HG) root] |
4130 wm title . "hgk $hgroot" | 4133 wm title . "hgk $hgroot" |