comparison contrib/hgk @ 24514:d01c767d8753

hgk: remove no longer needed debug-config command

24513:b5a0b2374eb6

    destroy .
}

proc getconfig {} {
    global env

    set lines [exec $env(HG) debug-config]
    regsub -all "\r\n" $lines "\n" config
    set config {}
    foreach line [split $lines "\n"] {
	regsub "^(k|v)=" $line "" line
	lappend config $line
    }
    return $config
}

# defaults...

set stopped 0
set redisplaying 0
set stuffsaved 0
set patchnum 0

array set config [getconfig]
set hgvdiff $config(vdiff)
setcoords
makewindow
readrefs
set hgroot [exec $env(HG) root]
wm title . "hgk $hgroot"

24514:d01c767d8753

    destroy .
}

proc getconfig {} {
    global env
    set config {}

    set lines [exec $env(HG) debugconfig]
    foreach line [split $lines \n] {
	set line [string trimright $line \r]
	if {[string match hgk.* $line]} {
	    regexp {(.*)=(.*)} $line - k v
	    lappend config $k $v
	}
    }
    return $config
}

# defaults...

set stopped 0
set redisplaying 0
set stuffsaved 0
set patchnum 0

set config(hgk.vdiff) ""
array set config [getconfig]
set hgvdiff $config(hgk.vdiff)
setcoords
makewindow
readrefs
set hgroot [exec $env(HG) root]
wm title . "hgk $hgroot"