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-1.
.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"