[PATCH 05 of 11] hgk: store settings in ~/.hgkrc
Markus F.X.J. Oberhumer
markus at oberhumer.com
Mon Jun 25 12:50:42 UTC 2007
# HG changeset patch
# User Markus F.X.J. Oberhumer <markus at oberhumer.com>
# Date 1182775580 -7200
# Node ID b8ae71e5e6bb46709df839d7e5f73d03902cea18
# Parent 5812aebfd29e3774778ff5e3e2d6480d7b73350d
hgk: store settings in ~/.hgkrc.
hgk and the latest gitk have diverged so much that we really need
to store our settings in a different file.
diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -554,7 +554,7 @@ proc savestuff {w} {
if {$stuffsaved} return
if {![winfo viewable .]} return
catch {
- set f [open "~/.gitk-new" w]
+ set f [open "~/.hgkrc-new" w]
puts $f [list set mainfont $mainfont]
puts $f [list set textfont $textfont]
puts $f [list set findmergefiles $findmergefiles]
@@ -574,7 +574,7 @@ proc savestuff {w} {
/ [font measure [$cflist cget -font] "0"]}]
puts $f "set geometry(cflistw) $wid"
close $f
- file rename -force "~/.gitk-new" "~/.gitk"
+ file rename -force "~/.hgkrc-new" "~/.hgkrc"
}
set stuffsaved 1
}
@@ -3651,7 +3651,7 @@ set maxwidth 16
set colors {green red blue magenta darkgrey brown orange}
-catch {source ~/.gitk}
+catch {source ~/.hgkrc}
set namefont $mainfont
if {$boldnames} {
More information about the Mercurial-devel
mailing list