1 # git-gui options editor
2 # Copyright (C) 2006, 2007 Shawn Pearce
5 global default_config font_descs
6 global repo_config global_config
7 global repo_config_new global_config_new
9 foreach option $font_descs {
10 set name [lindex $option 0]
11 set font [lindex $option 1]
12 font configure $font \
13 -family $global_config_new(gui.$font^^family) \
14 -size $global_config_new(gui.$font^^size)
15 font configure ${font}bold \
16 -family $global_config_new(gui.$font^^family) \
17 -size $global_config_new(gui.$font^^size)
18 set global_config_new(gui.$name) [font configure $font]
19 unset global_config_new(gui.$font^^family)
20 unset global_config_new(gui.$font^^size)
23 foreach name [array names default_config] {
24 set value $global_config_new($name)
25 if {$value ne $global_config($name)} {
26 if {$value eq $default_config($name)} {
27 catch {git config --global --unset $name}
29 regsub -all "\[{}\]" $value {"} value
30 git config --global $name $value
32 set global_config($name) $value
33 if {$value eq $repo_config($name)} {
34 catch {git config --unset $name}
35 set repo_config($name) $value
40 foreach name [array names default_config] {
41 set value $repo_config_new($name)
42 if {$value ne $repo_config($name)} {
43 if {$value eq $global_config($name)} {
44 catch {git config --unset $name}
46 regsub -all "\[{}\]" $value {"} value
47 git config $name $value
49 set repo_config($name) $value
55 global appvers copyright oguilib
56 global tcl_patchLevel tk_patchLevel
60 wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
62 label $w.header -text "About [appname]" \
64 pack $w.header -side top -fill x
67 button $w.buttons.close -text {Close} \
69 -command [list destroy $w]
70 pack $w.buttons.close -side right
71 pack $w.buttons -side bottom -fill x -pady 10 -padx 10
74 -text "git-gui - a graphical user interface for Git.
81 pack $w.desc -side top -fill x -padx 5 -pady 5
84 append v "git-gui version $appvers\n"
85 append v "[git version]\n"
87 if {$tcl_patchLevel eq $tk_patchLevel} {
88 append v "Tcl/Tk version $tcl_patchLevel"
90 append v "Tcl version $tcl_patchLevel"
91 append v ", Tk version $tk_patchLevel"
95 append d "git exec dir: [gitexec]\n"
96 append d "git-gui lib: $oguilib"
105 pack $w.vers -side top -fill x -padx 5 -pady 5
114 pack $w.dirs -side top -fill x -padx 5 -pady 5
116 menu $w.ctxm -tearoff 0
117 $w.ctxm add command \
121 clipboard append -format STRING -type STRING -- \[$w.vers cget -text\]
124 bind $w <Visibility> "grab $w; focus $w.buttons.close"
125 bind $w <Key-Escape> "destroy $w"
126 bind $w <Key-Return> "destroy $w"
127 bind_button3 $w.vers "tk_popup $w.ctxm %X %Y; grab $w; focus $w"
128 wm title $w "About [appname]"
133 global repo_config global_config font_descs
134 global repo_config_new global_config_new
136 array unset repo_config_new
137 array unset global_config_new
138 foreach name [array names repo_config] {
139 set repo_config_new($name) $repo_config($name)
142 foreach name [array names repo_config] {
144 gui.diffcontext {continue}
146 set repo_config_new($name) $repo_config($name)
148 foreach name [array names global_config] {
149 set global_config_new($name) $global_config($name)
152 set w .options_editor
154 wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
156 label $w.header -text "Options" \
158 pack $w.header -side top -fill x
161 button $w.buttons.restore -text {Restore Defaults} \
163 -command do_restore_defaults
164 pack $w.buttons.restore -side left
165 button $w.buttons.save -text Save \
167 -command [list do_save_config $w]
168 pack $w.buttons.save -side right
169 button $w.buttons.cancel -text {Cancel} \
171 -command [list destroy $w]
172 pack $w.buttons.cancel -side right -padx 5
173 pack $w.buttons -side bottom -fill x -pady 10 -padx 10
175 labelframe $w.repo -text "[reponame] Repository"
176 labelframe $w.global -text {Global (All Repositories)}
177 pack $w.repo -side left -fill both -expand 1 -pady 5 -padx 5
178 pack $w.global -side right -fill both -expand 1 -pady 5 -padx 5
182 {t user.name {User Name}}
183 {t user.email {Email Address}}
185 {b merge.summary {Summarize Merge Commits}}
186 {i-1..5 merge.verbosity {Merge Verbosity}}
187 {b merge.diffstat {Show Diffstat After Merge}}
189 {b gui.trustmtime {Trust File Modification Timestamps}}
190 {b gui.pruneduringfetch {Prune Tracking Branches During Fetch}}
191 {i-0..99 gui.diffcontext {Number of Diff Context Lines}}
192 {t gui.newbranchtemplate {New Branch Name Template}}
194 set type [lindex $option 0]
195 set name [lindex $option 1]
196 set text [lindex $option 2]
198 foreach f {repo global} {
199 switch -glob -- $type {
201 checkbutton $w.$f.$optid -text $text \
202 -variable ${f}_config_new($name) \
205 pack $w.$f.$optid -side top -anchor w
208 regexp -- {-(\d+)\.\.(\d+)$} $type _junk min max
210 label $w.$f.$optid.l -text "$text:"
211 pack $w.$f.$optid.l -side left -anchor w -fill x
212 spinbox $w.$f.$optid.v \
213 -textvariable ${f}_config_new($name) \
217 -width [expr {1 + [string length $max]}]
218 bind $w.$f.$optid.v <FocusIn> {%W selection range 0 end}
219 pack $w.$f.$optid.v -side right -anchor e -padx 5
220 pack $w.$f.$optid -side top -anchor w -fill x
224 label $w.$f.$optid.l -text "$text:"
225 entry $w.$f.$optid.v \
229 -textvariable ${f}_config_new($name)
230 pack $w.$f.$optid.l -side left -anchor w
231 pack $w.$f.$optid.v -side left -anchor w \
234 pack $w.$f.$optid -side top -anchor w -fill x
240 set all_fonts [lsort [font families]]
241 foreach option $font_descs {
242 set name [lindex $option 0]
243 set font [lindex $option 1]
244 set text [lindex $option 2]
246 set global_config_new(gui.$font^^family) \
247 [font configure $font -family]
248 set global_config_new(gui.$font^^size) \
249 [font configure $font -size]
251 frame $w.global.$name
252 label $w.global.$name.l -text "$text:"
253 pack $w.global.$name.l -side left -anchor w -fill x
254 eval tk_optionMenu $w.global.$name.family \
255 global_config_new(gui.$font^^family) \
257 spinbox $w.global.$name.size \
258 -textvariable global_config_new(gui.$font^^size) \
259 -from 2 -to 80 -increment 1 \
261 bind $w.global.$name.size <FocusIn> {%W selection range 0 end}
262 pack $w.global.$name.size -side right -anchor e
263 pack $w.global.$name.family -side right -anchor e
264 pack $w.global.$name -side top -anchor w -fill x
267 bind $w <Visibility> "grab $w; focus $w.buttons.save"
268 bind $w <Key-Escape> "destroy $w"
269 bind $w <Key-Return> [list do_save_config $w]
270 wm title $w "[appname] ([reponame]): Options"
274 proc do_restore_defaults {} {
275 global font_descs default_config repo_config
276 global repo_config_new global_config_new
278 foreach name [array names default_config] {
279 set repo_config_new($name) $default_config($name)
280 set global_config_new($name) $default_config($name)
283 foreach option $font_descs {
284 set name [lindex $option 0]
285 set repo_config(gui.$name) $default_config(gui.$name)
289 foreach option $font_descs {
290 set name [lindex $option 0]
291 set font [lindex $option 1]
292 set global_config_new(gui.$font^^family) \
293 [font configure $font -family]
294 set global_config_new(gui.$font^^size) \
295 [font configure $font -size]
299 proc do_save_config {w} {
300 if {[catch {save_config} err]} {
301 error_popup "Failed to completely save options:\n\n$err"