Mercurial > hg > mercurial-crew-with-dirclash
diff contrib/hgk @ 5393:c2ad1890fc53
hgk: add debug-config command to pass configuration options
author | Patrick Mezard <pmezard@gmail.com> |
---|---|
date | Fri, 05 Oct 2007 22:39:36 +0200 |
parents | 66d7aabf5b41 |
children | 0ad0e97345eb |
line wrap: on
line diff
--- a/contrib/hgk +++ b/contrib/hgk @@ -3720,6 +3720,19 @@ proc doquit {} { 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 datemode 0 set boldnames 0