1 # git-gui options editor
2 # Copyright (C) 2006, 2007 Shawn Pearce
4 proc config_check_encodings
{} {
5 global repo_config_new global_config_new
7 set enc
$global_config_new(gui.
encoding)
9 set global_config_new
(gui.
encoding) [encoding system
]
10 } elseif
{[tcl_encoding
$enc] eq
{}} {
11 error_popup
[mc
"Invalid global encoding '%s'" $enc]
15 set enc
$repo_config_new(gui.
encoding)
17 set repo_config_new
(gui.
encoding) [encoding system
]
18 } elseif
{[tcl_encoding
$enc] eq
{}} {
19 error_popup
[mc
"Invalid repo encoding '%s'" $enc]
27 global default_config font_descs
28 global repo_config global_config system_config
29 global repo_config_new global_config_new
32 foreach option $font_descs {
33 set name
[lindex $option 0]
34 set font [lindex $option 1]
35 font configure
$font \
36 -family $global_config_new(gui.
$font^^family
) \
37 -size $global_config_new(gui.
$font^^size
)
38 font configure
${font}bold
\
39 -family $global_config_new(gui.
$font^^family
) \
40 -size $global_config_new(gui.
$font^^size
)
41 font configure
${font}italic
\
42 -family $global_config_new(gui.
$font^^family
) \
43 -size $global_config_new(gui.
$font^^size
)
44 set global_config_new
(gui.
$name) [font configure
$font]
45 unset global_config_new
(gui.
$font^^family
)
46 unset global_config_new
(gui.
$font^^size
)
49 foreach name
[array names default_config
] {
50 set value
$global_config_new($name)
51 if {$value ne
$global_config($name)} {
52 if {$value eq
$system_config($name)} {
53 catch {git config
--global --unset $name}
55 regsub -all "\[{}\]" $value {"} value
56 git config --global $name $value
58 set global_config($name) $value
59 if {$value eq $repo_config($name)} {
60 catch {git config --unset $name}
61 set repo_config($name) $value
66 foreach name [array names default_config] {
67 set value $repo_config_new($name)
68 if {$value ne $repo_config($name)} {
69 if {$value eq $global_config($name)} {
70 catch {git config --unset $name}
72 regsub -all "\[{}\]" $value {"} value
73 git config
$name $value
75 set repo_config
($name) $value
79 if {[info exists repo_config
(gui.spellingdictionary
)]} {
80 set value
$repo_config(gui.spellingdictionary
)
81 if {$value eq
{none
}} {
82 if {[info exists ui_comm_spell
]} {
85 } elseif
{[info exists ui_comm_spell
]} {
86 $ui_comm_spell lang
$value
92 global repo_config global_config font_descs
93 global repo_config_new global_config_new
94 global ui_comm_spell use_ttk NS
96 array unset repo_config_new
97 array unset global_config_new
98 foreach name
[array names repo_config
] {
99 set repo_config_new
($name) $repo_config($name)
102 foreach name
[array names repo_config
] {
104 gui.diffcontext
{continue}
106 set repo_config_new
($name) $repo_config($name)
108 foreach name
[array names global_config
] {
109 set global_config_new
($name) $global_config($name)
112 set w .options_editor
115 wm transient
$w [winfo parent
$w]
116 wm geometry
$w "+[winfo rootx .]+[winfo rooty .]"
118 ${NS
}::frame $w.buttons
119 ${NS
}::button $w.buttons.restore
-text [mc
"Restore Defaults"] \
121 -command do_restore_defaults
122 pack $w.buttons.restore
-side left
123 ${NS
}::button $w.buttons.save
-text [mc Save
] \
125 -command [list do_save_config
$w]
126 pack $w.buttons.save
-side right
127 ${NS
}::button $w.buttons.cancel
-text [mc
"Cancel"] \
129 -command [list destroy $w]
130 pack $w.buttons.cancel
-side right
-padx 5
131 pack $w.buttons
-side bottom
-fill x
-pady 10 -padx 10
133 ${NS
}::labelframe $w.repo
-text [mc
"%s Repository" [reponame
]]
134 ${NS
}::labelframe $w.
global -text [mc
"Global (All Repositories)"]
135 pack $w.repo
-side left
-fill both
-expand 1 -pady 5 -padx 5
136 pack $w.
global -side right
-fill both
-expand 1 -pady 5 -padx 5
140 {t user.name
{mc
"User Name"}}
141 {t user.email
{mc
"Email Address"}}
143 {b merge.summary
{mc
"Summarize Merge Commits"}}
144 {i-1.
.5 merge.verbosity
{mc
"Merge Verbosity"}}
145 {b merge.diffstat
{mc
"Show Diffstat After Merge"}}
146 {t merge.tool
{mc
"Use Merge Tool"}}
148 {b gui.trustmtime
{mc
"Trust File Modification Timestamps"}}
149 {b gui.pruneduringfetch
{mc
"Prune Tracking Branches During Fetch"}}
150 {b gui.matchtrackingbranch
{mc
"Match Tracking Branches"}}
151 {b gui.textconv
{mc
"Use Textconv For Diffs and Blames"}}
152 {b gui.fastcopyblame
{mc
"Blame Copy Only On Changed Files"}}
153 {i-20.
.200 gui.copyblamethreshold
{mc
"Minimum Letters To Blame Copy On"}}
154 {i-0.
.300 gui.blamehistoryctx
{mc
"Blame History Context Radius (days)"}}
155 {i-1.
.99 gui.diffcontext
{mc
"Number of Diff Context Lines"}}
156 {i-0.
.99 gui.commitmsgwidth
{mc
"Commit Message Text Width"}}
157 {t gui.newbranchtemplate
{mc
"New Branch Name Template"}}
158 {c gui.
encoding {mc
"Default File Contents Encoding"}}
159 {s gui.stageuntracked
{mc
"Staging of untracked files"} {list "yes" "no" "ask"}}
161 set type
[lindex $option 0]
162 set name
[lindex $option 1]
163 set text [eval [lindex $option 2]]
165 foreach f
{repo
global} {
166 switch -glob -- $type {
168 ${NS
}::checkbutton $w.
$f.
$optid -text $text \
169 -variable ${f
}_config_new
($name) \
172 pack $w.
$f.
$optid -side top
-anchor w
175 regexp -- {-(\d
+)\.
\.
(\d
+)$} $type _junk min max
176 ${NS
}::frame $w.
$f.
$optid
177 ${NS
}::label $w.
$f.
$optid.l
-text "$text:"
178 pack $w.
$f.
$optid.l
-side left
-anchor w
-fill x
179 tspinbox
$w.
$f.
$optid.v
\
180 -textvariable ${f
}_config_new
($name) \
184 -width [expr {1 + [string length
$max]}]
185 bind $w.
$f.
$optid.v
<FocusIn
> {%W
selection range
0 end
}
186 pack $w.
$f.
$optid.v
-side right
-anchor e
-padx 5
187 pack $w.
$f.
$optid -side top
-anchor w
-fill x
191 ${NS
}::frame $w.
$f.
$optid
192 ${NS
}::label $w.
$f.
$optid.l
-text "$text:"
193 ${NS
}::entry $w.
$f.
$optid.v
\
195 -textvariable ${f
}_config_new
($name)
196 pack $w.
$f.
$optid.l
-side left
-anchor w
197 pack $w.
$f.
$optid.v
-side left
-anchor w
\
202 build_encoding_menu
$w.
$f.
$optid.m
\
203 [list set ${f
}_config_new
($name)] 1
204 ${NS
}::button $w.
$f.
$optid.b
\
205 -text [mc
"Change"] \
206 -command [list popup_btn_menu
\
207 $w.
$f.
$optid.m
$w.
$f.
$optid.b
]
208 pack $w.
$f.
$optid.b
-side left
-anchor w
210 pack $w.
$f.
$optid -side top
-anchor w
-fill x
213 set opts
[eval [lindex $option 3]]
214 ${NS
}::frame $w.
$f.
$optid
215 ${NS
}::label $w.
$f.
$optid.l
-text "$text:"
217 ttk
::combobox $w.
$f.
$optid.v
\
218 -textvariable ${f
}_config_new
($name) \
219 -values $opts -state readonly
221 eval tk_optionMenu $w.
$f.
$optid.v
\
222 ${f
}_config_new
($name) \
225 pack $w.
$f.
$optid.l
-side left
-anchor w
-fill x
226 pack $w.
$f.
$optid.v
-side right
-anchor e
-padx 5
227 pack $w.
$f.
$optid -side top
-anchor w
-fill x
233 set all_dicts
[linsert \
234 [spellcheck
::available_langs] \
238 foreach f
{repo
global} {
239 if {![info exists
${f
}_config_new
(gui.spellingdictionary
)]} {
240 if {[info exists ui_comm_spell
]} {
241 set value
[$ui_comm_spell lang
]
245 set ${f
}_config_new
(gui.spellingdictionary
) $value
248 ${NS
}::frame $w.
$f.
$optid
249 ${NS
}::label $w.
$f.
$optid.l
-text [mc
"Spelling Dictionary:"]
251 ttk
::combobox $w.
$f.
$optid.v
\
252 -textvariable ${f
}_config_new
(gui.spellingdictionary
) \
253 -values $all_dicts -state readonly
255 eval tk_optionMenu $w.
$f.
$optid.v
\
256 ${f
}_config_new
(gui.spellingdictionary
) \
259 pack $w.
$f.
$optid.l
-side left
-anchor w
-fill x
260 pack $w.
$f.
$optid.v
-side right
-anchor e
-padx 5
261 pack $w.
$f.
$optid -side top
-anchor w
-fill x
265 set all_fonts
[lsort [font families
]]
266 foreach option $font_descs {
267 set name
[lindex $option 0]
268 set font [lindex $option 1]
269 set text [eval [lindex $option 2]]
271 set global_config_new
(gui.
$font^^family
) \
272 [font configure
$font -family]
273 set global_config_new
(gui.
$font^^size
) \
274 [font configure
$font -size]
276 ${NS
}::frame $w.
global.
$name
277 ${NS
}::label $w.
global.
$name.l
-text "$text:"
278 ${NS
}::button $w.
global.
$name.b
\
279 -text [mc
"Change Font"] \
283 [mc
"Choose %s" $text] \
284 global_config_new
(gui.
$font^^family
) \
285 global_config_new
(gui.
$font^^size
) \
287 ${NS
}::label $w.
global.
$name.f
-textvariable global_config_new
(gui.
$font^^family
)
288 ${NS
}::label $w.
global.
$name.s
-textvariable global_config_new
(gui.
$font^^size
)
289 ${NS
}::label $w.
global.
$name.pt
-text [mc
"pt."]
290 pack $w.
global.
$name.l
-side left
-anchor w
291 pack $w.
global.
$name.b
-side right
-anchor e
292 pack $w.
global.
$name.pt
-side right
-anchor w
293 pack $w.
global.
$name.s
-side right
-anchor w
294 pack $w.
global.
$name.f
-side right
-anchor w
295 pack $w.
global.
$name -side top
-anchor w
-fill x
298 bind $w <Visibility
> "grab $w; focus $w.buttons.save"
299 bind $w <Key-Escape
> "destroy $w"
300 bind $w <Key-Return
> [list do_save_config
$w]
303 set t
[mc
"Preferences"]
307 wm title
$w "[appname] ([reponame]): $t"
312 proc do_restore_defaults
{} {
313 global font_descs default_config repo_config system_config
314 global repo_config_new global_config_new
316 foreach name
[array names default_config
] {
317 set repo_config_new
($name) $system_config($name)
318 set global_config_new
($name) $system_config($name)
321 foreach option $font_descs {
322 set name
[lindex $option 0]
323 set repo_config
(gui.
$name) $system_config(gui.
$name)
327 foreach option $font_descs {
328 set name
[lindex $option 0]
329 set font [lindex $option 1]
330 set global_config_new
(gui.
$font^^family
) \
331 [font configure
$font -family]
332 set global_config_new
(gui.
$font^^size
) \
333 [font configure
$font -size]
337 proc do_save_config
{w
} {
338 if {![config_check_encodings
]} return
339 if {[catch {save_config
} err
]} {
340 error_popup
[strcat
[mc
"Failed to completely save options:"] "\n\n$err"]