Merge branch 'cr/reset'
[git] / git-gui / lib / option.tcl
1 # git-gui options editor
2 # Copyright (C) 2006, 2007 Shawn Pearce
3
4 proc save_config {} {
5         global default_config font_descs
6         global repo_config global_config
7         global repo_config_new global_config_new
8
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                 font configure ${font}italic \
19                         -family $global_config_new(gui.$font^^family) \
20                         -size $global_config_new(gui.$font^^size)
21                 set global_config_new(gui.$name) [font configure $font]
22                 unset global_config_new(gui.$font^^family)
23                 unset global_config_new(gui.$font^^size)
24         }
25
26         foreach name [array names default_config] {
27                 set value $global_config_new($name)
28                 if {$value ne $global_config($name)} {
29                         if {$value eq $default_config($name)} {
30                                 catch {git config --global --unset $name}
31                         } else {
32                                 regsub -all "\[{}\]" $value {"} value
33                                 git config --global $name $value
34                         }
35                         set global_config($name) $value
36                         if {$value eq $repo_config($name)} {
37                                 catch {git config --unset $name}
38                                 set repo_config($name) $value
39                         }
40                 }
41         }
42
43         foreach name [array names default_config] {
44                 set value $repo_config_new($name)
45                 if {$value ne $repo_config($name)} {
46                         if {$value eq $global_config($name)} {
47                                 catch {git config --unset $name}
48                         } else {
49                                 regsub -all "\[{}\]" $value {"} value
50                                 git config $name $value
51                         }
52                         set repo_config($name) $value
53                 }
54         }
55 }
56
57 proc do_about {} {
58         global appvers copyright oguilib
59         global tcl_patchLevel tk_patchLevel
60
61         set w .about_dialog
62         toplevel $w
63         wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
64
65         label $w.header -text "About [appname]" \
66                 -font font_uibold
67         pack $w.header -side top -fill x
68
69         frame $w.buttons
70         button $w.buttons.close -text {Close} \
71                 -default active \
72                 -command [list destroy $w]
73         pack $w.buttons.close -side right
74         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
75
76         label $w.desc \
77                 -text "git-gui - a graphical user interface for Git.
78 $copyright" \
79                 -padx 5 -pady 5 \
80                 -justify left \
81                 -anchor w \
82                 -borderwidth 1 \
83                 -relief solid
84         pack $w.desc -side top -fill x -padx 5 -pady 5
85
86         set v {}
87         append v "git-gui version $appvers\n"
88         append v "[git version]\n"
89         append v "\n"
90         if {$tcl_patchLevel eq $tk_patchLevel} {
91                 append v "Tcl/Tk version $tcl_patchLevel"
92         } else {
93                 append v "Tcl version $tcl_patchLevel"
94                 append v ", Tk version $tk_patchLevel"
95         }
96
97         set d {}
98         append d "git wrapper: $::_git\n"
99         append d "git exec dir: [gitexec]\n"
100         append d "git-gui lib: $oguilib"
101
102         label $w.vers \
103                 -text $v \
104                 -padx 5 -pady 5 \
105                 -justify left \
106                 -anchor w \
107                 -borderwidth 1 \
108                 -relief solid
109         pack $w.vers -side top -fill x -padx 5 -pady 5
110
111         label $w.dirs \
112                 -text $d \
113                 -padx 5 -pady 5 \
114                 -justify left \
115                 -anchor w \
116                 -borderwidth 1 \
117                 -relief solid
118         pack $w.dirs -side top -fill x -padx 5 -pady 5
119
120         menu $w.ctxm -tearoff 0
121         $w.ctxm add command \
122                 -label {Copy} \
123                 -command "
124                 clipboard clear
125                 clipboard append -format STRING -type STRING -- \[$w.vers cget -text\]
126         "
127
128         bind $w <Visibility> "grab $w; focus $w.buttons.close"
129         bind $w <Key-Escape> "destroy $w"
130         bind $w <Key-Return> "destroy $w"
131         bind_button3 $w.vers "tk_popup $w.ctxm %X %Y; grab $w; focus $w"
132         wm title $w "About [appname]"
133         tkwait window $w
134 }
135
136 proc do_options {} {
137         global repo_config global_config font_descs
138         global repo_config_new global_config_new
139
140         array unset repo_config_new
141         array unset global_config_new
142         foreach name [array names repo_config] {
143                 set repo_config_new($name) $repo_config($name)
144         }
145         load_config 1
146         foreach name [array names repo_config] {
147                 switch -- $name {
148                 gui.diffcontext {continue}
149                 }
150                 set repo_config_new($name) $repo_config($name)
151         }
152         foreach name [array names global_config] {
153                 set global_config_new($name) $global_config($name)
154         }
155
156         set w .options_editor
157         toplevel $w
158         wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
159
160         label $w.header -text "Options" \
161                 -font font_uibold
162         pack $w.header -side top -fill x
163
164         frame $w.buttons
165         button $w.buttons.restore -text {Restore Defaults} \
166                 -default normal \
167                 -command do_restore_defaults
168         pack $w.buttons.restore -side left
169         button $w.buttons.save -text Save \
170                 -default active \
171                 -command [list do_save_config $w]
172         pack $w.buttons.save -side right
173         button $w.buttons.cancel -text {Cancel} \
174                 -default normal \
175                 -command [list destroy $w]
176         pack $w.buttons.cancel -side right -padx 5
177         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
178
179         labelframe $w.repo -text "[reponame] Repository"
180         labelframe $w.global -text {Global (All Repositories)}
181         pack $w.repo -side left -fill both -expand 1 -pady 5 -padx 5
182         pack $w.global -side right -fill both -expand 1 -pady 5 -padx 5
183
184         set optid 0
185         foreach option {
186                 {t user.name {User Name}}
187                 {t user.email {Email Address}}
188
189                 {b merge.summary {Summarize Merge Commits}}
190                 {i-1..5 merge.verbosity {Merge Verbosity}}
191                 {b merge.diffstat {Show Diffstat After Merge}}
192
193                 {b gui.trustmtime  {Trust File Modification Timestamps}}
194                 {b gui.pruneduringfetch {Prune Tracking Branches During Fetch}}
195                 {b gui.matchtrackingbranch {Match Tracking Branches}}
196                 {i-0..99 gui.diffcontext {Number of Diff Context Lines}}
197                 {t gui.newbranchtemplate {New Branch Name Template}}
198                 } {
199                 set type [lindex $option 0]
200                 set name [lindex $option 1]
201                 set text [lindex $option 2]
202                 incr optid
203                 foreach f {repo global} {
204                         switch -glob -- $type {
205                         b {
206                                 checkbutton $w.$f.$optid -text $text \
207                                         -variable ${f}_config_new($name) \
208                                         -onvalue true \
209                                         -offvalue false
210                                 pack $w.$f.$optid -side top -anchor w
211                         }
212                         i-* {
213                                 regexp -- {-(\d+)\.\.(\d+)$} $type _junk min max
214                                 frame $w.$f.$optid
215                                 label $w.$f.$optid.l -text "$text:"
216                                 pack $w.$f.$optid.l -side left -anchor w -fill x
217                                 spinbox $w.$f.$optid.v \
218                                         -textvariable ${f}_config_new($name) \
219                                         -from $min \
220                                         -to $max \
221                                         -increment 1 \
222                                         -width [expr {1 + [string length $max]}]
223                                 bind $w.$f.$optid.v <FocusIn> {%W selection range 0 end}
224                                 pack $w.$f.$optid.v -side right -anchor e -padx 5
225                                 pack $w.$f.$optid -side top -anchor w -fill x
226                         }
227                         t {
228                                 frame $w.$f.$optid
229                                 label $w.$f.$optid.l -text "$text:"
230                                 entry $w.$f.$optid.v \
231                                         -borderwidth 1 \
232                                         -relief sunken \
233                                         -width 20 \
234                                         -textvariable ${f}_config_new($name)
235                                 pack $w.$f.$optid.l -side left -anchor w
236                                 pack $w.$f.$optid.v -side left -anchor w \
237                                         -fill x -expand 1 \
238                                         -padx 5
239                                 pack $w.$f.$optid -side top -anchor w -fill x
240                         }
241                         }
242                 }
243         }
244
245         set all_fonts [lsort [font families]]
246         foreach option $font_descs {
247                 set name [lindex $option 0]
248                 set font [lindex $option 1]
249                 set text [lindex $option 2]
250
251                 set global_config_new(gui.$font^^family) \
252                         [font configure $font -family]
253                 set global_config_new(gui.$font^^size) \
254                         [font configure $font -size]
255
256                 frame $w.global.$name
257                 label $w.global.$name.l -text "$text:"
258                 button $w.global.$name.b \
259                         -text [mc "Change Font"] \
260                         -command [list \
261                                 choose_font::pick \
262                                 $w \
263                                 [mc "Choose %s" $text] \
264                                 global_config_new(gui.$font^^family) \
265                                 global_config_new(gui.$font^^size) \
266                                 ]
267                 label $w.global.$name.f -textvariable global_config_new(gui.$font^^family)
268                 label $w.global.$name.s -textvariable global_config_new(gui.$font^^size)
269                 label $w.global.$name.pt -text [mc "pt."]
270                 pack $w.global.$name.l -side left -anchor w
271                 pack $w.global.$name.b -side right -anchor e
272                 pack $w.global.$name.pt -side right -anchor w
273                 pack $w.global.$name.s -side right -anchor w
274                 pack $w.global.$name.f -side right -anchor w
275                 pack $w.global.$name -side top -anchor w -fill x
276         }
277
278         bind $w <Visibility> "grab $w; focus $w.buttons.save"
279         bind $w <Key-Escape> "destroy $w"
280         bind $w <Key-Return> [list do_save_config $w]
281         wm title $w "[appname] ([reponame]): Options"
282         tkwait window $w
283 }
284
285 proc do_restore_defaults {} {
286         global font_descs default_config repo_config
287         global repo_config_new global_config_new
288
289         foreach name [array names default_config] {
290                 set repo_config_new($name) $default_config($name)
291                 set global_config_new($name) $default_config($name)
292         }
293
294         foreach option $font_descs {
295                 set name [lindex $option 0]
296                 set repo_config(gui.$name) $default_config(gui.$name)
297         }
298         apply_config
299
300         foreach option $font_descs {
301                 set name [lindex $option 0]
302                 set font [lindex $option 1]
303                 set global_config_new(gui.$font^^family) \
304                         [font configure $font -family]
305                 set global_config_new(gui.$font^^size) \
306                         [font configure $font -size]
307         }
308 }
309
310 proc do_save_config {w} {
311         if {[catch {save_config} err]} {
312                 error_popup "Failed to completely save options:\n\n$err"
313         }
314         reshow_diff
315         destroy $w
316 }