git-gui: Be more Macintosh like.
[git/git.git] / git-gui
CommitLineData
bd11b82d 1#!/bin/sh
cb07fc2a
SP
2# Tcl ignores the next line -*- tcl -*- \
3exec wish "$0" -- "$@"
4
5# Copyright (C) 2006 Shawn Pearce, Paul Mackerras. All rights reserved.
6# This program is free software; it may be used, copied, modified
7# and distributed under the terms of the GNU General Public Licence,
8# either version 2, or (at your option) any later version.
9
da5239dc
SP
10set appname [lindex [file split $argv0] end]
11set gitdir {}
12
2d19516d
SP
13######################################################################
14##
15## config
16
51f4d16b
SP
17proc is_many_config {name} {
18 switch -glob -- $name {
19 remote.*.fetch -
20 remote.*.push
21 {return 1}
22 *
23 {return 0}
24 }
25}
2d19516d 26
6bbd1cb9 27proc load_config {include_global} {
51f4d16b
SP
28 global repo_config global_config default_config
29
30 array unset global_config
6bbd1cb9
SP
31 if {$include_global} {
32 catch {
33 set fd_rc [open "| git repo-config --global --list" r]
34 while {[gets $fd_rc line] >= 0} {
35 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
36 if {[is_many_config $name]} {
37 lappend global_config($name) $value
38 } else {
39 set global_config($name) $value
40 }
51f4d16b
SP
41 }
42 }
6bbd1cb9 43 close $fd_rc
51f4d16b 44 }
51f4d16b 45 }
6bbd1cb9
SP
46
47 array unset repo_config
2d19516d
SP
48 catch {
49 set fd_rc [open "| git repo-config --list" r]
50 while {[gets $fd_rc line] >= 0} {
51 if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
51f4d16b
SP
52 if {[is_many_config $name]} {
53 lappend repo_config($name) $value
54 } else {
55 set repo_config($name) $value
56 }
2d19516d
SP
57 }
58 }
59 close $fd_rc
60 }
61
51f4d16b
SP
62 foreach name [array names default_config] {
63 if {[catch {set v $global_config($name)}]} {
64 set global_config($name) $default_config($name)
65 }
66 if {[catch {set v $repo_config($name)}]} {
67 set repo_config($name) $default_config($name)
68 }
2d19516d
SP
69 }
70}
71
51f4d16b 72proc save_config {} {
92148d80
SP
73 global default_config font_descs
74 global repo_config global_config
51f4d16b 75 global repo_config_new global_config_new
2d19516d 76
92148d80
SP
77 foreach option $font_descs {
78 set name [lindex $option 0]
79 set font [lindex $option 1]
80 font configure $font \
81 -family $global_config_new(gui.$font^^family) \
82 -size $global_config_new(gui.$font^^size)
83 font configure ${font}bold \
84 -family $global_config_new(gui.$font^^family) \
85 -size $global_config_new(gui.$font^^size)
86 set global_config_new(gui.$name) [font configure $font]
87 unset global_config_new(gui.$font^^family)
88 unset global_config_new(gui.$font^^size)
89 }
90
91 foreach name [array names default_config] {
51f4d16b 92 set value $global_config_new($name)
043f7011
SP
93 if {$value ne $global_config($name)} {
94 if {$value eq $default_config($name)} {
51f4d16b
SP
95 catch {exec git repo-config --global --unset $name}
96 } else {
7b64d0b7
SP
97 regsub -all "\[{}\]" $value {"} value
98 exec git repo-config --global $name $value
51f4d16b
SP
99 }
100 set global_config($name) $value
043f7011 101 if {$value eq $repo_config($name)} {
51f4d16b
SP
102 catch {exec git repo-config --unset $name}
103 set repo_config($name) $value
104 }
105 }
2d19516d
SP
106 }
107
92148d80 108 foreach name [array names default_config] {
51f4d16b 109 set value $repo_config_new($name)
043f7011
SP
110 if {$value ne $repo_config($name)} {
111 if {$value eq $global_config($name)} {
51f4d16b
SP
112 catch {exec git repo-config --unset $name}
113 } else {
7b64d0b7
SP
114 regsub -all "\[{}\]" $value {"} value
115 exec git repo-config $name $value
51f4d16b
SP
116 }
117 set repo_config($name) $value
118 }
2d19516d
SP
119 }
120}
121
da5239dc
SP
122proc error_popup {msg} {
123 global gitdir appname
124
125 set title $appname
043f7011 126 if {$gitdir ne {}} {
da5239dc
SP
127 append title { (}
128 append title [lindex \
129 [file split [file normalize [file dirname $gitdir]]] \
130 end]
131 append title {)}
132 }
cbbaa28b 133 set cmd [list tk_messageBox \
da5239dc
SP
134 -icon error \
135 -type ok \
136 -title "$title: error" \
cbbaa28b
SP
137 -message $msg]
138 if {[winfo ismapped .]} {
139 lappend cmd -parent .
140 }
141 eval $cmd
da5239dc
SP
142}
143
16403d0b
SP
144proc info_popup {msg} {
145 global gitdir appname
146
147 set title $appname
043f7011 148 if {$gitdir ne {}} {
16403d0b
SP
149 append title { (}
150 append title [lindex \
151 [file split [file normalize [file dirname $gitdir]]] \
152 end]
153 append title {)}
154 }
155 tk_messageBox \
156 -parent . \
157 -icon error \
158 -type ok \
159 -title $title \
160 -message $msg
161}
162
2d19516d
SP
163######################################################################
164##
165## repository setup
166
fbee8500
SP
167if { [catch {set gitdir $env(GIT_DIR)}]
168 && [catch {set gitdir [exec git rev-parse --git-dir]} err]} {
44be340e
SP
169 catch {wm withdraw .}
170 error_popup "Cannot find the git directory:\n\n$err"
2d19516d
SP
171 exit 1
172}
dbccbbda
SP
173if {![file isdirectory $gitdir]} {
174 catch {wm withdraw .}
175 error_popup "Git directory not found:\n\n$gitdir"
176 exit 1
177}
178if {[lindex [file split $gitdir] end] ne {.git}} {
179 catch {wm withdraw .}
180 error_popup "Cannot use funny .git directory:\n\n$gitdir"
181 exit 1
182}
fbee8500
SP
183if {[catch {cd [file dirname $gitdir]} err]} {
184 catch {wm withdraw .}
185 error_popup "No working directory [file dirname $gitdir]:\n\n$err"
186 exit 1
2d19516d 187}
2d19516d 188
4ccdab02 189set single_commit 0
043f7011 190if {$appname eq {git-citool}} {
2d19516d
SP
191 set single_commit 1
192}
193
cb07fc2a
SP
194######################################################################
195##
e210e674 196## task management
cb07fc2a 197
8f52548a 198set rescan_active 0
131f503b 199set diff_active 0
24263b77 200set last_clicked {}
131f503b 201
e210e674
SP
202set disable_on_lock [list]
203set index_lock_type none
204
205proc lock_index {type} {
206 global index_lock_type disable_on_lock
131f503b 207
043f7011 208 if {$index_lock_type eq {none}} {
e210e674
SP
209 set index_lock_type $type
210 foreach w $disable_on_lock {
211 uplevel #0 $w disabled
212 }
213 return 1
53716a7b 214 } elseif {$index_lock_type eq "begin-$type"} {
e210e674 215 set index_lock_type $type
131f503b
SP
216 return 1
217 }
218 return 0
219}
cb07fc2a 220
e210e674
SP
221proc unlock_index {} {
222 global index_lock_type disable_on_lock
223
224 set index_lock_type none
225 foreach w $disable_on_lock {
226 uplevel #0 $w normal
227 }
228}
229
230######################################################################
231##
232## status
233
f18e40a1 234proc repository_state {ctvar hdvar mhvar} {
ec6b424a 235 global gitdir
f18e40a1
SP
236 upvar $ctvar ct $hdvar hd $mhvar mh
237
238 set mh [list]
ec6b424a
SP
239
240 if {[catch {set hd [exec git rev-parse --verify HEAD]}]} {
4539eacd 241 set hd {}
ec6b424a 242 set ct initial
f18e40a1
SP
243 return
244 }
245
246 set merge_head [file join $gitdir MERGE_HEAD]
247 if {[file exists $merge_head]} {
ec6b424a 248 set ct merge
f18e40a1
SP
249 set fd_mh [open $merge_head r]
250 while {[gets $fd_mh line] >= 0} {
251 lappend mh $line
252 }
253 close $fd_mh
254 return
ec6b424a 255 }
f18e40a1
SP
256
257 set ct normal
ec6b424a
SP
258}
259
4539eacd
SP
260proc PARENT {} {
261 global PARENT empty_tree
262
f18e40a1
SP
263 set p [lindex $PARENT 0]
264 if {$p ne {}} {
265 return $p
4539eacd
SP
266 }
267 if {$empty_tree eq {}} {
268 set empty_tree [exec git mktree << {}]
269 }
270 return $empty_tree
271}
272
8f52548a 273proc rescan {after} {
f18e40a1 274 global HEAD PARENT MERGE_HEAD commit_type
131f503b 275 global ui_index ui_other ui_status_value ui_comm
8f52548a 276 global rescan_active file_states
51f4d16b 277 global repo_config
cb07fc2a 278
8f52548a 279 if {$rescan_active > 0 || ![lock_index read]} return
cb07fc2a 280
f18e40a1 281 repository_state newType newHEAD newMERGE_HEAD
4539eacd 282 if {[string match amend* $commit_type]
f18e40a1
SP
283 && $newType eq {normal}
284 && $newHEAD eq $HEAD} {
e57ca85e 285 } else {
f18e40a1
SP
286 set HEAD $newHEAD
287 set PARENT $newHEAD
288 set MERGE_HEAD $newMERGE_HEAD
289 set commit_type $newType
e57ca85e
SP
290 }
291
cb07fc2a 292 array unset file_states
cb07fc2a 293
131f503b 294 if {![$ui_comm edit modified]
043f7011 295 || [string trim [$ui_comm get 0.0 end]] eq {}} {
131f503b
SP
296 if {[load_message GITGUI_MSG]} {
297 } elseif {[load_message MERGE_MSG]} {
298 } elseif {[load_message SQUASH_MSG]} {
299 }
b2c6fcf1 300 $ui_comm edit reset
21d7744f 301 $ui_comm edit modified false
131f503b
SP
302 }
303
043f7011 304 if {$repo_config(gui.trustmtime) eq {true}} {
8f52548a 305 rescan_stage2 {} $after
e534f3a8 306 } else {
8f52548a 307 set rescan_active 1
e534f3a8 308 set ui_status_value {Refreshing file status...}
16403d0b
SP
309 set cmd [list git update-index]
310 lappend cmd -q
311 lappend cmd --unmerged
312 lappend cmd --ignore-missing
313 lappend cmd --refresh
314 set fd_rf [open "| $cmd" r]
e534f3a8 315 fconfigure $fd_rf -blocking 0 -translation binary
390adaea 316 fileevent $fd_rf readable \
8f52548a 317 [list rescan_stage2 $fd_rf $after]
e534f3a8 318 }
131f503b
SP
319}
320
8f52548a 321proc rescan_stage2 {fd after} {
4539eacd
SP
322 global gitdir ui_status_value
323 global rescan_active buf_rdi buf_rdf buf_rlo
131f503b 324
043f7011 325 if {$fd ne {}} {
e534f3a8
SP
326 read $fd
327 if {![eof $fd]} return
328 close $fd
329 }
131f503b 330
cb07fc2a
SP
331 set ls_others [list | git ls-files --others -z \
332 --exclude-per-directory=.gitignore]
333 set info_exclude [file join $gitdir info exclude]
334 if {[file readable $info_exclude]} {
335 lappend ls_others "--exclude-from=$info_exclude"
336 }
337
868c8752
SP
338 set buf_rdi {}
339 set buf_rdf {}
340 set buf_rlo {}
341
8f52548a 342 set rescan_active 3
131f503b 343 set ui_status_value {Scanning for modified files ...}
4539eacd 344 set fd_di [open "| git diff-index --cached -z [PARENT]" r]
cb07fc2a
SP
345 set fd_df [open "| git diff-files -z" r]
346 set fd_lo [open $ls_others r]
cb07fc2a
SP
347
348 fconfigure $fd_di -blocking 0 -translation binary
349 fconfigure $fd_df -blocking 0 -translation binary
350 fconfigure $fd_lo -blocking 0 -translation binary
8f52548a
SP
351 fileevent $fd_di readable [list read_diff_index $fd_di $after]
352 fileevent $fd_df readable [list read_diff_files $fd_df $after]
353 fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
cb07fc2a
SP
354}
355
131f503b
SP
356proc load_message {file} {
357 global gitdir ui_comm
358
359 set f [file join $gitdir $file]
e57ca85e 360 if {[file isfile $f]} {
131f503b
SP
361 if {[catch {set fd [open $f r]}]} {
362 return 0
363 }
e57ca85e 364 set content [string trim [read $fd]]
131f503b
SP
365 close $fd
366 $ui_comm delete 0.0 end
367 $ui_comm insert end $content
368 return 1
369 }
370 return 0
371}
372
8f52548a 373proc read_diff_index {fd after} {
cb07fc2a
SP
374 global buf_rdi
375
376 append buf_rdi [read $fd]
868c8752
SP
377 set c 0
378 set n [string length $buf_rdi]
379 while {$c < $n} {
380 set z1 [string first "\0" $buf_rdi $c]
381 if {$z1 == -1} break
382 incr z1
383 set z2 [string first "\0" $buf_rdi $z1]
384 if {$z2 == -1} break
385
868c8752 386 incr c
86291555 387 set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
1461c5f3
SP
388 merge_state \
389 [string range $buf_rdi $z1 [expr {$z2 - 1}]] \
86291555
SP
390 [lindex $i 4]? \
391 [list [lindex $i 0] [lindex $i 2]] \
1461c5f3
SP
392 [list]
393 set c $z2
86291555 394 incr c
cb07fc2a 395 }
868c8752
SP
396 if {$c < $n} {
397 set buf_rdi [string range $buf_rdi $c end]
398 } else {
399 set buf_rdi {}
400 }
401
8f52548a 402 rescan_done $fd buf_rdi $after
cb07fc2a
SP
403}
404
8f52548a 405proc read_diff_files {fd after} {
cb07fc2a
SP
406 global buf_rdf
407
408 append buf_rdf [read $fd]
868c8752
SP
409 set c 0
410 set n [string length $buf_rdf]
411 while {$c < $n} {
412 set z1 [string first "\0" $buf_rdf $c]
413 if {$z1 == -1} break
414 incr z1
415 set z2 [string first "\0" $buf_rdf $z1]
416 if {$z2 == -1} break
417
868c8752 418 incr c
86291555 419 set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
1461c5f3
SP
420 merge_state \
421 [string range $buf_rdf $z1 [expr {$z2 - 1}]] \
86291555 422 ?[lindex $i 4] \
1461c5f3 423 [list] \
86291555 424 [list [lindex $i 0] [lindex $i 2]]
1461c5f3 425 set c $z2
86291555 426 incr c
868c8752
SP
427 }
428 if {$c < $n} {
429 set buf_rdf [string range $buf_rdf $c end]
430 } else {
431 set buf_rdf {}
cb07fc2a 432 }
868c8752 433
8f52548a 434 rescan_done $fd buf_rdf $after
cb07fc2a
SP
435}
436
8f52548a 437proc read_ls_others {fd after} {
cb07fc2a
SP
438 global buf_rlo
439
440 append buf_rlo [read $fd]
441 set pck [split $buf_rlo "\0"]
442 set buf_rlo [lindex $pck end]
443 foreach p [lrange $pck 0 end-1] {
1461c5f3 444 merge_state $p ?O
cb07fc2a 445 }
8f52548a 446 rescan_done $fd buf_rlo $after
cb07fc2a
SP
447}
448
8f52548a
SP
449proc rescan_done {fd buf after} {
450 global rescan_active
f7f8d322 451 global file_states repo_config
7f1df79b 452 upvar $buf to_clear
cb07fc2a 453
f7f8d322
SP
454 if {![eof $fd]} return
455 set to_clear {}
456 close $fd
8f52548a 457 if {[incr rescan_active -1] > 0} return
93f654df 458
24263b77 459 prune_selection
f7f8d322
SP
460 unlock_index
461 display_all_files
462
463 if {$repo_config(gui.partialinclude) ne {true}} {
bbe3b3b9 464 set pathList [list]
f7f8d322
SP
465 foreach path [array names file_states] {
466 switch -- [lindex $file_states($path) 0] {
467 AM -
468 MM {lappend pathList $path}
469 }
470 }
471 if {$pathList ne {}} {
04b39382
SP
472 update_index \
473 "Updating included files" \
474 $pathList \
475 [concat {reshow_diff;} $after]
f7f8d322 476 return
cb07fc2a
SP
477 }
478 }
f7f8d322
SP
479
480 reshow_diff
8f52548a 481 uplevel #0 $after
cb07fc2a
SP
482}
483
24263b77
SP
484proc prune_selection {} {
485 global file_states selected_paths
486
487 foreach path [array names selected_paths] {
488 if {[catch {set still_here $file_states($path)}]} {
489 unset selected_paths($path)
490 }
491 }
492}
493
cb07fc2a
SP
494######################################################################
495##
496## diff
497
cb07fc2a 498proc clear_diff {} {
e8ab6446 499 global ui_diff current_diff ui_index ui_other
cb07fc2a
SP
500
501 $ui_diff conf -state normal
502 $ui_diff delete 0.0 end
503 $ui_diff conf -state disabled
03e4ec53 504
e8ab6446 505 set current_diff {}
03e4ec53
SP
506
507 $ui_index tag remove in_diff 0.0 end
508 $ui_other tag remove in_diff 0.0 end
cb07fc2a
SP
509}
510
7f1df79b 511proc reshow_diff {} {
e8ab6446 512 global current_diff ui_status_value file_states
7f1df79b 513
e8ab6446
SP
514 if {$current_diff eq {}
515 || [catch {set s $file_states($current_diff)}]} {
7f1df79b 516 clear_diff
73ad179b 517 } else {
e8ab6446 518 show_diff $current_diff
7f1df79b
SP
519 }
520}
521
16403d0b 522proc handle_empty_diff {} {
e8ab6446 523 global current_diff file_states file_lists
16403d0b 524
e8ab6446 525 set path $current_diff
16403d0b 526 set s $file_states($path)
043f7011 527 if {[lindex $s 0] ne {_M}} return
16403d0b
SP
528
529 info_popup "No differences detected.
530
531[short_path $path] has no changes.
532
a37eee44
SP
533The modification date of this file was updated
534by another application and you currently have
535the Trust File Modification Timestamps option
536enabled, so Git did not automatically detect
537that there are no content differences in this
538file.
539
540This file will now be removed from the modified
541files list, to prevent possible confusion.
16403d0b
SP
542"
543 if {[catch {exec git update-index -- $path} err]} {
544 error_popup "Failed to refresh index:\n\n$err"
545 }
546
547 clear_diff
548 set old_w [mapcol [lindex $file_states($path) 0] $path]
549 set lno [lsearch -sorted $file_lists($old_w) $path]
550 if {$lno >= 0} {
551 set file_lists($old_w) \
552 [lreplace $file_lists($old_w) $lno $lno]
553 incr lno
554 $old_w conf -state normal
24263b77 555 $old_w delete $lno.0 [expr {$lno + 1}].0
16403d0b
SP
556 $old_w conf -state disabled
557 }
558}
559
03e4ec53
SP
560proc show_diff {path {w {}} {lno {}}} {
561 global file_states file_lists
38dbe273 562 global is_3way_diff diff_active repo_config
e8ab6446 563 global ui_diff current_diff ui_status_value
cb07fc2a 564
e210e674 565 if {$diff_active || ![lock_index read]} return
cb07fc2a
SP
566
567 clear_diff
043f7011 568 if {$w eq {} || $lno == {}} {
03e4ec53
SP
569 foreach w [array names file_lists] {
570 set lno [lsearch -sorted $file_lists($w) $path]
571 if {$lno >= 0} {
572 incr lno
573 break
574 }
575 }
576 }
043f7011 577 if {$w ne {} && $lno >= 1} {
24263b77 578 $w tag add in_diff $lno.0 [expr {$lno + 1}].0
03e4ec53
SP
579 }
580
cb07fc2a
SP
581 set s $file_states($path)
582 set m [lindex $s 0]
38dbe273 583 set is_3way_diff 0
cb07fc2a 584 set diff_active 1
e8ab6446 585 set current_diff $path
68e009de 586 set ui_status_value "Loading diff of [escape_path $path]..."
cb07fc2a 587
fd2656fd
SP
588 set cmd [list | git diff-index]
589 lappend cmd --no-color
358d8de8
SP
590 if {$repo_config(gui.diffcontext) > 0} {
591 lappend cmd "-U$repo_config(gui.diffcontext)"
592 }
fd2656fd
SP
593 lappend cmd -p
594
cb07fc2a 595 switch $m {
cb07fc2a 596 MM {
fd2656fd 597 lappend cmd -c
cb07fc2a
SP
598 }
599 _O {
600 if {[catch {
601 set fd [open $path r]
602 set content [read $fd]
603 close $fd
604 } err ]} {
131f503b 605 set diff_active 0
e210e674 606 unlock_index
68e009de 607 set ui_status_value "Unable to display [escape_path $path]"
44be340e 608 error_popup "Error loading file:\n\n$err"
cb07fc2a
SP
609 return
610 }
611 $ui_diff conf -state normal
612 $ui_diff insert end $content
613 $ui_diff conf -state disabled
bd1e2b40
SP
614 set diff_active 0
615 unlock_index
616 set ui_status_value {Ready.}
cb07fc2a
SP
617 return
618 }
619 }
620
4539eacd 621 lappend cmd [PARENT]
fd2656fd
SP
622 lappend cmd --
623 lappend cmd $path
624
cb07fc2a 625 if {[catch {set fd [open $cmd r]} err]} {
131f503b 626 set diff_active 0
e210e674 627 unlock_index
68e009de 628 set ui_status_value "Unable to display [escape_path $path]"
44be340e 629 error_popup "Error loading diff:\n\n$err"
cb07fc2a
SP
630 return
631 }
632
6f6eed28 633 fconfigure $fd -blocking 0 -translation auto
cb07fc2a
SP
634 fileevent $fd readable [list read_diff $fd]
635}
636
637proc read_diff {fd} {
38dbe273 638 global ui_diff ui_status_value is_3way_diff diff_active
51f4d16b 639 global repo_config
cb07fc2a 640
38dbe273 641 $ui_diff conf -state normal
cb07fc2a 642 while {[gets $fd line] >= 0} {
38dbe273
SP
643 # -- Cleanup uninteresting diff header lines.
644 #
645 if {[string match {diff --git *} $line]} continue
6f6eed28 646 if {[string match {diff --combined *} $line]} continue
38dbe273
SP
647 if {[string match {--- *} $line]} continue
648 if {[string match {+++ *} $line]} continue
0d5709cf
SP
649 if {$line eq {deleted file mode 120000}} {
650 set line "deleted symlink"
651 }
cb07fc2a 652
38dbe273
SP
653 # -- Automatically detect if this is a 3 way diff.
654 #
655 if {[string match {@@@ *} $line]} {set is_3way_diff 1}
656
657 # -- Reformat a 3 way diff, 'cause its too weird.
658 #
659 if {$is_3way_diff} {
660 set op [string range $line 0 1]
661 switch -- $op {
662 {@@} {set tags d_@}
663 {++} {set tags d_+ ; set op { +}}
664 {--} {set tags d_- ; set op { -}}
665 { +} {set tags d_++; set op {++}}
666 { -} {set tags d_--; set op {--}}
667 {+ } {set tags d_-+; set op {-+}}
668 {- } {set tags d_+-; set op {+-}}
cb07fc2a
SP
669 default {set tags {}}
670 }
38dbe273 671 set line [string replace $line 0 1 $op]
cb07fc2a 672 } else {
38dbe273
SP
673 switch -- [string index $line 0] {
674 @ {set tags d_@}
675 + {set tags d_+}
676 - {set tags d_-}
cb07fc2a
SP
677 default {set tags {}}
678 }
cb07fc2a
SP
679 }
680 $ui_diff insert end $line $tags
38dbe273 681 $ui_diff insert end "\n" $tags
cb07fc2a 682 }
38dbe273 683 $ui_diff conf -state disabled
cb07fc2a
SP
684
685 if {[eof $fd]} {
686 close $fd
687 set diff_active 0
e210e674 688 unlock_index
cb07fc2a 689 set ui_status_value {Ready.}
16403d0b 690
043f7011
SP
691 if {$repo_config(gui.trustmtime) eq {true}
692 && [$ui_diff index end] eq {2.0}} {
16403d0b
SP
693 handle_empty_diff
694 }
cb07fc2a
SP
695 }
696}
697
ec6b424a
SP
698######################################################################
699##
700## commit
701
e57ca85e 702proc load_last_commit {} {
f18e40a1 703 global HEAD PARENT MERGE_HEAD commit_type ui_comm
e57ca85e 704
f18e40a1
SP
705 if {[llength $PARENT] == 0} {
706 error_popup {There is nothing to amend.
707
708You are about to create the initial commit.
709There is no commit before this to amend.
710}
711 return
712 }
713
714 repository_state curType curHEAD curMERGE_HEAD
715 if {$curType eq {merge}} {
716 error_popup {Cannot amend while merging.
717
718You are currently in the middle of a merge that
719has not been fully completed. You cannot amend
720the prior commit unless you first abort the
721current merge activity.
722}
e57ca85e
SP
723 return
724 }
725
726 set msg {}
f18e40a1 727 set parents [list]
e57ca85e 728 if {[catch {
f18e40a1 729 set fd [open "| git cat-file commit $curHEAD" r]
e57ca85e
SP
730 while {[gets $fd line] > 0} {
731 if {[string match {parent *} $line]} {
f18e40a1 732 lappend parents [string range $line 7 end]
e57ca85e
SP
733 }
734 }
735 set msg [string trim [read $fd]]
736 close $fd
737 } err]} {
44be340e 738 error_popup "Error loading commit data for amend:\n\n$err"
e57ca85e
SP
739 return
740 }
741
f18e40a1
SP
742 set HEAD $curHEAD
743 set PARENT $parents
744 set MERGE_HEAD [list]
745 switch -- [llength $parents] {
746 0 {set commit_type amend-initial}
747 1 {set commit_type amend}
748 default {set commit_type amend-merge}
e57ca85e 749 }
4539eacd
SP
750
751 $ui_comm delete 0.0 end
752 $ui_comm insert end $msg
4539eacd 753 $ui_comm edit reset
21d7744f 754 $ui_comm edit modified false
4539eacd 755 rescan {set ui_status_value {Ready.}}
e57ca85e
SP
756}
757
24ac9b75
SP
758proc create_new_commit {} {
759 global commit_type ui_comm
760
761 set commit_type normal
762 $ui_comm delete 0.0 end
24ac9b75 763 $ui_comm edit reset
21d7744f 764 $ui_comm edit modified false
24ac9b75
SP
765 rescan {set ui_status_value {Ready.}}
766}
767
d63efae2
SP
768set GIT_COMMITTER_IDENT {}
769
770proc committer_ident {} {
771 global GIT_COMMITTER_IDENT
772
773 if {$GIT_COMMITTER_IDENT eq {}} {
774 if {[catch {set me [exec git var GIT_COMMITTER_IDENT]} err]} {
775 error_popup "Unable to obtain your identity:\n\n$err"
776 return {}
777 }
778 if {![regexp {^(.*) [0-9]+ [-+0-9]+$} \
779 $me me GIT_COMMITTER_IDENT]} {
780 error_popup "Invalid GIT_COMMITTER_IDENT:\n\n$me"
781 return {}
782 }
783 }
784
785 return $GIT_COMMITTER_IDENT
786}
787
ec6b424a 788proc commit_tree {} {
bbe3b3b9 789 global HEAD commit_type file_states ui_comm repo_config
ec6b424a 790
333b0c74 791 if {![lock_index update]} return
d63efae2 792 if {[committer_ident] eq {}} return
ec6b424a
SP
793
794 # -- Our in memory state should match the repository.
795 #
f18e40a1 796 repository_state curType curHEAD curMERGE_HEAD
4539eacd 797 if {[string match amend* $commit_type]
f18e40a1 798 && $curType eq {normal}
043f7011 799 && $curHEAD eq $HEAD} {
f18e40a1 800 } elseif {$commit_type ne $curType || $HEAD ne $curHEAD} {
bca680b0 801 info_popup {Last scanned state does not match repository state.
ec6b424a 802
bca680b0
SP
803Another Git program has modified this repository
804since the last scan. A rescan must be performed
805before another commit can be created.
bbe3b3b9 806
bca680b0 807The rescan will be automatically started now.
ec6b424a
SP
808}
809 unlock_index
8f52548a 810 rescan {set ui_status_value {Ready.}}
ec6b424a
SP
811 return
812 }
813
814 # -- At least one file should differ in the index.
815 #
816 set files_ready 0
817 foreach path [array names file_states] {
bbe3b3b9 818 switch -glob -- [lindex $file_states($path) 0] {
7f1df79b
SP
819 _? {continue}
820 A? -
821 D? -
822 M? {set files_ready 1; break}
823 U? {
ec6b424a
SP
824 error_popup "Unmerged files cannot be committed.
825
16403d0b 826File [short_path $path] has merge conflicts.
7fe7e733 827You must resolve them and include the file before committing.
ec6b424a
SP
828"
829 unlock_index
830 return
831 }
832 default {
833 error_popup "Unknown file state [lindex $s 0] detected.
834
16403d0b 835File [short_path $path] cannot be committed by this program.
ec6b424a
SP
836"
837 }
838 }
839 }
840 if {!$files_ready} {
7fe7e733 841 error_popup {No included files to commit.
ec6b424a 842
7fe7e733 843You must include at least 1 file before you can commit.
ec6b424a
SP
844}
845 unlock_index
846 return
847 }
848
849 # -- A message is required.
850 #
851 set msg [string trim [$ui_comm get 1.0 end]]
043f7011 852 if {$msg eq {}} {
ec6b424a
SP
853 error_popup {Please supply a commit message.
854
855A good commit message has the following format:
856
857- First line: Describe in one sentance what you did.
858- Second line: Blank
859- Remaining lines: Describe why this change is good.
860}
861 unlock_index
862 return
863 }
864
bbe3b3b9 865 # -- Update included files if partialincludes are off.
ec6b424a 866 #
bbe3b3b9
SP
867 if {$repo_config(gui.partialinclude) ne {true}} {
868 set pathList [list]
869 foreach path [array names file_states] {
870 switch -glob -- [lindex $file_states($path) 0] {
871 A? -
872 M? {lappend pathList $path}
873 }
874 }
875 if {$pathList ne {}} {
876 unlock_index
877 update_index \
878 "Updating included files" \
879 $pathList \
880 [concat {lock_index update;} \
881 [list commit_prehook $curHEAD $msg]]
882 return
883 }
884 }
885
886 commit_prehook $curHEAD $msg
887}
888
889proc commit_prehook {curHEAD msg} {
890 global tcl_platform gitdir ui_status_value pch_error
891
892 # On Cygwin [file executable] might lie so we need to ask
893 # the shell if the hook is executable. Yes that's annoying.
894
ec6b424a 895 set pchook [file join $gitdir hooks pre-commit]
bbe3b3b9
SP
896 if {$tcl_platform(platform) eq {windows}
897 && [file isfile $pchook]} {
4658b56f
SP
898 set pchook [list sh -c [concat \
899 "if test -x \"$pchook\";" \
900 "then exec \"$pchook\" 2>&1;" \
901 "fi"]]
ec6b424a 902 } elseif {[file executable $pchook]} {
4658b56f 903 set pchook [list $pchook |& cat]
ec6b424a 904 } else {
bbe3b3b9
SP
905 commit_writetree $curHEAD $msg
906 return
4658b56f 907 }
bbe3b3b9
SP
908
909 set ui_status_value {Calling pre-commit hook...}
910 set pch_error {}
911 set fd_ph [open "| $pchook" r]
912 fconfigure $fd_ph -blocking 0 -translation binary
913 fileevent $fd_ph readable \
914 [list commit_prehook_wait $fd_ph $curHEAD $msg]
4658b56f
SP
915}
916
bbe3b3b9 917proc commit_prehook_wait {fd_ph curHEAD msg} {
333b0c74 918 global pch_error ui_status_value
4658b56f
SP
919
920 append pch_error [read $fd_ph]
921 fconfigure $fd_ph -blocking 1
922 if {[eof $fd_ph]} {
923 if {[catch {close $fd_ph}]} {
924 set ui_status_value {Commit declined by pre-commit hook.}
925 hook_failed_popup pre-commit $pch_error
926 unlock_index
333b0c74 927 } else {
bbe3b3b9 928 commit_writetree $curHEAD $msg
4658b56f 929 }
333b0c74 930 set pch_error {}
bbe3b3b9 931 return
ec6b424a 932 }
bbe3b3b9 933 fconfigure $fd_ph -blocking 0
4658b56f
SP
934}
935
bbe3b3b9 936proc commit_writetree {curHEAD msg} {
4658b56f 937 global ui_status_value
ec6b424a 938
ec6b424a 939 set ui_status_value {Committing changes...}
ec6b424a 940 set fd_wt [open "| git write-tree" r]
bbe3b3b9
SP
941 fileevent $fd_wt readable \
942 [list commit_committree $fd_wt $curHEAD $msg]
ec6b424a
SP
943}
944
bbe3b3b9 945proc commit_committree {fd_wt curHEAD msg} {
f18e40a1
SP
946 global HEAD PARENT MERGE_HEAD commit_type
947 global single_commit gitdir tcl_platform
24ac9b75 948 global ui_status_value ui_comm selected_commit_type
a29481e2 949 global file_states selected_paths rescan_active
ec6b424a
SP
950
951 gets $fd_wt tree_id
043f7011 952 if {$tree_id eq {} || [catch {close $fd_wt} err]} {
44be340e 953 error_popup "write-tree failed:\n\n$err"
ec6b424a
SP
954 set ui_status_value {Commit failed.}
955 unlock_index
956 return
957 }
958
959 # -- Create the commit.
960 #
961 set cmd [list git commit-tree $tree_id]
f18e40a1
SP
962 set parents [concat $PARENT $MERGE_HEAD]
963 if {[llength $parents] > 0} {
964 foreach p $parents {
965 lappend cmd -p $p
ec6b424a 966 }
f18e40a1 967 } else {
ec6b424a
SP
968 # git commit-tree writes to stderr during initial commit.
969 lappend cmd 2>/dev/null
970 }
971 lappend cmd << $msg
972 if {[catch {set cmt_id [eval exec $cmd]} err]} {
44be340e 973 error_popup "commit-tree failed:\n\n$err"
ec6b424a
SP
974 set ui_status_value {Commit failed.}
975 unlock_index
976 return
977 }
978
979 # -- Update the HEAD ref.
980 #
981 set reflogm commit
043f7011 982 if {$commit_type ne {normal}} {
ec6b424a
SP
983 append reflogm " ($commit_type)"
984 }
985 set i [string first "\n" $msg]
986 if {$i >= 0} {
24263b77 987 append reflogm {: } [string range $msg 0 [expr {$i - 1}]]
ec6b424a
SP
988 } else {
989 append reflogm {: } $msg
990 }
e57ca85e 991 set cmd [list git update-ref -m $reflogm HEAD $cmt_id $curHEAD]
ec6b424a 992 if {[catch {eval exec $cmd} err]} {
44be340e 993 error_popup "update-ref failed:\n\n$err"
ec6b424a
SP
994 set ui_status_value {Commit failed.}
995 unlock_index
996 return
997 }
998
999 # -- Cleanup after ourselves.
1000 #
1001 catch {file delete [file join $gitdir MERGE_HEAD]}
1002 catch {file delete [file join $gitdir MERGE_MSG]}
1003 catch {file delete [file join $gitdir SQUASH_MSG]}
1004 catch {file delete [file join $gitdir GITGUI_MSG]}
1005
1006 # -- Let rerere do its thing.
1007 #
1008 if {[file isdirectory [file join $gitdir rr-cache]]} {
1009 catch {exec git rerere}
1010 }
1011
c8ebafd8
SP
1012 # -- Run the post-commit hook.
1013 #
1014 set pchook [file join $gitdir hooks post-commit]
043f7011 1015 if {$tcl_platform(platform) eq {windows} && [file isfile $pchook]} {
c8ebafd8
SP
1016 set pchook [list sh -c [concat \
1017 "if test -x \"$pchook\";" \
1018 "then exec \"$pchook\";" \
1019 "fi"]]
1020 } elseif {![file executable $pchook]} {
1021 set pchook {}
1022 }
043f7011 1023 if {$pchook ne {}} {
c8ebafd8
SP
1024 catch {exec $pchook &}
1025 }
1026
e57ca85e 1027 $ui_comm delete 0.0 end
b2c6fcf1 1028 $ui_comm edit reset
21d7744f 1029 $ui_comm edit modified false
ec6b424a
SP
1030
1031 if {$single_commit} do_quit
1032
a29481e2 1033 # -- Update in memory status
7f1df79b 1034 #
24ac9b75 1035 set selected_commit_type new
f18e40a1 1036 set commit_type normal
bd1e2b40
SP
1037 set HEAD $cmt_id
1038 set PARENT $cmt_id
f18e40a1 1039 set MERGE_HEAD [list]
7f1df79b
SP
1040
1041 foreach path [array names file_states] {
1042 set s $file_states($path)
1043 set m [lindex $s 0]
1044 switch -glob -- $m {
a29481e2
SP
1045 _O -
1046 _M -
1047 _D {continue}
1048 __ -
1049 A_ -
1050 M_ -
1051 DD {
7f1df79b 1052 unset file_states($path)
24263b77 1053 catch {unset selected_paths($path)}
a29481e2
SP
1054 }
1055 DO {
1056 set file_states($path) [list _O [lindex $s 1] {} {}]
1057 }
1058 AM -
1059 AD -
1060 MM -
1061 DM {
1062 set file_states($path) [list \
1063 _[string index $m 1] \
1064 [lindex $s 1] \
1065 [lindex $s 3] \
1066 {}]
1067 }
7f1df79b
SP
1068 }
1069 }
1070
1071 display_all_files
ec6b424a 1072 unlock_index
7f1df79b
SP
1073 reshow_diff
1074 set ui_status_value \
1075 "Changes committed as [string range $cmt_id 0 7]."
ec6b424a
SP
1076}
1077
8c0ce436
SP
1078######################################################################
1079##
1080## fetch pull push
1081
1082proc fetch_from {remote} {
1083 set w [new_console "fetch $remote" \
1084 "Fetching new changes from $remote"]
cc4b1c02 1085 set cmd [list git fetch]
8c0ce436 1086 lappend cmd $remote
cc4b1c02 1087 console_exec $w $cmd
8c0ce436
SP
1088}
1089
d33ba5fa 1090proc pull_remote {remote branch} {
ebf336b9 1091 global HEAD commit_type file_states repo_config
ec39d83a 1092
988b8a7d 1093 if {![lock_index update]} return
ec39d83a
SP
1094
1095 # -- Our in memory state should match the repository.
1096 #
f18e40a1
SP
1097 repository_state curType curHEAD curMERGE_HEAD
1098 if {$commit_type ne $curType || $HEAD ne $curHEAD} {
ec39d83a
SP
1099 error_popup {Last scanned state does not match repository state.
1100
1101Its highly likely that another Git program modified the
1102repository since our last scan. A rescan is required
1103before a pull can be started.
1104}
1105 unlock_index
8f52548a 1106 rescan {set ui_status_value {Ready.}}
ec39d83a
SP
1107 return
1108 }
1109
1110 # -- No differences should exist before a pull.
1111 #
1112 if {[array size file_states] != 0} {
1113 error_popup {Uncommitted but modified files are present.
1114
1115You should not perform a pull with unmodified files in your working
1116directory as Git would be unable to recover from an incorrect merge.
1117
1118Commit or throw away all changes before starting a pull operation.
1119}
1120 unlock_index
1121 return
1122 }
1123
d33ba5fa
SP
1124 set w [new_console "pull $remote $branch" \
1125 "Pulling new changes from branch $branch in $remote"]
1126 set cmd [list git pull]
043f7011 1127 if {$repo_config(gui.pullsummary) eq {false}} {
ebf336b9
SP
1128 lappend cmd --no-summary
1129 }
d33ba5fa
SP
1130 lappend cmd $remote
1131 lappend cmd $branch
1132 console_exec $w $cmd [list post_pull_remote $remote $branch]
1133}
1134
1135proc post_pull_remote {remote branch success} {
f18e40a1 1136 global HEAD PARENT MERGE_HEAD commit_type selected_commit_type
ec39d83a
SP
1137 global ui_status_value
1138
988b8a7d 1139 unlock_index
d33ba5fa 1140 if {$success} {
f18e40a1 1141 repository_state commit_type HEAD MERGE_HEAD
ec39d83a 1142 set PARENT $HEAD
24ac9b75 1143 set selected_commit_type new
f18e40a1 1144 set ui_status_value "Pulling $branch from $remote complete."
d33ba5fa 1145 } else {
f18e40a1
SP
1146 rescan [list set ui_status_value \
1147 "Conflicts detected while pulling $branch from $remote."]
d33ba5fa
SP
1148 }
1149}
1150
8c0ce436
SP
1151proc push_to {remote} {
1152 set w [new_console "push $remote" \
1153 "Pushing changes to $remote"]
cc4b1c02 1154 set cmd [list git push]
8c0ce436 1155 lappend cmd $remote
cc4b1c02 1156 console_exec $w $cmd
8c0ce436
SP
1157}
1158
cb07fc2a
SP
1159######################################################################
1160##
1161## ui helpers
1162
1163proc mapcol {state path} {
6b292675 1164 global all_cols ui_other
cb07fc2a
SP
1165
1166 if {[catch {set r $all_cols($state)}]} {
1167 puts "error: no column for state={$state} $path"
6b292675 1168 return $ui_other
cb07fc2a
SP
1169 }
1170 return $r
1171}
1172
1173proc mapicon {state path} {
1174 global all_icons
1175
1176 if {[catch {set r $all_icons($state)}]} {
1177 puts "error: no icon for state={$state} $path"
1178 return file_plain
1179 }
1180 return $r
1181}
1182
1183proc mapdesc {state path} {
1184 global all_descs
1185
1186 if {[catch {set r $all_descs($state)}]} {
1187 puts "error: no desc for state={$state} $path"
1188 return $state
1189 }
1190 return $r
1191}
1192
68e009de
SP
1193proc escape_path {path} {
1194 regsub -all "\n" $path "\\n" path
1195 return $path
1196}
1197
16403d0b
SP
1198proc short_path {path} {
1199 return [escape_path [lindex [file split $path] end]]
1200}
1201
93f654df 1202set next_icon_id 0
51cc47fe 1203set null_sha1 [string repeat 0 40]
93f654df 1204
1461c5f3 1205proc merge_state {path new_state {head_info {}} {index_info {}}} {
51cc47fe 1206 global file_states next_icon_id null_sha1
cb07fc2a 1207
6b292675
SP
1208 set s0 [string index $new_state 0]
1209 set s1 [string index $new_state 1]
1210
1211 if {[catch {set info $file_states($path)}]} {
1212 set state __
1213 set icon n[incr next_icon_id]
cb07fc2a 1214 } else {
6b292675
SP
1215 set state [lindex $info 0]
1216 set icon [lindex $info 1]
1461c5f3
SP
1217 if {$head_info eq {}} {set head_info [lindex $info 2]}
1218 if {$index_info eq {}} {set index_info [lindex $info 3]}
cb07fc2a
SP
1219 }
1220
1461c5f3
SP
1221 if {$s0 eq {?}} {set s0 [string index $state 0]} \
1222 elseif {$s0 eq {_}} {set s0 _}
1223
1224 if {$s1 eq {?}} {set s1 [string index $state 1]} \
1225 elseif {$s1 eq {_}} {set s1 _}
cb07fc2a 1226
51cc47fe
SP
1227 if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
1228 set head_info [list 0 $null_sha1]
1229 } elseif {$s0 ne {_} && [string index $state 0] eq {_}
1461c5f3
SP
1230 && $head_info eq {}} {
1231 set head_info $index_info
cb07fc2a
SP
1232 }
1233
1461c5f3
SP
1234 set file_states($path) [list $s0$s1 $icon \
1235 $head_info $index_info \
1236 ]
6b292675 1237 return $state
cb07fc2a
SP
1238}
1239
1240proc display_file {path state} {
1461c5f3 1241 global file_states file_lists selected_paths
cb07fc2a
SP
1242
1243 set old_m [merge_state $path $state]
1244 set s $file_states($path)
93f654df 1245 set new_m [lindex $s 0]
0fb8f9ce
SP
1246 set new_w [mapcol $new_m $path]
1247 set old_w [mapcol $old_m $path]
1248 set new_icon [mapicon $new_m $path]
cb07fc2a 1249
043f7011 1250 if {$new_w ne $old_w} {
03e4ec53 1251 set lno [lsearch -sorted $file_lists($old_w) $path]
cb07fc2a
SP
1252 if {$lno >= 0} {
1253 incr lno
93f654df 1254 $old_w conf -state normal
24263b77 1255 $old_w delete $lno.0 [expr {$lno + 1}].0
93f654df 1256 $old_w conf -state disabled
cb07fc2a 1257 }
93f654df 1258
03e4ec53
SP
1259 lappend file_lists($new_w) $path
1260 set file_lists($new_w) [lsort $file_lists($new_w)]
1261 set lno [lsearch -sorted $file_lists($new_w) $path]
1262 incr lno
93f654df
SP
1263 $new_w conf -state normal
1264 $new_w image create $lno.0 \
1265 -align center -padx 5 -pady 1 \
1266 -name [lindex $s 1] \
e4ee9af4 1267 -image $new_icon
68e009de 1268 $new_w insert $lno.1 "[escape_path $path]\n"
24263b77
SP
1269 if {[catch {set in_sel $selected_paths($path)}]} {
1270 set in_sel 0
1271 }
1272 if {$in_sel} {
1273 $new_w tag add in_sel $lno.0 [expr {$lno + 1}].0
1274 }
93f654df 1275 $new_w conf -state disabled
043f7011 1276 } elseif {$new_icon ne [mapicon $old_m $path]} {
93f654df
SP
1277 $new_w conf -state normal
1278 $new_w image conf [lindex $s 1] -image $new_icon
1279 $new_w conf -state disabled
cb07fc2a 1280 }
93f654df 1281}
cb07fc2a 1282
93f654df 1283proc display_all_files {} {
24263b77
SP
1284 global ui_index ui_other
1285 global file_states file_lists
1286 global last_clicked selected_paths
93f654df
SP
1287
1288 $ui_index conf -state normal
1289 $ui_other conf -state normal
1290
7f1df79b
SP
1291 $ui_index delete 0.0 end
1292 $ui_other delete 0.0 end
24263b77 1293 set last_clicked {}
7f1df79b 1294
62aac80b
SP
1295 set file_lists($ui_index) [list]
1296 set file_lists($ui_other) [list]
1297
93f654df
SP
1298 foreach path [lsort [array names file_states]] {
1299 set s $file_states($path)
1300 set m [lindex $s 0]
6b292675 1301 set w [mapcol $m $path]
03e4ec53 1302 lappend file_lists($w) $path
24263b77 1303 set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
6b292675 1304 $w image create end \
cb07fc2a 1305 -align center -padx 5 -pady 1 \
93f654df
SP
1306 -name [lindex $s 1] \
1307 -image [mapicon $m $path]
68e009de 1308 $w insert end "[escape_path $path]\n"
24263b77
SP
1309 if {[catch {set in_sel $selected_paths($path)}]} {
1310 set in_sel 0
1311 }
1312 if {$in_sel} {
1313 $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1314 }
cb07fc2a 1315 }
93f654df
SP
1316
1317 $ui_index conf -state disabled
1318 $ui_other conf -state disabled
cb07fc2a
SP
1319}
1320
1461c5f3
SP
1321proc update_indexinfo {msg pathList after} {
1322 global update_index_cp ui_status_value
1323
1324 if {![lock_index update]} return
1325
1326 set update_index_cp 0
1327 set pathList [lsort $pathList]
1328 set totalCnt [llength $pathList]
1329 set batch [expr {int($totalCnt * .01) + 1}]
1330 if {$batch > 25} {set batch 25}
1331
1332 set ui_status_value [format \
1333 "$msg... %i/%i files (%.2f%%)" \
1334 $update_index_cp \
1335 $totalCnt \
1336 0.0]
1337 set fd [open "| git update-index -z --index-info" w]
1338 fconfigure $fd \
1339 -blocking 0 \
1340 -buffering full \
1341 -buffersize 512 \
1342 -translation binary
1343 fileevent $fd writable [list \
1344 write_update_indexinfo \
1345 $fd \
1346 $pathList \
1347 $totalCnt \
1348 $batch \
1349 $msg \
1350 $after \
1351 ]
1352}
1353
1354proc write_update_indexinfo {fd pathList totalCnt batch msg after} {
1355 global update_index_cp ui_status_value
1356 global file_states current_diff
1357
1358 if {$update_index_cp >= $totalCnt} {
1359 close $fd
1360 unlock_index
1361 uplevel #0 $after
1362 return
1363 }
1364
1365 for {set i $batch} \
1366 {$update_index_cp < $totalCnt && $i > 0} \
1367 {incr i -1} {
1368 set path [lindex $pathList $update_index_cp]
1369 incr update_index_cp
1370
1371 set s $file_states($path)
1372 switch -glob -- [lindex $s 0] {
1373 A? {set new _O}
1374 M? {set new _M}
1375 D? {set new _?}
1376 ?? {continue}
1377 }
1378 set info [lindex $s 2]
1379 if {$info eq {}} continue
1380
1381 puts -nonewline $fd $info
1382 puts -nonewline $fd "\t"
1383 puts -nonewline $fd $path
1384 puts -nonewline $fd "\0"
1385 display_file $path $new
1386 }
1387
1388 set ui_status_value [format \
1389 "$msg... %i/%i files (%.2f%%)" \
1390 $update_index_cp \
1391 $totalCnt \
1392 [expr {100.0 * $update_index_cp / $totalCnt}]]
1393}
1394
04b39382 1395proc update_index {msg pathList after} {
32e0bcab 1396 global update_index_cp ui_status_value
131f503b 1397
74e6b12f 1398 if {![lock_index update]} return
131f503b 1399
74e6b12f 1400 set update_index_cp 0
aaf1085a 1401 set pathList [lsort $pathList]
74e6b12f
SP
1402 set totalCnt [llength $pathList]
1403 set batch [expr {int($totalCnt * .01) + 1}]
1404 if {$batch > 25} {set batch 25}
1405
74e6b12f 1406 set ui_status_value [format \
04b39382 1407 "$msg... %i/%i files (%.2f%%)" \
74e6b12f
SP
1408 $update_index_cp \
1409 $totalCnt \
1410 0.0]
1411 set fd [open "| git update-index --add --remove -z --stdin" w]
7f09cfaf
SP
1412 fconfigure $fd \
1413 -blocking 0 \
1414 -buffering full \
1415 -buffersize 512 \
1416 -translation binary
74e6b12f
SP
1417 fileevent $fd writable [list \
1418 write_update_index \
1419 $fd \
1420 $pathList \
1421 $totalCnt \
1422 $batch \
04b39382
SP
1423 $msg \
1424 $after \
74e6b12f
SP
1425 ]
1426}
1427
04b39382 1428proc write_update_index {fd pathList totalCnt batch msg after} {
32e0bcab 1429 global update_index_cp ui_status_value
e8ab6446 1430 global file_states current_diff
131f503b 1431
74e6b12f
SP
1432 if {$update_index_cp >= $totalCnt} {
1433 close $fd
1434 unlock_index
04b39382 1435 uplevel #0 $after
74e6b12f 1436 return
131f503b 1437 }
131f503b 1438
74e6b12f
SP
1439 for {set i $batch} \
1440 {$update_index_cp < $totalCnt && $i > 0} \
1441 {incr i -1} {
1442 set path [lindex $pathList $update_index_cp]
1443 incr update_index_cp
1444
bbe3b3b9 1445 switch -glob -- [lindex $file_states($path) 0] {
74e6b12f 1446 AD -
bbe3b3b9 1447 MD -
dde5974e 1448 _D {set new DD}
bbe3b3b9
SP
1449
1450 _M -
1451 MM -
b6765112 1452 M_ {set new M_}
bbe3b3b9
SP
1453
1454 _O -
1455 AM -
b6765112 1456 A_ {set new A_}
bbe3b3b9
SP
1457
1458 ?? {continue}
74e6b12f 1459 }
cb07fc2a 1460
74e6b12f
SP
1461 puts -nonewline $fd $path
1462 puts -nonewline $fd "\0"
1463 display_file $path $new
cb07fc2a
SP
1464 }
1465
74e6b12f 1466 set ui_status_value [format \
04b39382 1467 "$msg... %i/%i files (%.2f%%)" \
74e6b12f
SP
1468 $update_index_cp \
1469 $totalCnt \
1470 [expr {100.0 * $update_index_cp / $totalCnt}]]
cb07fc2a
SP
1471}
1472
8c0ce436
SP
1473######################################################################
1474##
2d19516d 1475## remote management
0d4f3eb5 1476
8c0ce436 1477proc load_all_remotes {} {
0d4f3eb5 1478 global gitdir all_remotes repo_config
8c0ce436
SP
1479
1480 set all_remotes [list]
1481 set rm_dir [file join $gitdir remotes]
1482 if {[file isdirectory $rm_dir]} {
d47ae541
SP
1483 set all_remotes [concat $all_remotes [glob \
1484 -types f \
1485 -tails \
1486 -nocomplain \
1487 -directory $rm_dir *]]
8c0ce436
SP
1488 }
1489
0d4f3eb5
SP
1490 foreach line [array names repo_config remote.*.url] {
1491 if {[regexp ^remote\.(.*)\.url\$ $line line name]} {
8c0ce436
SP
1492 lappend all_remotes $name
1493 }
1494 }
8c0ce436
SP
1495
1496 set all_remotes [lsort -unique $all_remotes]
1497}
1498
c1237ae2
SP
1499proc populate_fetch_menu {m} {
1500 global gitdir all_remotes repo_config
8c0ce436 1501
c1237ae2
SP
1502 foreach r $all_remotes {
1503 set enable 0
1504 if {![catch {set a $repo_config(remote.$r.url)}]} {
1505 if {![catch {set a $repo_config(remote.$r.fetch)}]} {
1506 set enable 1
1507 }
1508 } else {
1509 catch {
1510 set fd [open [file join $gitdir remotes $r] r]
1511 while {[gets $fd n] >= 0} {
1512 if {[regexp {^Pull:[ \t]*([^:]+):} $n]} {
1513 set enable 1
1514 break
1515 }
1516 }
1517 close $fd
1518 }
1519 }
1520
1521 if {$enable} {
1522 $m add command \
1523 -label "Fetch from $r..." \
1524 -command [list fetch_from $r] \
1525 -font font_ui
1526 }
1527 }
1528}
1529
1530proc populate_push_menu {m} {
1531 global gitdir all_remotes repo_config
1532
1533 foreach r $all_remotes {
1534 set enable 0
1535 if {![catch {set a $repo_config(remote.$r.url)}]} {
1536 if {![catch {set a $repo_config(remote.$r.push)}]} {
1537 set enable 1
1538 }
1539 } else {
1540 catch {
1541 set fd [open [file join $gitdir remotes $r] r]
1542 while {[gets $fd n] >= 0} {
1543 if {[regexp {^Push:[ \t]*([^:]+):} $n]} {
1544 set enable 1
1545 break
1546 }
1547 }
1548 close $fd
1549 }
1550 }
1551
1552 if {$enable} {
1553 $m add command \
1554 -label "Push to $r..." \
1555 -command [list push_to $r] \
1556 -font font_ui
1557 }
8c0ce436
SP
1558 }
1559}
1560
d33ba5fa 1561proc populate_pull_menu {m} {
b4946930 1562 global gitdir repo_config all_remotes disable_on_lock
d33ba5fa
SP
1563
1564 foreach remote $all_remotes {
1565 set rb {}
043f7011
SP
1566 if {[array get repo_config remote.$remote.url] ne {}} {
1567 if {[array get repo_config remote.$remote.fetch] ne {}} {
d33ba5fa
SP
1568 regexp {^([^:]+):} \
1569 [lindex $repo_config(remote.$remote.fetch) 0] \
1570 line rb
1571 }
1572 } else {
1573 catch {
1574 set fd [open [file join $gitdir remotes $remote] r]
1575 while {[gets $fd line] >= 0} {
1576 if {[regexp {^Pull:[ \t]*([^:]+):} $line line rb]} {
1577 break
1578 }
1579 }
1580 close $fd
1581 }
1582 }
1583
1584 set rb_short $rb
1585 regsub ^refs/heads/ $rb {} rb_short
043f7011 1586 if {$rb_short ne {}} {
d33ba5fa
SP
1587 $m add command \
1588 -label "Branch $rb_short from $remote..." \
1589 -command [list pull_remote $remote $rb] \
b4946930 1590 -font font_ui
0a462d67
SP
1591 lappend disable_on_lock \
1592 [list $m entryconf [$m index last] -state]
d33ba5fa
SP
1593 }
1594 }
1595}
1596
cb07fc2a
SP
1597######################################################################
1598##
1599## icons
1600
1601set filemask {
1602#define mask_width 14
1603#define mask_height 15
1604static unsigned char mask_bits[] = {
1605 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1606 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1607 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
1608}
1609
1610image create bitmap file_plain -background white -foreground black -data {
1611#define plain_width 14
1612#define plain_height 15
1613static unsigned char plain_bits[] = {
1614 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1615 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
1616 0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1617} -maskdata $filemask
1618
1619image create bitmap file_mod -background white -foreground blue -data {
1620#define mod_width 14
1621#define mod_height 15
1622static unsigned char mod_bits[] = {
1623 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1624 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1625 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1626} -maskdata $filemask
1627
131f503b
SP
1628image create bitmap file_fulltick -background white -foreground "#007000" -data {
1629#define file_fulltick_width 14
1630#define file_fulltick_height 15
1631static unsigned char file_fulltick_bits[] = {
cb07fc2a
SP
1632 0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
1633 0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
1634 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1635} -maskdata $filemask
1636
1637image create bitmap file_parttick -background white -foreground "#005050" -data {
1638#define parttick_width 14
1639#define parttick_height 15
1640static unsigned char parttick_bits[] = {
1641 0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1642 0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
1643 0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1644} -maskdata $filemask
1645
1646image create bitmap file_question -background white -foreground black -data {
1647#define file_question_width 14
1648#define file_question_height 15
1649static unsigned char file_question_bits[] = {
1650 0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
1651 0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
1652 0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1653} -maskdata $filemask
1654
1655image create bitmap file_removed -background white -foreground red -data {
1656#define file_removed_width 14
1657#define file_removed_height 15
1658static unsigned char file_removed_bits[] = {
1659 0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1660 0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
1661 0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
1662} -maskdata $filemask
1663
1664image create bitmap file_merge -background white -foreground blue -data {
1665#define file_merge_width 14
1666#define file_merge_height 15
1667static unsigned char file_merge_bits[] = {
1668 0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
1669 0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1670 0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1671} -maskdata $filemask
1672
6b292675
SP
1673set ui_index .vpane.files.index.list
1674set ui_other .vpane.files.other.list
131f503b 1675set max_status_desc 0
cb07fc2a 1676foreach i {
131f503b
SP
1677 {__ i plain "Unmodified"}
1678 {_M i mod "Modified"}
135f76ed 1679 {M_ i fulltick "Included in commit"}
7fe7e733 1680 {MM i parttick "Partially included"}
131f503b
SP
1681
1682 {_O o plain "Untracked"}
135f76ed 1683 {A_ o fulltick "Added by commit"}
131f503b 1684 {AM o parttick "Partially added"}
6b292675 1685 {AD o question "Added (but now gone)"}
131f503b
SP
1686
1687 {_D i question "Missing"}
135f76ed 1688 {DD i removed "Removed by commit"}
131f503b 1689 {DO i removed "Removed (still exists)"}
a29481e2 1690 {DM i removed "Removed (but modified)"}
131f503b 1691
375f3882 1692 {UD i merge "Merge conflicts"}
131f503b
SP
1693 {UM i merge "Merge conflicts"}
1694 {U_ i merge "Merge conflicts"}
cb07fc2a 1695 } {
131f503b
SP
1696 if {$max_status_desc < [string length [lindex $i 3]]} {
1697 set max_status_desc [string length [lindex $i 3]]
1698 }
043f7011 1699 if {[lindex $i 1] eq {i}} {
6b292675
SP
1700 set all_cols([lindex $i 0]) $ui_index
1701 } else {
1702 set all_cols([lindex $i 0]) $ui_other
1703 }
131f503b
SP
1704 set all_icons([lindex $i 0]) file_[lindex $i 2]
1705 set all_descs([lindex $i 0]) [lindex $i 3]
cb07fc2a
SP
1706}
1707unset filemask i
1708
1709######################################################################
1710##
1711## util
1712
16fccd7a
SP
1713proc is_MacOSX {} {
1714 global tcl_platform tk_library
043f7011
SP
1715 if {$tcl_platform(platform) eq {unix}
1716 && $tcl_platform(os) eq {Darwin}
16fccd7a
SP
1717 && [string match /Library/Frameworks/* $tk_library]} {
1718 return 1
1719 }
1720 return 0
1721}
1722
1723proc bind_button3 {w cmd} {
1724 bind $w <Any-Button-3> $cmd
1725 if {[is_MacOSX]} {
1726 bind $w <Control-Button-1> $cmd
1727 }
1728}
1729
b4946930
SP
1730proc incr_font_size {font {amt 1}} {
1731 set sz [font configure $font -size]
1732 incr sz $amt
1733 font configure $font -size $sz
1734 font configure ${font}bold -size $sz
1735}
1736
6e27d826 1737proc hook_failed_popup {hook msg} {
b4946930 1738 global gitdir appname
6e27d826
SP
1739
1740 set w .hookfail
1741 toplevel $w
6e27d826
SP
1742
1743 frame $w.m
1744 label $w.m.l1 -text "$hook hook failed:" \
1745 -anchor w \
1746 -justify left \
b4946930 1747 -font font_uibold
6e27d826
SP
1748 text $w.m.t \
1749 -background white -borderwidth 1 \
1750 -relief sunken \
1751 -width 80 -height 10 \
b4946930 1752 -font font_diff \
6e27d826
SP
1753 -yscrollcommand [list $w.m.sby set]
1754 label $w.m.l2 \
1755 -text {You must correct the above errors before committing.} \
1756 -anchor w \
1757 -justify left \
b4946930 1758 -font font_uibold
6e27d826
SP
1759 scrollbar $w.m.sby -command [list $w.m.t yview]
1760 pack $w.m.l1 -side top -fill x
1761 pack $w.m.l2 -side bottom -fill x
1762 pack $w.m.sby -side right -fill y
1763 pack $w.m.t -side left -fill both -expand 1
1764 pack $w.m -side top -fill both -expand 1 -padx 5 -pady 10
1765
1766 $w.m.t insert 1.0 $msg
1767 $w.m.t conf -state disabled
1768
1769 button $w.ok -text OK \
1770 -width 15 \
b4946930 1771 -font font_ui \
6e27d826 1772 -command "destroy $w"
1e5c18fb 1773 pack $w.ok -side bottom -anchor e -pady 10 -padx 10
6e27d826
SP
1774
1775 bind $w <Visibility> "grab $w; focus $w"
1776 bind $w <Key-Return> "destroy $w"
d33ba5fa
SP
1777 wm title $w "$appname ([lindex [file split \
1778 [file normalize [file dirname $gitdir]]] \
1779 end]): error"
6e27d826
SP
1780 tkwait window $w
1781}
1782
8c0ce436
SP
1783set next_console_id 0
1784
1785proc new_console {short_title long_title} {
37af79d1
SP
1786 global next_console_id console_data
1787 set w .console[incr next_console_id]
1788 set console_data($w) [list $short_title $long_title]
1789 return [console_init $w]
1790}
1791
1792proc console_init {w} {
1793 global console_cr console_data
b4946930 1794 global gitdir appname M1B
8c0ce436 1795
ee3dc935 1796 set console_cr($w) 1.0
8c0ce436
SP
1797 toplevel $w
1798 frame $w.m
37af79d1 1799 label $w.m.l1 -text "[lindex $console_data($w) 1]:" \
8c0ce436
SP
1800 -anchor w \
1801 -justify left \
b4946930 1802 -font font_uibold
8c0ce436
SP
1803 text $w.m.t \
1804 -background white -borderwidth 1 \
1805 -relief sunken \
1806 -width 80 -height 10 \
b4946930 1807 -font font_diff \
8c0ce436
SP
1808 -state disabled \
1809 -yscrollcommand [list $w.m.sby set]
1e5c18fb
SP
1810 label $w.m.s -text {Working... please wait...} \
1811 -anchor w \
07123f40 1812 -justify left \
b4946930 1813 -font font_uibold
8c0ce436
SP
1814 scrollbar $w.m.sby -command [list $w.m.t yview]
1815 pack $w.m.l1 -side top -fill x
07123f40 1816 pack $w.m.s -side bottom -fill x
8c0ce436
SP
1817 pack $w.m.sby -side right -fill y
1818 pack $w.m.t -side left -fill both -expand 1
1819 pack $w.m -side top -fill both -expand 1 -padx 5 -pady 10
1820
0e794311
SP
1821 menu $w.ctxm -tearoff 0
1822 $w.ctxm add command -label "Copy" \
b4946930 1823 -font font_ui \
0e794311
SP
1824 -command "tk_textCopy $w.m.t"
1825 $w.ctxm add command -label "Select All" \
b4946930 1826 -font font_ui \
0e794311
SP
1827 -command "$w.m.t tag add sel 0.0 end"
1828 $w.ctxm add command -label "Copy All" \
b4946930 1829 -font font_ui \
0e794311
SP
1830 -command "
1831 $w.m.t tag add sel 0.0 end
1832 tk_textCopy $w.m.t
1833 $w.m.t tag remove sel 0.0 end
1834 "
1835
1e5c18fb 1836 button $w.ok -text {Close} \
b4946930 1837 -font font_ui \
8c0ce436
SP
1838 -state disabled \
1839 -command "destroy $w"
1e5c18fb 1840 pack $w.ok -side bottom -anchor e -pady 10 -padx 10
8c0ce436 1841
16fccd7a 1842 bind_button3 $w.m.t "tk_popup $w.ctxm %X %Y"
62aac80b
SP
1843 bind $w.m.t <$M1B-Key-a> "$w.m.t tag add sel 0.0 end;break"
1844 bind $w.m.t <$M1B-Key-A> "$w.m.t tag add sel 0.0 end;break"
8c0ce436 1845 bind $w <Visibility> "focus $w"
d33ba5fa
SP
1846 wm title $w "$appname ([lindex [file split \
1847 [file normalize [file dirname $gitdir]]] \
1848 end]): [lindex $console_data($w) 0]"
8c0ce436
SP
1849 return $w
1850}
1851
d33ba5fa 1852proc console_exec {w cmd {after {}}} {
cc4b1c02
SP
1853 global tcl_platform
1854
1855 # -- Windows tosses the enviroment when we exec our child.
1856 # But most users need that so we have to relogin. :-(
1857 #
043f7011 1858 if {$tcl_platform(platform) eq {windows}} {
cc4b1c02
SP
1859 set cmd [list sh --login -c "cd \"[pwd]\" && [join $cmd { }]"]
1860 }
1861
1862 # -- Tcl won't let us redirect both stdout and stderr to
1863 # the same pipe. So pass it through cat...
1864 #
1865 set cmd [concat | $cmd |& cat]
1866
1867 set fd_f [open $cmd r]
ee3dc935 1868 fconfigure $fd_f -blocking 0 -translation binary
d33ba5fa 1869 fileevent $fd_f readable [list console_read $w $fd_f $after]
cc4b1c02
SP
1870}
1871
d33ba5fa 1872proc console_read {w fd after} {
37af79d1 1873 global console_cr console_data
ee3dc935 1874
ee3dc935 1875 set buf [read $fd]
043f7011 1876 if {$buf ne {}} {
37af79d1
SP
1877 if {![winfo exists $w]} {console_init $w}
1878 $w.m.t conf -state normal
1879 set c 0
1880 set n [string length $buf]
1881 while {$c < $n} {
1882 set cr [string first "\r" $buf $c]
1883 set lf [string first "\n" $buf $c]
24263b77
SP
1884 if {$cr < 0} {set cr [expr {$n + 1}]}
1885 if {$lf < 0} {set lf [expr {$n + 1}]}
37af79d1
SP
1886
1887 if {$lf < $cr} {
1888 $w.m.t insert end [string range $buf $c $lf]
1889 set console_cr($w) [$w.m.t index {end -1c}]
1890 set c $lf
1891 incr c
1892 } else {
1893 $w.m.t delete $console_cr($w) end
1894 $w.m.t insert end "\n"
1895 $w.m.t insert end [string range $buf $c $cr]
1896 set c $cr
1897 incr c
1898 }
ee3dc935 1899 }
37af79d1
SP
1900 $w.m.t conf -state disabled
1901 $w.m.t see end
8c0ce436 1902 }
8c0ce436 1903
07123f40 1904 fconfigure $fd -blocking 1
8c0ce436 1905 if {[eof $fd]} {
07123f40 1906 if {[catch {close $fd}]} {
37af79d1 1907 if {![winfo exists $w]} {console_init $w}
07123f40 1908 $w.m.s conf -background red -text {Error: Command Failed}
37af79d1 1909 $w.ok conf -state normal
d33ba5fa 1910 set ok 0
37af79d1 1911 } elseif {[winfo exists $w]} {
07123f40 1912 $w.m.s conf -background green -text {Success}
37af79d1 1913 $w.ok conf -state normal
d33ba5fa 1914 set ok 1
07123f40 1915 }
ee3dc935 1916 array unset console_cr $w
37af79d1 1917 array unset console_data $w
043f7011 1918 if {$after ne {}} {
d33ba5fa
SP
1919 uplevel #0 $after $ok
1920 }
07123f40 1921 return
8c0ce436 1922 }
07123f40 1923 fconfigure $fd -blocking 0
8c0ce436
SP
1924}
1925
cb07fc2a
SP
1926######################################################################
1927##
1928## ui commands
1929
e210e674 1930set starting_gitk_msg {Please wait... Starting gitk...}
cc4b1c02 1931
cb07fc2a 1932proc do_gitk {} {
e210e674
SP
1933 global tcl_platform ui_status_value starting_gitk_msg
1934
1935 set ui_status_value $starting_gitk_msg
e57ca85e 1936 after 10000 {
043f7011 1937 if {$ui_status_value eq $starting_gitk_msg} {
e210e674
SP
1938 set ui_status_value {Ready.}
1939 }
1940 }
cb07fc2a 1941
043f7011 1942 if {$tcl_platform(platform) eq {windows}} {
cb07fc2a
SP
1943 exec sh -c gitk &
1944 } else {
1945 exec gitk &
1946 }
1947}
1948
d1536c48 1949proc do_repack {} {
93a79912
SP
1950 set w [new_console {repack} \
1951 {Repacking the object database}]
d1536c48
SP
1952 set cmd [list git repack]
1953 lappend cmd -a
1954 lappend cmd -d
1955 console_exec $w $cmd
1956}
1957
444f92d0 1958proc do_fsck_objects {} {
93a79912
SP
1959 set w [new_console {fsck-objects} \
1960 {Verifying the object database with fsck-objects}]
444f92d0
SP
1961 set cmd [list git fsck-objects]
1962 lappend cmd --full
1963 lappend cmd --cache
1964 lappend cmd --strict
1965 console_exec $w $cmd
1966}
1967
b5834d70 1968set is_quitting 0
c4fe7728 1969
cb07fc2a 1970proc do_quit {} {
21d7744f 1971 global gitdir ui_comm is_quitting repo_config commit_type
c4fe7728 1972
b5834d70
SP
1973 if {$is_quitting} return
1974 set is_quitting 1
131f503b 1975
51f4d16b
SP
1976 # -- Stash our current commit buffer.
1977 #
131f503b 1978 set save [file join $gitdir GITGUI_MSG]
ec6b424a 1979 set msg [string trim [$ui_comm get 0.0 end]]
21d7744f
SP
1980 if {![string match amend* $commit_type]
1981 && [$ui_comm edit modified]
1982 && $msg ne {}} {
131f503b
SP
1983 catch {
1984 set fd [open $save w]
1985 puts $fd [string trim [$ui_comm get 0.0 end]]
1986 close $fd
1987 }
21d7744f
SP
1988 } else {
1989 catch {file delete $save}
131f503b
SP
1990 }
1991
51f4d16b
SP
1992 # -- Stash our current window geometry into this repository.
1993 #
1994 set cfg_geometry [list]
1995 lappend cfg_geometry [wm geometry .]
1996 lappend cfg_geometry [lindex [.vpane sash coord 0] 1]
1997 lappend cfg_geometry [lindex [.vpane.files sash coord 0] 0]
1998 if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1999 set rc_geometry {}
2000 }
043f7011 2001 if {$cfg_geometry ne $rc_geometry} {
51f4d16b
SP
2002 catch {exec git repo-config gui.geometry $cfg_geometry}
2003 }
2004
cb07fc2a
SP
2005 destroy .
2006}
2007
2008proc do_rescan {} {
8f52548a 2009 rescan {set ui_status_value {Ready.}}
cb07fc2a
SP
2010}
2011
1461c5f3
SP
2012proc remove_helper {txt paths} {
2013 global file_states current_diff
2014
2015 if {![lock_index begin-update]} return
2016
2017 set pathList [list]
2018 set after {}
2019 foreach path $paths {
2020 switch -glob -- [lindex $file_states($path) 0] {
2021 A? -
2022 M? -
2023 D? {
2024 lappend pathList $path
2025 if {$path eq $current_diff} {
2026 set after {reshow_diff;}
2027 }
2028 }
2029 }
2030 }
2031 if {$pathList eq {}} {
2032 unlock_index
2033 } else {
2034 update_indexinfo \
2035 $txt \
2036 $pathList \
2037 [concat $after {set ui_status_value {Ready.}}]
2038 }
2039}
2040
2041proc do_remove_selection {} {
2042 global current_diff selected_paths
2043
2044 if {[array size selected_paths] > 0} {
2045 remove_helper \
2046 {Removing selected files from commit} \
2047 [array names selected_paths]
2048 } elseif {$current_diff ne {}} {
2049 remove_helper \
2050 "Removing [short_path $current_diff] from commit" \
2051 [list $current_diff]
2052 }
2053}
2054
c4ed879f 2055proc include_helper {txt paths} {
32e0bcab 2056 global file_states current_diff
74e6b12f
SP
2057
2058 if {![lock_index begin-update]} return
2059
2060 set pathList [list]
32e0bcab 2061 set after {}
c4ed879f 2062 foreach path $paths {
375f3882 2063 switch -glob -- [lindex $file_states($path) 0] {
74e6b12f 2064 AM -
54896cf7 2065 AD -
74e6b12f 2066 MM -
375f3882 2067 U? -
74e6b12f 2068 _M -
54896cf7
SP
2069 _D -
2070 _O {
32e0bcab
SP
2071 lappend pathList $path
2072 if {$path eq $current_diff} {
2073 set after {reshow_diff;}
2074 }
2075 }
131f503b 2076 }
74e6b12f 2077 }
043f7011 2078 if {$pathList eq {}} {
74e6b12f
SP
2079 unlock_index
2080 } else {
04b39382 2081 update_index \
c4ed879f 2082 $txt \
04b39382 2083 $pathList \
32e0bcab 2084 [concat $after {set ui_status_value {Ready to commit.}}]
131f503b
SP
2085 }
2086}
2087
c4ed879f
SP
2088proc do_include_selection {} {
2089 global current_diff selected_paths
2090
2091 if {[array size selected_paths] > 0} {
2092 include_helper \
2093 {Including selected files} \
2094 [array names selected_paths]
2095 } elseif {$current_diff ne {}} {
2096 include_helper \
2097 "Including [short_path $current_diff]" \
2098 [list $current_diff]
2099 }
2100}
2101
2102proc do_include_all {} {
2103 global file_states
54896cf7
SP
2104
2105 set paths [list]
2106 foreach path [array names file_states] {
2107 switch -- [lindex $file_states($path) 0] {
2108 AM -
2109 AD -
2110 MM -
2111 _M -
2112 _D {lappend paths $path}
2113 }
2114 }
c4ed879f
SP
2115 include_helper \
2116 {Including all modified files} \
54896cf7 2117 $paths
c4ed879f
SP
2118}
2119
131f503b 2120proc do_signoff {} {
d63efae2 2121 global ui_comm
131f503b 2122
d63efae2
SP
2123 set me [committer_ident]
2124 if {$me eq {}} return
97bf01c4 2125
d63efae2 2126 set sob "Signed-off-by: $me"
1daf1d0c 2127 set last [$ui_comm get {end -1c linestart} {end -1c}]
043f7011 2128 if {$last ne $sob} {
b2c6fcf1 2129 $ui_comm edit separator
043f7011 2130 if {$last ne {}
1daf1d0c
SP
2131 && ![regexp {^[A-Z][A-Za-z]*-[A-Za-z-]+: *} $last]} {
2132 $ui_comm insert end "\n"
2133 }
2134 $ui_comm insert end "\n$sob"
b2c6fcf1 2135 $ui_comm edit separator
97bf01c4 2136 $ui_comm see end
131f503b
SP
2137 }
2138}
2139
24ac9b75
SP
2140proc do_select_commit_type {} {
2141 global commit_type selected_commit_type
2142
2143 if {$selected_commit_type eq {new}
2144 && [string match amend* $commit_type]} {
2145 create_new_commit
2146 } elseif {$selected_commit_type eq {amend}
2147 && ![string match amend* $commit_type]} {
2148 load_last_commit
2149
2150 # The amend request was rejected...
2151 #
2152 if {![string match amend* $commit_type]} {
54896cf7 2153 set selected_commit_type new
24ac9b75
SP
2154 }
2155 }
e57ca85e
SP
2156}
2157
6e27d826 2158proc do_commit {} {
ec6b424a 2159 commit_tree
6e27d826
SP
2160}
2161
82aa2354
SP
2162proc do_about {} {
2163 global appname
2164
2165 set w .about_dialog
2166 toplevel $w
2167 wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
2168
2169 label $w.header -text "About $appname" \
2170 -font font_uibold
2171 pack $w.header -side top -fill x
2172
2173 frame $w.buttons
2174 button $w.buttons.close -text {Close} \
2175 -font font_ui \
2176 -command [list destroy $w]
2177 pack $w.buttons.close -side right
2178 pack $w.buttons -side bottom -fill x -pady 10 -padx 10
2179
2180 label $w.desc \
2181 -text "$appname - a commit creation tool for Git.
2182
2183