Andrew's git / gitweb.git / git-gui/git-gui.sh
?
git-gui / git-gui.shon commit Merge branch 'hb/maint-send-email-quote-recipients' (2c0577f)
   1#!/bin/sh
   2# Tcl ignores the next line -*- tcl -*- \
   3 if test "z$*" = zversion \
   4 || test "z$*" = z--version; \
   5 then \
   6        echo 'git-gui version @@GITGUI_VERSION@@'; \
   7        exit; \
   8 fi; \
   9 argv0=$0; \
  10 exec wish "$argv0" -- "$@"
  11
  12set appvers {@@GITGUI_VERSION@@}
  13set copyright [encoding convertfrom utf-8 {
  14Copyright © 2006, 2007 Shawn Pearce, et. al.
  15
  16This program is free software; you can redistribute it and/or modify
  17it under the terms of the GNU General Public License as published by
  18the Free Software Foundation; either version 2 of the License, or
  19(at your option) any later version.
  20
  21This program is distributed in the hope that it will be useful,
  22but WITHOUT ANY WARRANTY; without even the implied warranty of
  23MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24GNU General Public License for more details.
  25
  26You should have received a copy of the GNU General Public License
  27along with this program; if not, write to the Free Software
  28Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA}]
  29
  30######################################################################
  31##
  32## Tcl/Tk sanity check
  33
  34if {[catch {package require Tcl 8.4} err]
  35 || [catch {package require Tk  8.4} err]
  36} {
  37        catch {wm withdraw .}
  38        tk_messageBox \
  39                -icon error \
  40                -type ok \
  41                -title [mc "git-gui: fatal error"] \
  42                -message $err
  43        exit 1
  44}
  45
  46catch {rename send {}} ; # What an evil concept...
  47
  48######################################################################
  49##
  50## locate our library
  51
  52set oguilib {@@GITGUI_LIBDIR@@}
  53set oguirel {@@GITGUI_RELATIVE@@}
  54if {$oguirel eq {1}} {
  55        set oguilib [file dirname [file dirname [file normalize $argv0]]]
  56        set oguilib [file join $oguilib share git-gui lib]
  57        set oguimsg [file join $oguilib msgs]
  58} elseif {[string match @@* $oguirel]} {
  59        set oguilib [file join [file dirname [file normalize $argv0]] lib]
  60        set oguimsg [file join [file dirname [file normalize $argv0]] po]
  61} else {
  62        set oguimsg [file join $oguilib msgs]
  63}
  64unset oguirel
  65
  66######################################################################
  67##
  68## enable verbose loading?
  69
  70if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
  71        unset _verbose
  72        rename auto_load real__auto_load
  73        proc auto_load {name args} {
  74                puts stderr "auto_load $name"
  75                return [uplevel 1 real__auto_load $name $args]
  76        }
  77        rename source real__source
  78        proc source {name} {
  79                puts stderr "source    $name"
  80                uplevel 1 real__source $name
  81        }
  82}
  83
  84######################################################################
  85##
  86## Internationalization (i18n) through msgcat and gettext. See
  87## http://www.gnu.org/software/gettext/manual/html_node/Tcl.html
  88
  89package require msgcat
  90
  91proc _mc_trim {fmt} {
  92        set cmk [string first @@ $fmt]
  93        if {$cmk > 0} {
  94                return [string range $fmt 0 [expr {$cmk - 1}]]
  95        }
  96        return $fmt
  97}
  98
  99proc mc {en_fmt args} {
 100        set fmt [_mc_trim [::msgcat::mc $en_fmt]]
 101        if {[catch {set msg [eval [list format $fmt] $args]} err]} {
 102                set msg [eval [list format [_mc_trim $en_fmt]] $args]
 103        }
 104        return $msg
 105}
 106
 107proc strcat {args} {
 108        return [join $args {}]
 109}
 110
 111::msgcat::mcload $oguimsg
 112unset oguimsg
 113
 114######################################################################
 115##
 116## read only globals
 117
 118set _appname {Git Gui}
 119set _gitdir {}
 120set _gitexec {}
 121set _reponame {}
 122set _iscygwin {}
 123set _search_path {}
 124
 125proc appname {} {
 126        global _appname
 127        return $_appname
 128}
 129
 130proc gitdir {args} {
 131        global _gitdir
 132        if {$args eq {}} {
 133                return $_gitdir
 134        }
 135        return [eval [list file join $_gitdir] $args]
 136}
 137
 138proc gitexec {args} {
 139        global _gitexec
 140        if {$_gitexec eq {}} {
 141                if {[catch {set _gitexec [git --exec-path]} err]} {
 142                        error "Git not installed?\n\n$err"
 143                }
 144                if {[is_Cygwin]} {
 145                        set _gitexec [exec cygpath \
 146                                --windows \
 147                                --absolute \
 148                                $_gitexec]
 149                } else {
 150                        set _gitexec [file normalize $_gitexec]
 151                }
 152        }
 153        if {$args eq {}} {
 154                return $_gitexec
 155        }
 156        return [eval [list file join $_gitexec] $args]
 157}
 158
 159proc reponame {} {
 160        return $::_reponame
 161}
 162
 163proc is_MacOSX {} {
 164        if {[tk windowingsystem] eq {aqua}} {
 165                return 1
 166        }
 167        return 0
 168}
 169
 170proc is_Windows {} {
 171        if {$::tcl_platform(platform) eq {windows}} {
 172                return 1
 173        }
 174        return 0
 175}
 176
 177proc is_Cygwin {} {
 178        global _iscygwin
 179        if {$_iscygwin eq {}} {
 180                if {$::tcl_platform(platform) eq {windows}} {
 181                        if {[catch {set p [exec cygpath --windir]} err]} {
 182                                set _iscygwin 0
 183                        } else {
 184                                set _iscygwin 1
 185                        }
 186                } else {
 187                        set _iscygwin 0
 188                }
 189        }
 190        return $_iscygwin
 191}
 192
 193proc is_enabled {option} {
 194        global enabled_options
 195        if {[catch {set on $enabled_options($option)}]} {return 0}
 196        return $on
 197}
 198
 199proc enable_option {option} {
 200        global enabled_options
 201        set enabled_options($option) 1
 202}
 203
 204proc disable_option {option} {
 205        global enabled_options
 206        set enabled_options($option) 0
 207}
 208
 209######################################################################
 210##
 211## config
 212
 213proc is_many_config {name} {
 214        switch -glob -- $name {
 215        gui.recentrepo -
 216        remote.*.fetch -
 217        remote.*.push
 218                {return 1}
 219        *
 220                {return 0}
 221        }
 222}
 223
 224proc is_config_true {name} {
 225        global repo_config
 226        if {[catch {set v $repo_config($name)}]} {
 227                return 0
 228        } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
 229                return 1
 230        } else {
 231                return 0
 232        }
 233}
 234
 235proc get_config {name} {
 236        global repo_config
 237        if {[catch {set v $repo_config($name)}]} {
 238                return {}
 239        } else {
 240                return $v
 241        }
 242}
 243
 244######################################################################
 245##
 246## handy utils
 247
 248proc _git_cmd {name} {
 249        global _git_cmd_path
 250
 251        if {[catch {set v $_git_cmd_path($name)}]} {
 252                switch -- $name {
 253                  version   -
 254                --version   -
 255                --exec-path { return [list $::_git $name] }
 256                }
 257
 258                set p [gitexec git-$name$::_search_exe]
 259                if {[file exists $p]} {
 260                        set v [list $p]
 261                } elseif {[is_Windows] && [file exists [gitexec git-$name]]} {
 262                        # Try to determine what sort of magic will make
 263                        # git-$name go and do its thing, because native
 264                        # Tcl on Windows doesn't know it.
 265                        #
 266                        set p [gitexec git-$name]
 267                        set f [open $p r]
 268                        set s [gets $f]
 269                        close $f
 270
 271                        switch -glob -- [lindex $s 0] {
 272                        #!*sh     { set i sh     }
 273                        #!*perl   { set i perl   }
 274                        #!*python { set i python }
 275                        default   { error "git-$name is not supported: $s" }
 276                        }
 277
 278                        upvar #0 _$i interp
 279                        if {![info exists interp]} {
 280                                set interp [_which $i]
 281                        }
 282                        if {$interp eq {}} {
 283                                error "git-$name requires $i (not in PATH)"
 284                        }
 285                        set v [concat [list $interp] [lrange $s 1 end] [list $p]]
 286                } else {
 287                        # Assume it is builtin to git somehow and we
 288                        # aren't actually able to see a file for it.
 289                        #
 290                        set v [list $::_git $name]
 291                }
 292                set _git_cmd_path($name) $v
 293        }
 294        return $v
 295}
 296
 297proc _which {what} {
 298        global env _search_exe _search_path
 299
 300        if {$_search_path eq {}} {
 301                if {[is_Cygwin] && [regexp {^(/|\.:)} $env(PATH)]} {
 302                        set _search_path [split [exec cygpath \
 303                                --windows \
 304                                --path \
 305                                --absolute \
 306                                $env(PATH)] {;}]
 307                        set _search_exe .exe
 308                } elseif {[is_Windows]} {
 309                        set gitguidir [file dirname [info script]]
 310                        regsub -all ";" $gitguidir "\\;" gitguidir
 311                        set env(PATH) "$gitguidir;$env(PATH)"
 312                        set _search_path [split $env(PATH) {;}]
 313                        set _search_exe .exe
 314                } else {
 315                        set _search_path [split $env(PATH) :]
 316                        set _search_exe {}
 317                }
 318        }
 319
 320        foreach p $_search_path {
 321                set p [file join $p $what$_search_exe]
 322                if {[file exists $p]} {
 323                        return [file normalize $p]
 324                }
 325        }
 326        return {}
 327}
 328
 329proc _lappend_nice {cmd_var} {
 330        global _nice
 331        upvar $cmd_var cmd
 332
 333        if {![info exists _nice]} {
 334                set _nice [_which nice]
 335        }
 336        if {$_nice ne {}} {
 337                lappend cmd $_nice
 338        }
 339}
 340
 341proc git {args} {
 342        set opt [list exec]
 343
 344        while {1} {
 345                switch -- [lindex $args 0] {
 346                --nice {
 347                        _lappend_nice opt
 348                }
 349
 350                default {
 351                        break
 352                }
 353
 354                }
 355
 356                set args [lrange $args 1 end]
 357        }
 358
 359        set cmdp [_git_cmd [lindex $args 0]]
 360        set args [lrange $args 1 end]
 361
 362        return [eval $opt $cmdp $args]
 363}
 364
 365proc _open_stdout_stderr {cmd} {
 366        if {[catch {
 367                        set fd [open $cmd r]
 368                } err]} {
 369                if {   [lindex $cmd end] eq {2>@1}
 370                    && $err eq {can not find channel named "1"}
 371                        } {
 372                        # Older versions of Tcl 8.4 don't have this 2>@1 IO
 373                        # redirect operator.  Fallback to |& cat for those.
 374                        # The command was not actually started, so its safe
 375                        # to try to start it a second time.
 376                        #
 377                        set fd [open [concat \
 378                                [lrange $cmd 0 end-1] \
 379                                [list |& cat] \
 380                                ] r]
 381                } else {
 382                        error $err
 383                }
 384        }
 385        fconfigure $fd -eofchar {}
 386        return $fd
 387}
 388
 389proc git_read {args} {
 390        set opt [list |]
 391
 392        while {1} {
 393                switch -- [lindex $args 0] {
 394                --nice {
 395                        _lappend_nice opt
 396                }
 397
 398                --stderr {
 399                        lappend args 2>@1
 400                }
 401
 402                default {
 403                        break
 404                }
 405
 406                }
 407
 408                set args [lrange $args 1 end]
 409        }
 410
 411        set cmdp [_git_cmd [lindex $args 0]]
 412        set args [lrange $args 1 end]
 413
 414        return [_open_stdout_stderr [concat $opt $cmdp $args]]
 415}
 416
 417proc git_write {args} {
 418        set opt [list |]
 419
 420        while {1} {
 421                switch -- [lindex $args 0] {
 422                --nice {
 423                        _lappend_nice opt
 424                }
 425
 426                default {
 427                        break
 428                }
 429
 430                }
 431
 432                set args [lrange $args 1 end]
 433        }
 434
 435        set cmdp [_git_cmd [lindex $args 0]]
 436        set args [lrange $args 1 end]
 437
 438        return [open [concat $opt $cmdp $args] w]
 439}
 440
 441proc githook_read {hook_name args} {
 442        set pchook [gitdir hooks $hook_name]
 443        lappend args 2>@1
 444
 445        # On Cygwin [file executable] might lie so we need to ask
 446        # the shell if the hook is executable.  Yes that's annoying.
 447        #
 448        if {[is_Cygwin]} {
 449                upvar #0 _sh interp
 450                if {![info exists interp]} {
 451                        set interp [_which sh]
 452                }
 453                if {$interp eq {}} {
 454                        error "hook execution requires sh (not in PATH)"
 455                }
 456
 457                set scr {if test -x "$1";then exec "$@";fi}
 458                set sh_c [list | $interp -c $scr $interp $pchook]
 459                return [_open_stdout_stderr [concat $sh_c $args]]
 460        }
 461
 462        if {[file executable $pchook]} {
 463                return [_open_stdout_stderr [concat [list | $pchook] $args]]
 464        }
 465
 466        return {}
 467}
 468
 469proc sq {value} {
 470        regsub -all ' $value "'\\''" value
 471        return "'$value'"
 472}
 473
 474proc load_current_branch {} {
 475        global current_branch is_detached
 476
 477        set fd [open [gitdir HEAD] r]
 478        if {[gets $fd ref] < 1} {
 479                set ref {}
 480        }
 481        close $fd
 482
 483        set pfx {ref: refs/heads/}
 484        set len [string length $pfx]
 485        if {[string equal -length $len $pfx $ref]} {
 486                # We're on a branch.  It might not exist.  But
 487                # HEAD looks good enough to be a branch.
 488                #
 489                set current_branch [string range $ref $len end]
 490                set is_detached 0
 491        } else {
 492                # Assume this is a detached head.
 493                #
 494                set current_branch HEAD
 495                set is_detached 1
 496        }
 497}
 498
 499auto_load tk_optionMenu
 500rename tk_optionMenu real__tkOptionMenu
 501proc tk_optionMenu {w varName args} {
 502        set m [eval real__tkOptionMenu $w $varName $args]
 503        $m configure -font font_ui
 504        $w configure -font font_ui
 505        return $m
 506}
 507
 508proc rmsel_tag {text} {
 509        $text tag conf sel \
 510                -background [$text cget -background] \
 511                -foreground [$text cget -foreground] \
 512                -borderwidth 0
 513        $text tag conf in_sel -background lightgray
 514        bind $text <Motion> break
 515        return $text
 516}
 517
 518set root_exists 0
 519bind . <Visibility> {
 520        bind . <Visibility> {}
 521        set root_exists 1
 522}
 523
 524if {[is_Windows]} {
 525        wm iconbitmap . -default $oguilib/git-gui.ico
 526}
 527
 528######################################################################
 529##
 530## config defaults
 531
 532set cursor_ptr arrow
 533font create font_diff -family Courier -size 10
 534font create font_ui
 535catch {
 536        label .dummy
 537        eval font configure font_ui [font actual [.dummy cget -font]]
 538        destroy .dummy
 539}
 540
 541font create font_uiitalic
 542font create font_uibold
 543font create font_diffbold
 544font create font_diffitalic
 545
 546foreach class {Button Checkbutton Entry Label
 547                Labelframe Listbox Menu Message
 548                Radiobutton Spinbox Text} {
 549        option add *$class.font font_ui
 550}
 551unset class
 552
 553if {[is_Windows] || [is_MacOSX]} {
 554        option add *Menu.tearOff 0
 555}
 556
 557if {[is_MacOSX]} {
 558        set M1B M1
 559        set M1T Cmd
 560} else {
 561        set M1B Control
 562        set M1T Ctrl
 563}
 564
 565proc bind_button3 {w cmd} {
 566        bind $w <Any-Button-3> $cmd
 567        if {[is_MacOSX]} {
 568                # Mac OS X sends Button-2 on right click through three-button mouse,
 569                # or through trackpad right-clicking (two-finger touch + click).
 570                bind $w <Any-Button-2> $cmd
 571                bind $w <Control-Button-1> $cmd
 572        }
 573}
 574
 575proc apply_config {} {
 576        global repo_config font_descs
 577
 578        foreach option $font_descs {
 579                set name [lindex $option 0]
 580                set font [lindex $option 1]
 581                if {[catch {
 582                        set need_weight 1
 583                        foreach {cn cv} $repo_config(gui.$name) {
 584                                if {$cn eq {-weight}} {
 585                                        set need_weight 0
 586                                }
 587                                font configure $font $cn $cv
 588                        }
 589                        if {$need_weight} {
 590                                font configure $font -weight normal
 591                        }
 592                        } err]} {
 593                        error_popup [strcat [mc "Invalid font specified in %s:" "gui.$name"] "\n\n$err"]
 594                }
 595                foreach {cn cv} [font configure $font] {
 596                        font configure ${font}bold $cn $cv
 597                        font configure ${font}italic $cn $cv
 598                }
 599                font configure ${font}bold -weight bold
 600                font configure ${font}italic -slant italic
 601        }
 602}
 603
 604set default_config(branch.autosetupmerge) true
 605set default_config(merge.diffstat) true
 606set default_config(merge.summary) false
 607set default_config(merge.verbosity) 2
 608set default_config(user.name) {}
 609set default_config(user.email) {}
 610
 611set default_config(gui.matchtrackingbranch) false
 612set default_config(gui.pruneduringfetch) false
 613set default_config(gui.trustmtime) false
 614set default_config(gui.diffcontext) 5
 615set default_config(gui.commitmsgwidth) 75
 616set default_config(gui.newbranchtemplate) {}
 617set default_config(gui.spellingdictionary) {}
 618set default_config(gui.fontui) [font configure font_ui]
 619set default_config(gui.fontdiff) [font configure font_diff]
 620set font_descs {
 621        {fontui   font_ui   {mc "Main Font"}}
 622        {fontdiff font_diff {mc "Diff/Console Font"}}
 623}
 624
 625######################################################################
 626##
 627## find git
 628
 629set _git  [_which git]
 630if {$_git eq {}} {
 631        catch {wm withdraw .}
 632        tk_messageBox \
 633                -icon error \
 634                -type ok \
 635                -title [mc "git-gui: fatal error"] \
 636                -message [mc "Cannot find git in PATH."]
 637        exit 1
 638}
 639
 640######################################################################
 641##
 642## version check
 643
 644if {[catch {set _git_version [git --version]} err]} {
 645        catch {wm withdraw .}
 646        tk_messageBox \
 647                -icon error \
 648                -type ok \
 649                -title [mc "git-gui: fatal error"] \
 650                -message "Cannot determine Git version:
 651
 652$err
 653
 654[appname] requires Git 1.5.0 or later."
 655        exit 1
 656}
 657if {![regsub {^git version } $_git_version {} _git_version]} {
 658        catch {wm withdraw .}
 659        tk_messageBox \
 660                -icon error \
 661                -type ok \
 662                -title [mc "git-gui: fatal error"] \
 663                -message [strcat [mc "Cannot parse Git version string:"] "\n\n$_git_version"]
 664        exit 1
 665}
 666
 667set _real_git_version $_git_version
 668regsub -- {[\-\.]dirty$} $_git_version {} _git_version
 669regsub {\.[0-9]+\.g[0-9a-f]+$} $_git_version {} _git_version
 670regsub {\.rc[0-9]+$} $_git_version {} _git_version
 671regsub {\.GIT$} $_git_version {} _git_version
 672regsub {\.[a-zA-Z]+\.[0-9]+$} $_git_version {} _git_version
 673
 674if {![regexp {^[1-9]+(\.[0-9]+)+$} $_git_version]} {
 675        catch {wm withdraw .}
 676        if {[tk_messageBox \
 677                -icon warning \
 678                -type yesno \
 679                -default no \
 680                -title "[appname]: warning" \
 681                 -message [mc "Git version cannot be determined.
 682
 683%s claims it is version '%s'.
 684
 685%s requires at least Git 1.5.0 or later.
 686
 687Assume '%s' is version 1.5.0?
 688" $_git $_real_git_version [appname] $_real_git_version]] eq {yes}} {
 689                set _git_version 1.5.0
 690        } else {
 691                exit 1
 692        }
 693}
 694unset _real_git_version
 695
 696proc git-version {args} {
 697        global _git_version
 698
 699        switch [llength $args] {
 700        0 {
 701                return $_git_version
 702        }
 703
 704        2 {
 705                set op [lindex $args 0]
 706                set vr [lindex $args 1]
 707                set cm [package vcompare $_git_version $vr]
 708                return [expr $cm $op 0]
 709        }
 710
 711        4 {
 712                set type [lindex $args 0]
 713                set name [lindex $args 1]
 714                set parm [lindex $args 2]
 715                set body [lindex $args 3]
 716
 717                if {($type ne {proc} && $type ne {method})} {
 718                        error "Invalid arguments to git-version"
 719                }
 720                if {[llength $body] < 2 || [lindex $body end-1] ne {default}} {
 721                        error "Last arm of $type $name must be default"
 722                }
 723
 724                foreach {op vr cb} [lrange $body 0 end-2] {
 725                        if {[git-version $op $vr]} {
 726                                return [uplevel [list $type $name $parm $cb]]
 727                        }
 728                }
 729
 730                return [uplevel [list $type $name $parm [lindex $body end]]]
 731        }
 732
 733        default {
 734                error "git-version >= x"
 735        }
 736
 737        }
 738}
 739
 740if {[git-version < 1.5]} {
 741        catch {wm withdraw .}
 742        tk_messageBox \
 743                -icon error \
 744                -type ok \
 745                -title [mc "git-gui: fatal error"] \
 746                -message "[appname] requires Git 1.5.0 or later.
 747
 748You are using [git-version]:
 749
 750[git --version]"
 751        exit 1
 752}
 753
 754######################################################################
 755##
 756## configure our library
 757
 758set idx [file join $oguilib tclIndex]
 759if {[catch {set fd [open $idx r]} err]} {
 760        catch {wm withdraw .}
 761        tk_messageBox \
 762                -icon error \
 763                -type ok \
 764                -title [mc "git-gui: fatal error"] \
 765                -message $err
 766        exit 1
 767}
 768if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
 769        set idx [list]
 770        while {[gets $fd n] >= 0} {
 771                if {$n ne {} && ![string match #* $n]} {
 772                        lappend idx $n
 773                }
 774        }
 775} else {
 776        set idx {}
 777}
 778close $fd
 779
 780if {$idx ne {}} {
 781        set loaded [list]
 782        foreach p $idx {
 783                if {[lsearch -exact $loaded $p] >= 0} continue
 784                source [file join $oguilib $p]
 785                lappend loaded $p
 786        }
 787        unset loaded p
 788} else {
 789        set auto_path [concat [list $oguilib] $auto_path]
 790}
 791unset -nocomplain idx fd
 792
 793######################################################################
 794##
 795## config file parsing
 796
 797git-version proc _parse_config {arr_name args} {
 798        >= 1.5.3 {
 799                upvar $arr_name arr
 800                array unset arr
 801                set buf {}
 802                catch {
 803                        set fd_rc [eval \
 804                                [list git_read config] \
 805                                $args \
 806                                [list --null --list]]
 807                        fconfigure $fd_rc -translation binary
 808                        set buf [read $fd_rc]
 809                        close $fd_rc
 810                }
 811                foreach line [split $buf "\0"] {
 812                        if {[regexp {^([^\n]+)\n(.*)$} $line line name value]} {
 813                                if {[is_many_config $name]} {
 814                                        lappend arr($name) $value
 815                                } else {
 816                                        set arr($name) $value
 817                                }
 818                        }
 819                }
 820        }
 821        default {
 822                upvar $arr_name arr
 823                array unset arr
 824                catch {
 825                        set fd_rc [eval [list git_read config --list] $args]
 826                        while {[gets $fd_rc line] >= 0} {
 827                                if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
 828                                        if {[is_many_config $name]} {
 829                                                lappend arr($name) $value
 830                                        } else {
 831                                                set arr($name) $value
 832                                        }
 833                                }
 834                        }
 835                        close $fd_rc
 836                }
 837        }
 838}
 839
 840proc load_config {include_global} {
 841        global repo_config global_config default_config
 842
 843        if {$include_global} {
 844                _parse_config global_config --global
 845        }
 846        _parse_config repo_config
 847
 848        foreach name [array names default_config] {
 849                if {[catch {set v $global_config($name)}]} {
 850                        set global_config($name) $default_config($name)
 851                }
 852                if {[catch {set v $repo_config($name)}]} {
 853                        set repo_config($name) $default_config($name)
 854                }
 855        }
 856}
 857
 858######################################################################
 859##
 860## feature option selection
 861
 862if {[regexp {^git-(.+)$} [file tail $argv0] _junk subcommand]} {
 863        unset _junk
 864} else {
 865        set subcommand gui
 866}
 867if {$subcommand eq {gui.sh}} {
 868        set subcommand gui
 869}
 870if {$subcommand eq {gui} && [llength $argv] > 0} {
 871        set subcommand [lindex $argv 0]
 872        set argv [lrange $argv 1 end]
 873}
 874
 875enable_option multicommit
 876enable_option branch
 877enable_option transport
 878disable_option bare
 879
 880switch -- $subcommand {
 881browser -
 882blame {
 883        enable_option bare
 884
 885        disable_option multicommit
 886        disable_option branch
 887        disable_option transport
 888}
 889citool {
 890        enable_option singlecommit
 891
 892        disable_option multicommit
 893        disable_option branch
 894        disable_option transport
 895}
 896}
 897
 898######################################################################
 899##
 900## repository setup
 901
 902if {[catch {
 903                set _gitdir $env(GIT_DIR)
 904                set _prefix {}
 905                }]
 906        && [catch {
 907                set _gitdir [git rev-parse --git-dir]
 908                set _prefix [git rev-parse --show-prefix]
 909        } err]} {
 910        load_config 1
 911        apply_config
 912        choose_repository::pick
 913}
 914if {![file isdirectory $_gitdir] && [is_Cygwin]} {
 915        catch {set _gitdir [exec cygpath --windows $_gitdir]}
 916}
 917if {![file isdirectory $_gitdir]} {
 918        catch {wm withdraw .}
 919        error_popup [strcat [mc "Git directory not found:"] "\n\n$_gitdir"]
 920        exit 1
 921}
 922if {$_prefix ne {}} {
 923        regsub -all {[^/]+/} $_prefix ../ cdup
 924        if {[catch {cd $cdup} err]} {
 925                catch {wm withdraw .}
 926                error_popup [strcat [mc "Cannot move to top of working directory:"] "\n\n$err"]
 927                exit 1
 928        }
 929        unset cdup
 930} elseif {![is_enabled bare]} {
 931        if {[lindex [file split $_gitdir] end] ne {.git}} {
 932                catch {wm withdraw .}
 933                error_popup [strcat [mc "Cannot use funny .git directory:"] "\n\n$_gitdir"]
 934                exit 1
 935        }
 936        if {[catch {cd [file dirname $_gitdir]} err]} {
 937                catch {wm withdraw .}
 938                error_popup [strcat [mc "No working directory"] " [file dirname $_gitdir]:\n\n$err"]
 939                exit 1
 940        }
 941}
 942set _reponame [file split [file normalize $_gitdir]]
 943if {[lindex $_reponame end] eq {.git}} {
 944        set _reponame [lindex $_reponame end-1]
 945} else {
 946        set _reponame [lindex $_reponame end]
 947}
 948
 949######################################################################
 950##
 951## global init
 952
 953set current_diff_path {}
 954set current_diff_side {}
 955set diff_actions [list]
 956
 957set HEAD {}
 958set PARENT {}
 959set MERGE_HEAD [list]
 960set commit_type {}
 961set empty_tree {}
 962set current_branch {}
 963set is_detached 0
 964set current_diff_path {}
 965set is_3way_diff 0
 966set selected_commit_type new
 967
 968######################################################################
 969##
 970## task management
 971
 972set rescan_active 0
 973set diff_active 0
 974set last_clicked {}
 975
 976set disable_on_lock [list]
 977set index_lock_type none
 978
 979proc lock_index {type} {
 980        global index_lock_type disable_on_lock
 981
 982        if {$index_lock_type eq {none}} {
 983                set index_lock_type $type
 984                foreach w $disable_on_lock {
 985                        uplevel #0 $w disabled
 986                }
 987                return 1
 988        } elseif {$index_lock_type eq "begin-$type"} {
 989                set index_lock_type $type
 990                return 1
 991        }
 992        return 0
 993}
 994
 995proc unlock_index {} {
 996        global index_lock_type disable_on_lock
 997
 998        set index_lock_type none
 999        foreach w $disable_on_lock {
1000                uplevel #0 $w normal
1001        }
1002}
1003
1004######################################################################
1005##
1006## status
1007
1008proc repository_state {ctvar hdvar mhvar} {
1009        global current_branch
1010        upvar $ctvar ct $hdvar hd $mhvar mh
1011
1012        set mh [list]
1013
1014        load_current_branch
1015        if {[catch {set hd [git rev-parse --verify HEAD]}]} {
1016                set hd {}
1017                set ct initial
1018                return
1019        }
1020
1021        set merge_head [gitdir MERGE_HEAD]
1022        if {[file exists $merge_head]} {
1023                set ct merge
1024                set fd_mh [open $merge_head r]
1025                while {[gets $fd_mh line] >= 0} {
1026                        lappend mh $line
1027                }
1028                close $fd_mh
1029                return
1030        }
1031
1032        set ct normal
1033}
1034
1035proc PARENT {} {
1036        global PARENT empty_tree
1037
1038        set p [lindex $PARENT 0]
1039        if {$p ne {}} {
1040                return $p
1041        }
1042        if {$empty_tree eq {}} {
1043                set empty_tree [git mktree << {}]
1044        }
1045        return $empty_tree
1046}
1047
1048proc rescan {after {honor_trustmtime 1}} {
1049        global HEAD PARENT MERGE_HEAD commit_type
1050        global ui_index ui_workdir ui_comm
1051        global rescan_active file_states
1052        global repo_config
1053
1054        if {$rescan_active > 0 || ![lock_index read]} return
1055
1056        repository_state newType newHEAD newMERGE_HEAD
1057        if {[string match amend* $commit_type]
1058                && $newType eq {normal}
1059                && $newHEAD eq $HEAD} {
1060        } else {
1061                set HEAD $newHEAD
1062                set PARENT $newHEAD
1063                set MERGE_HEAD $newMERGE_HEAD
1064                set commit_type $newType
1065        }
1066
1067        array unset file_states
1068
1069        if {!$::GITGUI_BCK_exists &&
1070                (![$ui_comm edit modified]
1071                || [string trim [$ui_comm get 0.0 end]] eq {})} {
1072                if {[string match amend* $commit_type]} {
1073                } elseif {[load_message GITGUI_MSG]} {
1074                } elseif {[load_message MERGE_MSG]} {
1075                } elseif {[load_message SQUASH_MSG]} {
1076                }
1077                $ui_comm edit reset
1078                $ui_comm edit modified false
1079        }
1080
1081        if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
1082                rescan_stage2 {} $after
1083        } else {
1084                set rescan_active 1
1085                ui_status [mc "Refreshing file status..."]
1086                set fd_rf [git_read update-index \
1087                        -q \
1088                        --unmerged \
1089                        --ignore-missing \
1090                        --refresh \
1091                        ]
1092                fconfigure $fd_rf -blocking 0 -translation binary
1093                fileevent $fd_rf readable \
1094                        [list rescan_stage2 $fd_rf $after]
1095        }
1096}
1097
1098if {[is_Cygwin]} {
1099        set is_git_info_link {}
1100        set is_git_info_exclude {}
1101        proc have_info_exclude {} {
1102                global is_git_info_link is_git_info_exclude
1103
1104                if {$is_git_info_link eq {}} {
1105                        set is_git_info_link [file isfile [gitdir info.lnk]]
1106                }
1107
1108                if {$is_git_info_link} {
1109                        if {$is_git_info_exclude eq {}} {
1110                                if {[catch {exec test -f [gitdir info exclude]}]} {
1111                                        set is_git_info_exclude 0
1112                                } else {
1113                                        set is_git_info_exclude 1
1114                                }
1115                        }
1116                        return $is_git_info_exclude
1117                } else {
1118                        return [file readable [gitdir info exclude]]
1119                }
1120        }
1121} else {
1122        proc have_info_exclude {} {
1123                return [file readable [gitdir info exclude]]
1124        }
1125}
1126
1127proc rescan_stage2 {fd after} {
1128        global rescan_active buf_rdi buf_rdf buf_rlo
1129
1130        if {$fd ne {}} {
1131                read $fd
1132                if {![eof $fd]} return
1133                close $fd
1134        }
1135
1136        set ls_others [list --exclude-per-directory=.gitignore]
1137        if {[have_info_exclude]} {
1138                lappend ls_others "--exclude-from=[gitdir info exclude]"
1139        }
1140        set user_exclude [get_config core.excludesfile]
1141        if {$user_exclude ne {} && [file readable $user_exclude]} {
1142                lappend ls_others "--exclude-from=$user_exclude"
1143        }
1144
1145        set buf_rdi {}
1146        set buf_rdf {}
1147        set buf_rlo {}
1148
1149        set rescan_active 3
1150        ui_status [mc "Scanning for modified files ..."]
1151        set fd_di [git_read diff-index --cached -z [PARENT]]
1152        set fd_df [git_read diff-files -z]
1153        set fd_lo [eval git_read ls-files --others -z $ls_others]
1154
1155        fconfigure $fd_di -blocking 0 -translation binary -encoding binary
1156        fconfigure $fd_df -blocking 0 -translation binary -encoding binary
1157        fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
1158        fileevent $fd_di readable [list read_diff_index $fd_di $after]
1159        fileevent $fd_df readable [list read_diff_files $fd_df $after]
1160        fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
1161}
1162
1163proc load_message {file} {
1164        global ui_comm
1165
1166        set f [gitdir $file]
1167        if {[file isfile $f]} {
1168                if {[catch {set fd [open $f r]}]} {
1169                        return 0
1170                }
1171                fconfigure $fd -eofchar {}
1172                set content [string trim [read $fd]]
1173                close $fd
1174                regsub -all -line {[ \r\t]+$} $content {} content
1175                $ui_comm delete 0.0 end
1176                $ui_comm insert end $content
1177                return 1
1178        }
1179        return 0
1180}
1181
1182proc read_diff_index {fd after} {
1183        global buf_rdi
1184
1185        append buf_rdi [read $fd]
1186        set c 0
1187        set n [string length $buf_rdi]
1188        while {$c < $n} {
1189                set z1 [string first "\0" $buf_rdi $c]
1190                if {$z1 == -1} break
1191                incr z1
1192                set z2 [string first "\0" $buf_rdi $z1]
1193                if {$z2 == -1} break
1194
1195                incr c
1196                set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
1197                set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
1198                merge_state \
1199                        [encoding convertfrom $p] \
1200                        [lindex $i 4]? \
1201                        [list [lindex $i 0] [lindex $i 2]] \
1202                        [list]
1203                set c $z2
1204                incr c
1205        }
1206        if {$c < $n} {
1207                set buf_rdi [string range $buf_rdi $c end]
1208        } else {
1209                set buf_rdi {}
1210        }
1211
1212        rescan_done $fd buf_rdi $after
1213}
1214
1215proc read_diff_files {fd after} {
1216        global buf_rdf
1217
1218        append buf_rdf [read $fd]
1219        set c 0
1220        set n [string length $buf_rdf]
1221        while {$c < $n} {
1222                set z1 [string first "\0" $buf_rdf $c]
1223                if {$z1 == -1} break
1224                incr z1
1225                set z2 [string first "\0" $buf_rdf $z1]
1226                if {$z2 == -1} break
1227
1228                incr c
1229                set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
1230                set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
1231                merge_state \
1232                        [encoding convertfrom $p] \
1233                        ?[lindex $i 4] \
1234                        [list] \
1235                        [list [lindex $i 0] [lindex $i 2]]
1236                set c $z2
1237                incr c
1238        }
1239        if {$c < $n} {
1240                set buf_rdf [string range $buf_rdf $c end]
1241        } else {
1242                set buf_rdf {}
1243        }
1244
1245        rescan_done $fd buf_rdf $after
1246}
1247
1248proc read_ls_others {fd after} {
1249        global buf_rlo
1250
1251        append buf_rlo [read $fd]
1252        set pck [split $buf_rlo "\0"]
1253        set buf_rlo [lindex $pck end]
1254        foreach p [lrange $pck 0 end-1] {
1255                set p [encoding convertfrom $p]
1256                if {[string index $p end] eq {/}} {
1257                        set p [string range $p 0 end-1]
1258                }
1259                merge_state $p ?O
1260        }
1261        rescan_done $fd buf_rlo $after
1262}
1263
1264proc rescan_done {fd buf after} {
1265        global rescan_active current_diff_path
1266        global file_states repo_config
1267        upvar $buf to_clear
1268
1269        if {![eof $fd]} return
1270        set to_clear {}
1271        close $fd
1272        if {[incr rescan_active -1] > 0} return
1273
1274        prune_selection
1275        unlock_index
1276        display_all_files
1277        if {$current_diff_path ne {}} reshow_diff
1278        uplevel #0 $after
1279}
1280
1281proc prune_selection {} {
1282        global file_states selected_paths
1283
1284        foreach path [array names selected_paths] {
1285                if {[catch {set still_here $file_states($path)}]} {
1286                        unset selected_paths($path)
1287                }
1288        }
1289}
1290
1291######################################################################
1292##
1293## ui helpers
1294
1295proc mapicon {w state path} {
1296        global all_icons
1297
1298        if {[catch {set r $all_icons($state$w)}]} {
1299                puts "error: no icon for $w state={$state} $path"
1300                return file_plain
1301        }
1302        return $r
1303}
1304
1305proc mapdesc {state path} {
1306        global all_descs
1307
1308        if {[catch {set r $all_descs($state)}]} {
1309                puts "error: no desc for state={$state} $path"
1310                return $state
1311        }
1312        return $r
1313}
1314
1315proc ui_status {msg} {
1316        global main_status
1317        if {[info exists main_status]} {
1318                $main_status show $msg
1319        }
1320}
1321
1322proc ui_ready {{test {}}} {
1323        global main_status
1324        if {[info exists main_status]} {
1325                $main_status show [mc "Ready."] $test
1326        }
1327}
1328
1329proc escape_path {path} {
1330        regsub -all {\\} $path "\\\\" path
1331        regsub -all "\n" $path "\\n" path
1332        return $path
1333}
1334
1335proc short_path {path} {
1336        return [escape_path [lindex [file split $path] end]]
1337}
1338
1339set next_icon_id 0
1340set null_sha1 [string repeat 0 40]
1341
1342proc merge_state {path new_state {head_info {}} {index_info {}}} {
1343        global file_states next_icon_id null_sha1
1344
1345        set s0 [string index $new_state 0]
1346        set s1 [string index $new_state 1]
1347
1348        if {[catch {set info $file_states($path)}]} {
1349                set state __
1350                set icon n[incr next_icon_id]
1351        } else {
1352                set state [lindex $info 0]
1353                set icon [lindex $info 1]
1354                if {$head_info eq {}}  {set head_info  [lindex $info 2]}
1355                if {$index_info eq {}} {set index_info [lindex $info 3]}
1356        }
1357
1358        if     {$s0 eq {?}} {set s0 [string index $state 0]} \
1359        elseif {$s0 eq {_}} {set s0 _}
1360
1361        if     {$s1 eq {?}} {set s1 [string index $state 1]} \
1362        elseif {$s1 eq {_}} {set s1 _}
1363
1364        if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
1365                set head_info [list 0 $null_sha1]
1366        } elseif {$s0 ne {_} && [string index $state 0] eq {_}
1367                && $head_info eq {}} {
1368                set head_info $index_info
1369        }
1370
1371        set file_states($path) [list $s0$s1 $icon \
1372                $head_info $index_info \
1373                ]
1374        return $state
1375}
1376
1377proc display_file_helper {w path icon_name old_m new_m} {
1378        global file_lists
1379
1380        if {$new_m eq {_}} {
1381                set lno [lsearch -sorted -exact $file_lists($w) $path]
1382                if {$lno >= 0} {
1383                        set file_lists($w) [lreplace $file_lists($w) $lno $lno]
1384                        incr lno
1385                        $w conf -state normal
1386                        $w delete $lno.0 [expr {$lno + 1}].0
1387                        $w conf -state disabled
1388                }
1389        } elseif {$old_m eq {_} && $new_m ne {_}} {
1390                lappend file_lists($w) $path
1391                set file_lists($w) [lsort -unique $file_lists($w)]
1392                set lno [lsearch -sorted -exact $file_lists($w) $path]
1393                incr lno
1394                $w conf -state normal
1395                $w image create $lno.0 \
1396                        -align center -padx 5 -pady 1 \
1397                        -name $icon_name \
1398                        -image [mapicon $w $new_m $path]
1399                $w insert $lno.1 "[escape_path $path]\n"
1400                $w conf -state disabled
1401        } elseif {$old_m ne $new_m} {
1402                $w conf -state normal
1403                $w image conf $icon_name -image [mapicon $w $new_m $path]
1404                $w conf -state disabled
1405        }
1406}
1407
1408proc display_file {path state} {
1409        global file_states selected_paths
1410        global ui_index ui_workdir
1411
1412        set old_m [merge_state $path $state]
1413        set s $file_states($path)
1414        set new_m [lindex $s 0]
1415        set icon_name [lindex $s 1]
1416
1417        set o [string index $old_m 0]
1418        set n [string index $new_m 0]
1419        if {$o eq {U}} {
1420                set o _
1421        }
1422        if {$n eq {U}} {
1423                set n _
1424        }
1425        display_file_helper     $ui_index $path $icon_name $o $n
1426
1427        if {[string index $old_m 0] eq {U}} {
1428                set o U
1429        } else {
1430                set o [string index $old_m 1]
1431        }
1432        if {[string index $new_m 0] eq {U}} {
1433                set n U
1434        } else {
1435                set n [string index $new_m 1]
1436        }
1437        display_file_helper     $ui_workdir $path $icon_name $o $n
1438
1439        if {$new_m eq {__}} {
1440                unset file_states($path)
1441                catch {unset selected_paths($path)}
1442        }
1443}
1444
1445proc display_all_files_helper {w path icon_name m} {
1446        global file_lists
1447
1448        lappend file_lists($w) $path
1449        set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
1450        $w image create end \
1451                -align center -padx 5 -pady 1 \
1452                -name $icon_name \
1453                -image [mapicon $w $m $path]
1454        $w insert end "[escape_path $path]\n"
1455}
1456
1457proc display_all_files {} {
1458        global ui_index ui_workdir
1459        global file_states file_lists
1460        global last_clicked
1461
1462        $ui_index conf -state normal
1463        $ui_workdir conf -state normal
1464
1465        $ui_index delete 0.0 end
1466        $ui_workdir delete 0.0 end
1467        set last_clicked {}
1468
1469        set file_lists($ui_index) [list]
1470        set file_lists($ui_workdir) [list]
1471
1472        foreach path [lsort [array names file_states]] {
1473                set s $file_states($path)
1474                set m [lindex $s 0]
1475                set icon_name [lindex $s 1]
1476
1477                set s [string index $m 0]
1478                if {$s ne {U} && $s ne {_}} {
1479                        display_all_files_helper $ui_index $path \
1480                                $icon_name $s
1481                }
1482
1483                if {[string index $m 0] eq {U}} {
1484                        set s U
1485                } else {
1486                        set s [string index $m 1]
1487                }
1488                if {$s ne {_}} {
1489                        display_all_files_helper $ui_workdir $path \
1490                                $icon_name $s
1491                }
1492        }
1493
1494        $ui_index conf -state disabled
1495        $ui_workdir conf -state disabled
1496}
1497
1498######################################################################
1499##
1500## icons
1501
1502set filemask {
1503#define mask_width 14
1504#define mask_height 15
1505static unsigned char mask_bits[] = {
1506   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1507   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
1508   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
1509}
1510
1511image create bitmap file_plain -background white -foreground black -data {
1512#define plain_width 14
1513#define plain_height 15
1514static unsigned char plain_bits[] = {
1515   0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1516   0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
1517   0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1518} -maskdata $filemask
1519
1520image create bitmap file_mod -background white -foreground blue -data {
1521#define mod_width 14
1522#define mod_height 15
1523static unsigned char mod_bits[] = {
1524   0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1525   0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1526   0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1527} -maskdata $filemask
1528
1529image create bitmap file_fulltick -background white -foreground "#007000" -data {
1530#define file_fulltick_width 14
1531#define file_fulltick_height 15
1532static unsigned char file_fulltick_bits[] = {
1533   0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
1534   0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
1535   0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1536} -maskdata $filemask
1537
1538image create bitmap file_parttick -background white -foreground "#005050" -data {
1539#define parttick_width 14
1540#define parttick_height 15
1541static unsigned char parttick_bits[] = {
1542   0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
1543   0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
1544   0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1545} -maskdata $filemask
1546
1547image create bitmap file_question -background white -foreground black -data {
1548#define file_question_width 14
1549#define file_question_height 15
1550static unsigned char file_question_bits[] = {
1551   0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
1552   0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
1553   0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
1554} -maskdata $filemask
1555
1556image create bitmap file_removed -background white -foreground red -data {
1557#define file_removed_width 14
1558#define file_removed_height 15
1559static unsigned char file_removed_bits[] = {
1560   0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
1561   0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
1562   0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
1563} -maskdata $filemask
1564
1565image create bitmap file_merge -background white -foreground blue -data {
1566#define file_merge_width 14
1567#define file_merge_height 15
1568static unsigned char file_merge_bits[] = {
1569   0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
1570   0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
1571   0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
1572} -maskdata $filemask
1573
1574set ui_index .vpane.files.index.list
1575set ui_workdir .vpane.files.workdir.list
1576
1577set all_icons(_$ui_index)   file_plain
1578set all_icons(A$ui_index)   file_fulltick
1579set all_icons(M$ui_index)   file_fulltick
1580set all_icons(D$ui_index)   file_removed
1581set all_icons(U$ui_index)   file_merge
1582
1583set all_icons(_$ui_workdir) file_plain
1584set all_icons(M$ui_workdir) file_mod
1585set all_icons(D$ui_workdir) file_question
1586set all_icons(U$ui_workdir) file_merge
1587set all_icons(O$ui_workdir) file_plain
1588
1589set max_status_desc 0
1590foreach i {
1591                {__ {mc "Unmodified"}}
1592
1593                {_M {mc "Modified, not staged"}}
1594                {M_ {mc "Staged for commit"}}
1595                {MM {mc "Portions staged for commit"}}
1596                {MD {mc "Staged for commit, missing"}}
1597
1598                {_O {mc "Untracked, not staged"}}
1599                {A_ {mc "Staged for commit"}}
1600                {AM {mc "Portions staged for commit"}}
1601                {AD {mc "Staged for commit, missing"}}
1602
1603                {_D {mc "Missing"}}
1604                {D_ {mc "Staged for removal"}}
1605                {DO {mc "Staged for removal, still present"}}
1606
1607                {U_ {mc "Requires merge resolution"}}
1608                {UU {mc "Requires merge resolution"}}
1609                {UM {mc "Requires merge resolution"}}
1610                {UD {mc "Requires merge resolution"}}
1611        } {
1612        set text [eval [lindex $i 1]]
1613        if {$max_status_desc < [string length $text]} {
1614                set max_status_desc [string length $text]
1615        }
1616        set all_descs([lindex $i 0]) $text
1617}
1618unset i
1619
1620######################################################################
1621##
1622## util
1623
1624proc scrollbar2many {list mode args} {
1625        foreach w $list {eval $w $mode $args}
1626}
1627
1628proc many2scrollbar {list mode sb top bottom} {
1629        $sb set $top $bottom
1630        foreach w $list {$w $mode moveto $top}
1631}
1632
1633proc incr_font_size {font {amt 1}} {
1634        set sz [font configure $font -size]
1635        incr sz $amt
1636        font configure $font -size $sz
1637        font configure ${font}bold -size $sz
1638        font configure ${font}italic -size $sz
1639}
1640
1641######################################################################
1642##
1643## ui commands
1644
1645set starting_gitk_msg [mc "Starting gitk... please wait..."]
1646
1647proc do_gitk {revs} {
1648        # -- Always start gitk through whatever we were loaded with.  This
1649        #    lets us bypass using shell process on Windows systems.
1650        #
1651        set exe [file join [file dirname $::_git] gitk]
1652        set cmd [list [info nameofexecutable] $exe]
1653        if {! [file exists $exe]} {
1654                error_popup [mc "Unable to start gitk:\n\n%s does not exist" $exe]
1655        } else {
1656                global env
1657
1658                if {[info exists env(GIT_DIR)]} {
1659                        set old_GIT_DIR $env(GIT_DIR)
1660                } else {
1661                        set old_GIT_DIR {}
1662                }
1663
1664                set pwd [pwd]
1665                cd [file dirname [gitdir]]
1666                set env(GIT_DIR) [file tail [gitdir]]
1667
1668                eval exec $cmd $revs &
1669
1670                if {$old_GIT_DIR eq {}} {
1671                        unset env(GIT_DIR)
1672                } else {
1673                        set env(GIT_DIR) $old_GIT_DIR
1674                }
1675                cd $pwd
1676
1677                ui_status $::starting_gitk_msg
1678                after 10000 {
1679                        ui_ready $starting_gitk_msg
1680                }
1681        }
1682}
1683
1684set is_quitting 0
1685
1686proc do_quit {} {
1687        global ui_comm is_quitting repo_config commit_type
1688        global GITGUI_BCK_exists GITGUI_BCK_i
1689        global ui_comm_spell
1690
1691        if {$is_quitting} return
1692        set is_quitting 1
1693
1694        if {[winfo exists $ui_comm]} {
1695                # -- Stash our current commit buffer.
1696                #
1697                set save [gitdir GITGUI_MSG]
1698                if {$GITGUI_BCK_exists && ![$ui_comm edit modified]} {
1699                        file rename -force [gitdir GITGUI_BCK] $save
1700                        set GITGUI_BCK_exists 0
1701                } else {
1702                        set msg [string trim [$ui_comm get 0.0 end]]
1703                        regsub -all -line {[ \r\t]+$} $msg {} msg
1704                        if {(![string match amend* $commit_type]
1705                                || [$ui_comm edit modified])
1706                                && $msg ne {}} {
1707                                catch {
1708                                        set fd [open $save w]
1709                                        puts -nonewline $fd $msg
1710                                        close $fd
1711                                }
1712                        } else {
1713                                catch {file delete $save}
1714                        }
1715                }
1716
1717                # -- Cancel our spellchecker if its running.
1718                #
1719                if {[info exists ui_comm_spell]} {
1720                        $ui_comm_spell stop
1721                }
1722
1723                # -- Remove our editor backup, its not needed.
1724                #
1725                after cancel $GITGUI_BCK_i
1726                if {$GITGUI_BCK_exists} {
1727                        catch {file delete [gitdir GITGUI_BCK]}
1728                }
1729
1730                # -- Stash our current window geometry into this repository.
1731                #
1732                set cfg_geometry [list]
1733                lappend cfg_geometry [wm geometry .]
1734                lappend cfg_geometry [lindex [.vpane sash coord 0] 0]
1735                lappend cfg_geometry [lindex [.vpane.files sash coord 0] 1]
1736                if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1737                        set rc_geometry {}
1738                }
1739                if {$cfg_geometry ne $rc_geometry} {
1740                        catch {git config gui.geometry $cfg_geometry}
1741                }
1742        }
1743
1744        destroy .
1745}
1746
1747proc do_rescan {} {
1748        rescan ui_ready
1749}
1750
1751proc do_commit {} {
1752        commit_tree
1753}
1754
1755proc toggle_or_diff {w x y} {
1756        global file_states file_lists current_diff_path ui_index ui_workdir
1757        global last_clicked selected_paths
1758
1759        set pos [split [$w index @$x,$y] .]
1760        set lno [lindex $pos 0]
1761        set col [lindex $pos 1]
1762        set path [lindex $file_lists($w) [expr {$lno - 1}]]
1763        if {$path eq {}} {
1764                set last_clicked {}
1765                return
1766        }
1767
1768        set last_clicked [list $w $lno]
1769        array unset selected_paths
1770        $ui_index tag remove in_sel 0.0 end
1771        $ui_workdir tag remove in_sel 0.0 end
1772
1773        if {$col == 0} {
1774                if {$current_diff_path eq $path} {
1775                        set after {reshow_diff;}
1776                } else {
1777                        set after {}
1778                }
1779                if {$w eq $ui_index} {
1780                        update_indexinfo \
1781                                "Unstaging [short_path $path] from commit" \
1782                                [list $path] \
1783                                [concat $after [list ui_ready]]
1784                } elseif {$w eq $ui_workdir} {
1785                        update_index \
1786                                "Adding [short_path $path]" \
1787                                [list $path] \
1788                                [concat $after [list ui_ready]]
1789                }
1790        } else {
1791                show_diff $path $w $lno
1792        }
1793}
1794
1795proc add_one_to_selection {w x y} {
1796        global file_lists last_clicked selected_paths
1797
1798        set lno [lindex [split [$w index @$x,$y] .] 0]
1799        set path [lindex $file_lists($w) [expr {$lno - 1}]]
1800        if {$path eq {}} {
1801                set last_clicked {}
1802                return
1803        }
1804
1805        if {$last_clicked ne {}
1806                && [lindex $last_clicked 0] ne $w} {
1807                array unset selected_paths
1808                [lindex $last_clicked 0] tag remove in_sel 0.0 end
1809        }
1810
1811        set last_clicked [list $w $lno]
1812        if {[catch {set in_sel $selected_paths($path)}]} {
1813                set in_sel 0
1814        }
1815        if {$in_sel} {
1816                unset selected_paths($path)
1817                $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
1818        } else {
1819                set selected_paths($path) 1
1820                $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1821        }
1822}
1823
1824proc add_range_to_selection {w x y} {
1825        global file_lists last_clicked selected_paths
1826
1827        if {[lindex $last_clicked 0] ne $w} {
1828                toggle_or_diff $w $x $y
1829                return
1830        }
1831
1832        set lno [lindex [split [$w index @$x,$y] .] 0]
1833        set lc [lindex $last_clicked 1]
1834        if {$lc < $lno} {
1835                set begin $lc
1836                set end $lno
1837        } else {
1838                set begin $lno
1839                set end $lc
1840        }
1841
1842        foreach path [lrange $file_lists($w) \
1843                [expr {$begin - 1}] \
1844                [expr {$end - 1}]] {
1845                set selected_paths($path) 1
1846        }
1847        $w tag add in_sel $begin.0 [expr {$end + 1}].0
1848}
1849
1850proc show_more_context {} {
1851        global repo_config
1852        if {$repo_config(gui.diffcontext) < 99} {
1853                incr repo_config(gui.diffcontext)
1854                reshow_diff
1855        }
1856}
1857
1858proc show_less_context {} {
1859        global repo_config
1860        if {$repo_config(gui.diffcontext) >= 1} {
1861                incr repo_config(gui.diffcontext) -1
1862                reshow_diff
1863        }
1864}
1865
1866######################################################################
1867##
1868## ui construction
1869
1870load_config 0
1871apply_config
1872set ui_comm {}
1873
1874# -- Menu Bar
1875#
1876menu .mbar -tearoff 0
1877.mbar add cascade -label [mc Repository] -menu .mbar.repository
1878.mbar add cascade -label [mc Edit] -menu .mbar.edit
1879if {[is_enabled branch]} {
1880        .mbar add cascade -label [mc Branch] -menu .mbar.branch
1881}
1882if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1883        .mbar add cascade -label [mc Commit@@noun] -menu .mbar.commit
1884}
1885if {[is_enabled transport]} {
1886        .mbar add cascade -label [mc Merge] -menu .mbar.merge
1887        .mbar add cascade -label [mc Remote] -menu .mbar.remote
1888}
1889. configure -menu .mbar
1890
1891# -- Repository Menu
1892#
1893menu .mbar.repository
1894
1895.mbar.repository add command \
1896        -label [mc "Browse Current Branch's Files"] \
1897        -command {browser::new $current_branch}
1898set ui_browse_current [.mbar.repository index last]
1899.mbar.repository add command \
1900        -label [mc "Browse Branch Files..."] \
1901        -command browser_open::dialog
1902.mbar.repository add separator
1903
1904.mbar.repository add command \
1905        -label [mc "Visualize Current Branch's History"] \
1906        -command {do_gitk $current_branch}
1907set ui_visualize_current [.mbar.repository index last]
1908.mbar.repository add command \
1909        -label [mc "Visualize All Branch History"] \
1910        -command {do_gitk --all}
1911.mbar.repository add separator
1912
1913proc current_branch_write {args} {
1914        global current_branch
1915        .mbar.repository entryconf $::ui_browse_current \
1916                -label [mc "Browse %s's Files" $current_branch]
1917        .mbar.repository entryconf $::ui_visualize_current \
1918                -label [mc "Visualize %s's History" $current_branch]
1919}
1920trace add variable current_branch write current_branch_write
1921
1922if {[is_enabled multicommit]} {
1923        .mbar.repository add command -label [mc "Database Statistics"] \
1924                -command do_stats
1925
1926        .mbar.repository add command -label [mc "Compress Database"] \
1927                -command do_gc
1928
1929        .mbar.repository add command -label [mc "Verify Database"] \
1930                -command do_fsck_objects
1931
1932        .mbar.repository add separator
1933
1934        if {[is_Cygwin]} {
1935                .mbar.repository add command \
1936                        -label [mc "Create Desktop Icon"] \
1937                        -command do_cygwin_shortcut
1938        } elseif {[is_Windows]} {
1939                .mbar.repository add command \
1940                        -label [mc "Create Desktop Icon"] \
1941                        -command do_windows_shortcut
1942        } elseif {[is_MacOSX]} {
1943                .mbar.repository add command \
1944                        -label [mc "Create Desktop Icon"] \
1945                        -command do_macosx_app
1946        }
1947}
1948
1949.mbar.repository add command -label [mc Quit] \
1950        -command do_quit \
1951        -accelerator $M1T-Q
1952
1953# -- Edit Menu
1954#
1955menu .mbar.edit
1956.mbar.edit add command -label [mc Undo] \
1957        -command {catch {[focus] edit undo}} \
1958        -accelerator $M1T-Z
1959.mbar.edit add command -label [mc Redo] \
1960        -command {catch {[focus] edit redo}} \
1961        -accelerator $M1T-Y
1962.mbar.edit add separator
1963.mbar.edit add command -label [mc Cut] \
1964        -command {catch {tk_textCut [focus]}} \
1965        -accelerator $M1T-X
1966.mbar.edit add command -label [mc Copy] \
1967        -command {catch {tk_textCopy [focus]}} \
1968        -accelerator $M1T-C
1969.mbar.edit add command -label [mc Paste] \
1970        -command {catch {tk_textPaste [focus]; [focus] see insert}} \
1971        -accelerator $M1T-V
1972.mbar.edit add command -label [mc Delete] \
1973        -command {catch {[focus] delete sel.first sel.last}} \
1974        -accelerator Del
1975.mbar.edit add separator
1976.mbar.edit add command -label [mc "Select All"] \
1977        -command {catch {[focus] tag add sel 0.0 end}} \
1978        -accelerator $M1T-A
1979
1980# -- Branch Menu
1981#
1982if {[is_enabled branch]} {
1983        menu .mbar.branch
1984
1985        .mbar.branch add command -label [mc "Create..."] \
1986                -command branch_create::dialog \
1987                -accelerator $M1T-N
1988        lappend disable_on_lock [list .mbar.branch entryconf \
1989                [.mbar.branch index last] -state]
1990
1991        .mbar.branch add command -label [mc "Checkout..."] \
1992                -command branch_checkout::dialog \
1993                -accelerator $M1T-O
1994        lappend disable_on_lock [list .mbar.branch entryconf \
1995                [.mbar.branch index last] -state]
1996
1997        .mbar.branch add command -label [mc "Rename..."] \
1998                -command branch_rename::dialog
1999        lappend disable_on_lock [list .mbar.branch entryconf \
2000                [.mbar.branch index last] -state]
2001
2002        .mbar.branch add command -label [mc "Delete..."] \
2003                -command branch_delete::dialog
2004        lappend disable_on_lock [list .mbar.branch entryconf \
2005                [.mbar.branch index last] -state]
2006
2007        .mbar.branch add command -label [mc "Reset..."] \
2008                -command merge::reset_hard
2009        lappend disable_on_lock [list .mbar.branch entryconf \
2010                [.mbar.branch index last] -state]
2011}
2012
2013# -- Commit Menu
2014#
2015if {[is_enabled multicommit] || [is_enabled singlecommit]} {
2016        menu .mbar.commit
2017
2018        .mbar.commit add radiobutton \
2019                -label [mc "New Commit"] \
2020                -command do_select_commit_type \
2021                -variable selected_commit_type \
2022                -value new
2023        lappend disable_on_lock \
2024                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2025
2026        .mbar.commit add radiobutton \
2027                -label [mc "Amend Last Commit"] \
2028                -command do_select_commit_type \
2029                -variable selected_commit_type \
2030                -value amend
2031        lappend disable_on_lock \
2032                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2033
2034        .mbar.commit add separator
2035
2036        .mbar.commit add command -label [mc Rescan] \
2037                -command do_rescan \
2038                -accelerator F5
2039        lappend disable_on_lock \
2040                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2041
2042        .mbar.commit add command -label [mc "Stage To Commit"] \
2043                -command do_add_selection \
2044                -accelerator $M1T-T
2045        lappend disable_on_lock \
2046                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2047
2048        .mbar.commit add command -label [mc "Stage Changed Files To Commit"] \
2049                -command do_add_all \
2050                -accelerator $M1T-I
2051        lappend disable_on_lock \
2052                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2053
2054        .mbar.commit add command -label [mc "Unstage From Commit"] \
2055                -command do_unstage_selection
2056        lappend disable_on_lock \
2057                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2058
2059        .mbar.commit add command -label [mc "Revert Changes"] \
2060                -command do_revert_selection
2061        lappend disable_on_lock \
2062                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2063
2064        .mbar.commit add separator
2065
2066        .mbar.commit add command -label [mc "Show Less Context"] \
2067                -command show_less_context \
2068                -accelerator $M1T-\-
2069
2070        .mbar.commit add command -label [mc "Show More Context"] \
2071                -command show_more_context \
2072                -accelerator $M1T-=
2073
2074        .mbar.commit add separator
2075
2076        .mbar.commit add command -label [mc "Sign Off"] \
2077                -command do_signoff \
2078                -accelerator $M1T-S
2079
2080        .mbar.commit add command -label [mc Commit@@verb] \
2081                -command do_commit \
2082                -accelerator $M1T-Return
2083        lappend disable_on_lock \
2084                [list .mbar.commit entryconf [.mbar.commit index last] -state]
2085}
2086
2087# -- Merge Menu
2088#
2089if {[is_enabled branch]} {
2090        menu .mbar.merge
2091        .mbar.merge add command -label [mc "Local Merge..."] \
2092                -command merge::dialog \
2093                -accelerator $M1T-M
2094        lappend disable_on_lock \
2095                [list .mbar.merge entryconf [.mbar.merge index last] -state]
2096        .mbar.merge add command -label [mc "Abort Merge..."] \
2097                -command merge::reset_hard
2098        lappend disable_on_lock \
2099                [list .mbar.merge entryconf [.mbar.merge index last] -state]
2100}
2101
2102# -- Transport Menu
2103#
2104if {[is_enabled transport]} {
2105        menu .mbar.remote
2106
2107        .mbar.remote add command \
2108                -label [mc "Push..."] \
2109                -command do_push_anywhere \
2110                -accelerator $M1T-P
2111        .mbar.remote add command \
2112                -label [mc "Delete..."] \
2113                -command remote_branch_delete::dialog
2114}
2115
2116if {[is_MacOSX]} {
2117        # -- Apple Menu (Mac OS X only)
2118        #
2119        .mbar add cascade -label Apple -menu .mbar.apple
2120        menu .mbar.apple
2121
2122        .mbar.apple add command -label [mc "About %s" [appname]] \
2123                -command do_about
2124        .mbar.apple add separator
2125        .mbar.apple add command \
2126                -label [mc "Preferences..."] \
2127                -command do_options \
2128                -accelerator $M1T-,
2129        bind . <$M1B-,> do_options
2130} else {
2131        # -- Edit Menu
2132        #
2133        .mbar.edit add separator
2134        .mbar.edit add command -label [mc "Options..."] \
2135                -command do_options
2136}
2137
2138# -- Help Menu
2139#
2140.mbar add cascade -label [mc Help] -menu .mbar.help
2141menu .mbar.help
2142
2143if {![is_MacOSX]} {
2144        .mbar.help add command -label [mc "About %s" [appname]] \
2145                -command do_about
2146}
2147
2148set browser {}
2149catch {set browser $repo_config(instaweb.browser)}
2150set doc_path [file dirname [gitexec]]
2151set doc_path [file join $doc_path Documentation index.html]
2152
2153if {[is_Cygwin]} {
2154        set doc_path [exec cygpath --mixed $doc_path]
2155}
2156
2157if {$browser eq {}} {
2158        if {[is_MacOSX]} {
2159                set browser open
2160        } elseif {[is_Cygwin]} {
2161                set program_files [file dirname [exec cygpath --windir]]
2162                set program_files [file join $program_files {Program Files}]
2163                set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
2164                set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
2165                if {[file exists $firefox]} {
2166                        set browser $firefox
2167                } elseif {[file exists $ie]} {
2168                        set browser $ie
2169                }
2170                unset program_files firefox ie
2171        }
2172}
2173
2174if {[file isfile $doc_path]} {
2175        set doc_url "file:$doc_path"
2176} else {
2177        set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
2178}
2179
2180if {$browser ne {}} {
2181        .mbar.help add command -label [mc "Online Documentation"] \
2182                -command [list exec $browser $doc_url &]
2183}
2184unset browser doc_path doc_url
2185
2186# -- Standard bindings
2187#
2188wm protocol . WM_DELETE_WINDOW do_quit
2189bind all <$M1B-Key-q> do_quit
2190bind all <$M1B-Key-Q> do_quit
2191bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
2192bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
2193
2194set subcommand_args {}
2195proc usage {} {
2196        puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
2197        exit 1
2198}
2199
2200# -- Not a normal commit type invocation?  Do that instead!
2201#
2202switch -- $subcommand {
2203browser -
2204blame {
2205        set subcommand_args {rev? path}
2206        if {$argv eq {}} usage
2207        set head {}
2208        set path {}
2209        set is_path 0
2210        foreach a $argv {
2211                if {$is_path || [file exists $_prefix$a]} {
2212                        if {$path ne {}} usage
2213                        set path $_prefix$a
2214                        break
2215                } elseif {$a eq {--}} {
2216                        if {$path ne {}} {
2217                                if {$head ne {}} usage
2218                                set head $path
2219                                set path {}
2220                        }
2221                        set is_path 1
2222                } elseif {$head eq {}} {
2223                        if {$head ne {}} usage
2224                        set head $a
2225                        set is_path 1
2226                } else {
2227                        usage
2228                }
2229        }
2230        unset is_path
2231
2232        if {$head ne {} && $path eq {}} {
2233                set path $_prefix$head
2234                set head {}
2235        }
2236
2237        if {$head eq {}} {
2238                load_current_branch
2239        } else {
2240                if {[regexp {^[0-9a-f]{1,39}$} $head]} {
2241                        if {[catch {
2242                                        set head [git rev-parse --verify $head]
2243                                } err]} {
2244                                puts stderr $err
2245                                exit 1
2246                        }
2247                }
2248                set current_branch $head
2249        }
2250
2251        switch -- $subcommand {
2252        browser {
2253                if {$head eq {}} {
2254                        if {$path ne {} && [file isdirectory $path]} {
2255                                set head $current_branch
2256                        } else {
2257                                set head $path
2258                                set path {}
2259                        }
2260                }
2261                browser::new $head $path
2262        }
2263        blame   {
2264                if {$head eq {} && ![file exists $path]} {
2265                        puts stderr [mc "fatal: cannot stat path %s: No such file or directory" $path]
2266                        exit 1
2267                }
2268                blame::new $head $path
2269        }
2270        }
2271        return
2272}
2273citool -
2274gui {
2275        if {[llength $argv] != 0} {
2276                puts -nonewline stderr "usage: $argv0"
2277                if {$subcommand ne {gui}
2278                        && [file tail $argv0] ne "git-$subcommand"} {
2279                        puts -nonewline stderr " $subcommand"
2280                }
2281                puts stderr {}
2282                exit 1
2283        }
2284        # fall through to setup UI for commits
2285}
2286default {
2287        puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
2288        exit 1
2289}
2290}
2291
2292# -- Branch Control
2293#
2294frame .branch \
2295        -borderwidth 1 \
2296        -relief sunken
2297label .branch.l1 \
2298        -text [mc "Current Branch:"] \
2299        -anchor w \
2300        -justify left
2301label .branch.cb \
2302        -textvariable current_branch \
2303        -anchor w \
2304        -justify left
2305pack .branch.l1 -side left
2306pack .branch.cb -side left -fill x
2307pack .branch -side top -fill x
2308
2309# -- Main Window Layout
2310#
2311panedwindow .vpane -orient horizontal
2312panedwindow .vpane.files -orient vertical
2313.vpane add .vpane.files -sticky nsew -height 100 -width 200
2314pack .vpane -anchor n -side top -fill both -expand 1
2315
2316# -- Index File List
2317#
2318frame .vpane.files.index -height 100 -width 200
2319label .vpane.files.index.title -text [mc "Staged Changes (Will Commit)"] \
2320        -background lightgreen -foreground black
2321text $ui_index -background white -foreground black \
2322        -borderwidth 0 \
2323        -width 20 -height 10 \
2324        -wrap none \
2325        -cursor $cursor_ptr \
2326        -xscrollcommand {.vpane.files.index.sx set} \
2327        -yscrollcommand {.vpane.files.index.sy set} \
2328        -state disabled
2329scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
2330scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
2331pack .vpane.files.index.title -side top -fill x
2332pack .vpane.files.index.sx -side bottom -fill x
2333pack .vpane.files.index.sy -side right -fill y
2334pack $ui_index -side left -fill both -expand 1
2335
2336# -- Working Directory File List
2337#
2338frame .vpane.files.workdir -height 100 -width 200
2339label .vpane.files.workdir.title -text [mc "Unstaged Changes"] \
2340        -background lightsalmon -foreground black
2341text $ui_workdir -background white -foreground black \
2342        -borderwidth 0 \
2343        -width 20 -height 10 \
2344        -wrap none \
2345        -cursor $cursor_ptr \
2346        -xscrollcommand {.vpane.files.workdir.sx set} \
2347        -yscrollcommand {.vpane.files.workdir.sy set} \
2348        -state disabled
2349scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
2350scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
2351pack .vpane.files.workdir.title -side top -fill x
2352pack .vpane.files.workdir.sx -side bottom -fill x
2353pack .vpane.files.workdir.sy -side right -fill y
2354pack $ui_workdir -side left -fill both -expand 1
2355
2356.vpane.files add .vpane.files.workdir -sticky nsew
2357.vpane.files add .vpane.files.index -sticky nsew
2358
2359foreach i [list $ui_index $ui_workdir] {
2360        rmsel_tag $i
2361        $i tag conf in_diff -background [$i tag cget in_sel -background]
2362}
2363unset i
2364
2365# -- Diff and Commit Area
2366#
2367frame .vpane.lower -height 300 -width 400
2368frame .vpane.lower.commarea
2369frame .vpane.lower.diff -relief sunken -borderwidth 1
2370pack .vpane.lower.diff -fill both -expand 1
2371pack .vpane.lower.commarea -side bottom -fill x
2372.vpane add .vpane.lower -sticky nsew
2373
2374# -- Commit Area Buttons
2375#
2376frame .vpane.lower.commarea.buttons
2377label .vpane.lower.commarea.buttons.l -text {} \
2378        -anchor w \
2379        -justify left
2380pack .vpane.lower.commarea.buttons.l -side top -fill x
2381pack .vpane.lower.commarea.buttons -side left -fill y
2382
2383button .vpane.lower.commarea.buttons.rescan -text [mc Rescan] \
2384        -command do_rescan
2385pack .vpane.lower.commarea.buttons.rescan -side top -fill x
2386lappend disable_on_lock \
2387        {.vpane.lower.commarea.buttons.rescan conf -state}
2388
2389button .vpane.lower.commarea.buttons.incall -text [mc "Stage Changed"] \
2390        -command do_add_all
2391pack .vpane.lower.commarea.buttons.incall -side top -fill x
2392lappend disable_on_lock \
2393        {.vpane.lower.commarea.buttons.incall conf -state}
2394
2395button .vpane.lower.commarea.buttons.signoff -text [mc "Sign Off"] \
2396        -command do_signoff
2397pack .vpane.lower.commarea.buttons.signoff -side top -fill x
2398
2399button .vpane.lower.commarea.buttons.commit -text [mc Commit@@verb] \
2400        -command do_commit
2401pack .vpane.lower.commarea.buttons.commit -side top -fill x
2402lappend disable_on_lock \
2403        {.vpane.lower.commarea.buttons.commit conf -state}
2404
2405button .vpane.lower.commarea.buttons.push -text [mc Push] \
2406        -command do_push_anywhere
2407pack .vpane.lower.commarea.buttons.push -side top -fill x
2408
2409# -- Commit Message Buffer
2410#
2411frame .vpane.lower.commarea.buffer
2412frame .vpane.lower.commarea.buffer.header
2413set ui_comm .vpane.lower.commarea.buffer.t
2414set ui_coml .vpane.lower.commarea.buffer.header.l
2415radiobutton .vpane.lower.commarea.buffer.header.new \
2416        -text [mc "New Commit"] \
2417        -command do_select_commit_type \
2418        -variable selected_commit_type \
2419        -value new
2420lappend disable_on_lock \
2421        [list .vpane.lower.commarea.buffer.header.new conf -state]
2422radiobutton .vpane.lower.commarea.buffer.header.amend \
2423        -text [mc "Amend Last Commit"] \
2424        -command do_select_commit_type \
2425        -variable selected_commit_type \
2426        -value amend
2427lappend disable_on_lock \
2428        [list .vpane.lower.commarea.buffer.header.amend conf -state]
2429label $ui_coml \
2430        -anchor w \
2431        -justify left
2432proc trace_commit_type {varname args} {
2433        global ui_coml commit_type
2434        switch -glob -- $commit_type {
2435        initial       {set txt [mc "Initial Commit Message:"]}
2436        amend         {set txt [mc "Amended Commit Message:"]}
2437        amend-initial {set txt [mc "Amended Initial Commit Message:"]}
2438        amend-merge   {set txt [mc "Amended Merge Commit Message:"]}
2439        merge         {set txt [mc "Merge Commit Message:"]}
2440        *             {set txt [mc "Commit Message:"]}
2441        }
2442        $ui_coml conf -text $txt
2443}
2444trace add variable commit_type write trace_commit_type
2445pack $ui_coml -side left -fill x
2446pack .vpane.lower.commarea.buffer.header.amend -side right
2447pack .vpane.lower.commarea.buffer.header.new -side right
2448
2449text $ui_comm -background white -foreground black \
2450        -borderwidth 1 \
2451        -undo true \
2452        -maxundo 20 \
2453        -autoseparators true \
2454        -relief sunken \
2455        -width $repo_config(gui.commitmsgwidth) -height 9 -wrap none \
2456        -font font_diff \
2457        -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
2458scrollbar .vpane.lower.commarea.buffer.sby \
2459        -command [list $ui_comm yview]
2460pack .vpane.lower.commarea.buffer.header -side top -fill x
2461pack .vpane.lower.commarea.buffer.sby -side right -fill y
2462pack $ui_comm -side left -fill y
2463pack .vpane.lower.commarea.buffer -side left -fill y
2464
2465# -- Commit Message Buffer Context Menu
2466#
2467set ctxm .vpane.lower.commarea.buffer.ctxm
2468menu $ctxm -tearoff 0
2469$ctxm add command \
2470        -label [mc Cut] \
2471        -command {tk_textCut $ui_comm}
2472$ctxm add command \
2473        -label [mc Copy] \
2474        -command {tk_textCopy $ui_comm}
2475$ctxm add command \
2476        -label [mc Paste] \
2477        -command {tk_textPaste $ui_comm}
2478$ctxm add command \
2479        -label [mc Delete] \
2480        -command {$ui_comm delete sel.first sel.last}
2481$ctxm add separator
2482$ctxm add command \
2483        -label [mc "Select All"] \
2484        -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
2485$ctxm add command \
2486        -label [mc "Copy All"] \
2487        -command {
2488                $ui_comm tag add sel 0.0 end
2489                tk_textCopy $ui_comm
2490                $ui_comm tag remove sel 0.0 end
2491        }
2492$ctxm add separator
2493$ctxm add command \
2494        -label [mc "Sign Off"] \
2495        -command do_signoff
2496set ui_comm_ctxm $ctxm
2497
2498# -- Diff Header
2499#
2500proc trace_current_diff_path {varname args} {
2501        global current_diff_path diff_actions file_states
2502        if {$current_diff_path eq {}} {
2503                set s {}
2504                set f {}
2505                set p {}
2506                set o disabled
2507        } else {
2508                set p $current_diff_path
2509                set s [mapdesc [lindex $file_states($p) 0] $p]
2510                set f [mc "File:"]
2511                set p [escape_path $p]
2512                set o normal
2513        }
2514
2515        .vpane.lower.diff.header.status configure -text $s
2516        .vpane.lower.diff.header.file configure -text $f
2517        .vpane.lower.diff.header.path configure -text $p
2518        foreach w $diff_actions {
2519                uplevel #0 $w $o
2520        }
2521}
2522trace add variable current_diff_path write trace_current_diff_path
2523
2524frame .vpane.lower.diff.header -background gold
2525label .vpane.lower.diff.header.status \
2526        -background gold \
2527        -foreground black \
2528        -width $max_status_desc \
2529        -anchor w \
2530        -justify left
2531label .vpane.lower.diff.header.file \
2532        -background gold \
2533        -foreground black \
2534        -anchor w \
2535        -justify left
2536label .vpane.lower.diff.header.path \
2537        -background gold \
2538        -foreground black \
2539        -anchor w \
2540        -justify left
2541pack .vpane.lower.diff.header.status -side left
2542pack .vpane.lower.diff.header.file -side left
2543pack .vpane.lower.diff.header.path -fill x
2544set ctxm .vpane.lower.diff.header.ctxm
2545menu $ctxm -tearoff 0
2546$ctxm add command \
2547        -label [mc Copy] \
2548        -command {
2549                clipboard clear
2550                clipboard append \
2551                        -format STRING \
2552                        -type STRING \
2553                        -- $current_diff_path
2554        }
2555lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2556bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
2557
2558# -- Diff Body
2559#
2560frame .vpane.lower.diff.body
2561set ui_diff .vpane.lower.diff.body.t
2562text $ui_diff -background white -foreground black \
2563        -borderwidth 0 \
2564        -width 80 -height 15 -wrap none \
2565        -font font_diff \
2566        -xscrollcommand {.vpane.lower.diff.body.sbx set} \
2567        -yscrollcommand {.vpane.lower.diff.body.sby set} \
2568        -state disabled
2569scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
2570        -command [list $ui_diff xview]
2571scrollbar .vpane.lower.diff.body.sby -orient vertical \
2572        -command [list $ui_diff yview]
2573pack .vpane.lower.diff.body.sbx -side bottom -fill x
2574pack .vpane.lower.diff.body.sby -side right -fill y
2575pack $ui_diff -side left -fill both -expand 1
2576pack .vpane.lower.diff.header -side top -fill x
2577pack .vpane.lower.diff.body -side bottom -fill both -expand 1
2578
2579$ui_diff tag conf d_cr -elide true
2580$ui_diff tag conf d_@ -foreground blue -font font_diffbold
2581$ui_diff tag conf d_+ -foreground {#00a000}
2582$ui_diff tag conf d_- -foreground red
2583
2584$ui_diff tag conf d_++ -foreground {#00a000}
2585$ui_diff tag conf d_-- -foreground red
2586$ui_diff tag conf d_+s \
2587        -foreground {#00a000} \
2588        -background {#e2effa}
2589$ui_diff tag conf d_-s \
2590        -foreground red \
2591        -background {#e2effa}
2592$ui_diff tag conf d_s+ \
2593        -foreground {#00a000} \
2594        -background ivory1
2595$ui_diff tag conf d_s- \
2596        -foreground red \
2597        -background ivory1
2598
2599$ui_diff tag conf d<<<<<<< \
2600        -foreground orange \
2601        -font font_diffbold
2602$ui_diff tag conf d======= \
2603        -foreground orange \
2604        -font font_diffbold
2605$ui_diff tag conf d>>>>>>> \
2606        -foreground orange \
2607        -font font_diffbold
2608
2609$ui_diff tag raise sel
2610
2611# -- Diff Body Context Menu
2612#
2613set ctxm .vpane.lower.diff.body.ctxm
2614menu $ctxm -tearoff 0
2615$ctxm add command \
2616        -label [mc "Apply/Reverse Hunk"] \
2617        -command {apply_hunk $cursorX $cursorY}
2618set ui_diff_applyhunk [$ctxm index last]
2619lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2620$ctxm add separator
2621$ctxm add command \
2622        -label [mc "Show Less Context"] \
2623        -command show_less_context
2624lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2625$ctxm add command \
2626        -label [mc "Show More Context"] \
2627        -command show_more_context
2628lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2629$ctxm add separator
2630$ctxm add command \
2631        -label [mc Refresh] \
2632        -command reshow_diff
2633lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2634$ctxm add command \
2635        -label [mc Copy] \
2636        -command {tk_textCopy $ui_diff}
2637lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2638$ctxm add command \
2639        -label [mc "Select All"] \
2640        -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2641lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2642$ctxm add command \
2643        -label [mc "Copy All"] \
2644        -command {
2645                $ui_diff tag add sel 0.0 end
2646                tk_textCopy $ui_diff
2647                $ui_diff tag remove sel 0.0 end
2648        }
2649lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2650$ctxm add separator
2651$ctxm add command \
2652        -label [mc "Decrease Font Size"] \
2653        -command {incr_font_size font_diff -1}
2654lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2655$ctxm add command \
2656        -label [mc "Increase Font Size"] \
2657        -command {incr_font_size font_diff 1}
2658lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2659$ctxm add separator
2660$ctxm add command -label [mc "Options..."] \
2661        -command do_options
2662proc popup_diff_menu {ctxm x y X Y} {
2663        global current_diff_path file_states
2664        set ::cursorX $x
2665        set ::cursorY $y
2666        if {$::ui_index eq $::current_diff_side} {
2667                set l [mc "Unstage Hunk From Commit"]
2668        } else {
2669                set l [mc "Stage Hunk For Commit"]
2670        }
2671        if {$::is_3way_diff
2672                || $current_diff_path eq {}
2673                || ![info exists file_states($current_diff_path)]
2674                || {_O} eq [lindex $file_states($current_diff_path) 0]} {
2675                set s disabled
2676        } else {
2677                set s normal
2678        }
2679        $ctxm entryconf $::ui_diff_applyhunk -state $s -label $l
2680        tk_popup $ctxm $X $Y
2681}
2682bind_button3 $ui_diff [list popup_diff_menu $ctxm %x %y %X %Y]
2683
2684# -- Status Bar
2685#
2686set main_status [::status_bar::new .status]
2687pack .status -anchor w -side bottom -fill x
2688$main_status show [mc "Initializing..."]
2689
2690# -- Load geometry
2691#
2692catch {
2693set gm $repo_config(gui.geometry)
2694wm geometry . [lindex $gm 0]
2695.vpane sash place 0 \
2696        [lindex $gm 1] \
2697        [lindex [.vpane sash coord 0] 1]
2698.vpane.files sash place 0 \
2699        [lindex [.vpane.files sash coord 0] 0] \
2700        [lindex $gm 2]
2701unset gm
2702}
2703
2704# -- Key Bindings
2705#
2706bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2707bind $ui_comm <$M1B-Key-t> {do_add_selection;break}
2708bind $ui_comm <$M1B-Key-T> {do_add_selection;break}
2709bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2710bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2711bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2712bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2713bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2714bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2715bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2716bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2717bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2718bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2719bind $ui_comm <$M1B-Key-minus> {show_less_context;break}
2720bind $ui_comm <$M1B-Key-KP_Subtract> {show_less_context;break}
2721bind $ui_comm <$M1B-Key-equal> {show_more_context;break}
2722bind $ui_comm <$M1B-Key-plus> {show_more_context;break}
2723bind $ui_comm <$M1B-Key-KP_Add> {show_more_context;break}
2724
2725bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2726bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2727bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2728bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2729bind $ui_diff <$M1B-Key-v> {break}
2730bind $ui_diff <$M1B-Key-V> {break}
2731bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2732bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2733bind $ui_diff <Key-Up>     {catch {%W yview scroll -1 units};break}
2734bind $ui_diff <Key-Down>   {catch {%W yview scroll  1 units};break}
2735bind $ui_diff <Key-Left>   {catch {%W xview scroll -1 units};break}
2736bind $ui_diff <Key-Right>  {catch {%W xview scroll  1 units};break}
2737bind $ui_diff <Key-k>         {catch {%W yview scroll -1 units};break}
2738bind $ui_diff <Key-j>         {catch {%W yview scroll  1 units};break}
2739bind $ui_diff <Key-h>         {catch {%W xview scroll -1 units};break}
2740bind $ui_diff <Key-l>         {catch {%W xview scroll  1 units};break}
2741bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2742bind $ui_diff <Control-Key-f> {catch {%W yview scroll  1 pages};break}
2743bind $ui_diff <Button-1>   {focus %W}
2744
2745if {[is_enabled branch]} {
2746        bind . <$M1B-Key-n> branch_create::dialog
2747        bind . <$M1B-Key-N> branch_create::dialog
2748        bind . <$M1B-Key-o> branch_checkout::dialog
2749        bind . <$M1B-Key-O> branch_checkout::dialog
2750        bind . <$M1B-Key-m> merge::dialog
2751        bind . <$M1B-Key-M> merge::dialog
2752}
2753if {[is_enabled transport]} {
2754        bind . <$M1B-Key-p> do_push_anywhere
2755        bind . <$M1B-Key-P> do_push_anywhere
2756}
2757
2758bind .   <Key-F5>     do_rescan
2759bind .   <$M1B-Key-r> do_rescan
2760bind .   <$M1B-Key-R> do_rescan
2761bind .   <$M1B-Key-s> do_signoff
2762bind .   <$M1B-Key-S> do_signoff
2763bind .   <$M1B-Key-t> do_add_selection
2764bind .   <$M1B-Key-T> do_add_selection
2765bind .   <$M1B-Key-i> do_add_all
2766bind .   <$M1B-Key-I> do_add_all
2767bind .   <$M1B-Key-minus> {show_less_context;break}
2768bind .   <$M1B-Key-KP_Subtract> {show_less_context;break}
2769bind .   <$M1B-Key-equal> {show_more_context;break}
2770bind .   <$M1B-Key-plus> {show_more_context;break}
2771bind .   <$M1B-Key-KP_Add> {show_more_context;break}
2772bind .   <$M1B-Key-Return> do_commit
2773foreach i [list $ui_index $ui_workdir] {
2774        bind $i <Button-1>       "toggle_or_diff         $i %x %y; break"
2775        bind $i <$M1B-Button-1>  "add_one_to_selection   $i %x %y; break"
2776        bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2777}
2778unset i
2779
2780set file_lists($ui_index) [list]
2781set file_lists($ui_workdir) [list]
2782
2783wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2784focus -force $ui_comm
2785
2786# -- Warn the user about environmental problems.  Cygwin's Tcl
2787#    does *not* pass its env array onto any processes it spawns.
2788#    This means that git processes get none of our environment.
2789#
2790if {[is_Cygwin]} {
2791        set ignored_env 0
2792        set suggest_user {}
2793        set msg [mc "Possible environment issues exist.
2794
2795The following environment variables are probably
2796going to be ignored by any Git subprocess run
2797by %s:
2798
2799" [appname]]
2800        foreach name [array names env] {
2801                switch -regexp -- $name {
2802                {^GIT_INDEX_FILE$} -
2803                {^GIT_OBJECT_DIRECTORY$} -
2804                {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2805                {^GIT_DIFF_OPTS$} -
2806                {^GIT_EXTERNAL_DIFF$} -
2807                {^GIT_PAGER$} -
2808                {^GIT_TRACE$} -
2809                {^GIT_CONFIG$} -
2810                {^GIT_CONFIG_LOCAL$} -
2811                {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2812                        append msg " - $name\n"
2813                        incr ignored_env
2814                }
2815                {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2816                        append msg " - $name\n"
2817                        incr ignored_env
2818                        set suggest_user $name
2819                }
2820                }
2821        }
2822        if {$ignored_env > 0} {
2823                append msg [mc "
2824This is due to a known issue with the
2825Tcl binary distributed by Cygwin."]
2826
2827                if {$suggest_user ne {}} {
2828                        append msg [mc "
2829
2830A good replacement for %s
2831is placing values for the user.name and
2832user.email settings into your personal
2833~/.gitconfig file.
2834" $suggest_user]
2835                }
2836                warn_popup $msg
2837        }
2838        unset ignored_env msg suggest_user name
2839}
2840
2841# -- Only initialize complex UI if we are going to stay running.
2842#
2843if {[is_enabled transport]} {
2844        load_all_remotes
2845
2846        set n [.mbar.remote index end]
2847        populate_push_menu
2848        populate_fetch_menu
2849        set n [expr {[.mbar.remote index end] - $n}]
2850        if {$n > 0} {
2851                .mbar.remote insert $n separator
2852        }
2853        unset n
2854}
2855
2856if {[winfo exists $ui_comm]} {
2857        set GITGUI_BCK_exists [load_message GITGUI_BCK]
2858
2859        # -- If both our backup and message files exist use the
2860        #    newer of the two files to initialize the buffer.
2861        #
2862        if {$GITGUI_BCK_exists} {
2863                set m [gitdir GITGUI_MSG]
2864                if {[file isfile $m]} {
2865                        if {[file mtime [gitdir GITGUI_BCK]] > [file mtime $m]} {
2866                                catch {file delete [gitdir GITGUI_MSG]}
2867                        } else {
2868                                $ui_comm delete 0.0 end
2869                                $ui_comm edit reset
2870                                $ui_comm edit modified false
2871                                catch {file delete [gitdir GITGUI_BCK]}
2872                                set GITGUI_BCK_exists 0
2873                        }
2874                }
2875                unset m
2876        }
2877
2878        proc backup_commit_buffer {} {
2879                global ui_comm GITGUI_BCK_exists
2880
2881                set m [$ui_comm edit modified]
2882                if {$m || $GITGUI_BCK_exists} {
2883                        set msg [string trim [$ui_comm get 0.0 end]]
2884                        regsub -all -line {[ \r\t]+$} $msg {} msg
2885
2886                        if {$msg eq {}} {
2887                                if {$GITGUI_BCK_exists} {
2888                                        catch {file delete [gitdir GITGUI_BCK]}
2889                                        set GITGUI_BCK_exists 0
2890                                }
2891                        } elseif {$m} {
2892                                catch {
2893                                        set fd [open [gitdir GITGUI_BCK] w]
2894                                        puts -nonewline $fd $msg
2895                                        close $fd
2896                                        set GITGUI_BCK_exists 1
2897                                }
2898                        }
2899
2900                        $ui_comm edit modified false
2901                }
2902
2903                set ::GITGUI_BCK_i [after 2000 backup_commit_buffer]
2904        }
2905
2906        backup_commit_buffer
2907
2908        # -- If the user has aspell available we can drive it
2909        #    in pipe mode to spellcheck the commit message.
2910        #
2911        set spell_cmd [list |]
2912        set spell_dict [get_config gui.spellingdictionary]
2913        lappend spell_cmd aspell
2914        if {$spell_dict ne {}} {
2915                lappend spell_cmd --master=$spell_dict
2916        }
2917        lappend spell_cmd --mode=none
2918        lappend spell_cmd --encoding=utf-8
2919        lappend spell_cmd pipe
2920        if {$spell_dict eq {none}
2921         || [catch {set spell_fd [open $spell_cmd r+]} spell_err]} {
2922                bind_button3 $ui_comm [list tk_popup $ui_comm_ctxm %X %Y]
2923        } else {
2924                set ui_comm_spell [spellcheck::init \
2925                        $spell_fd \
2926                        $ui_comm \
2927                        $ui_comm_ctxm \
2928                ]
2929        }
2930        unset -nocomplain spell_cmd spell_fd spell_err spell_dict
2931}
2932
2933lock_index begin-read
2934if {![winfo ismapped .]} {
2935        wm deiconify .
2936}
2937after 1 do_rescan
2938if {[is_enabled multicommit]} {
2939        after 1000 hint_gc
2940}