File: git-gui.sh

package info (click to toggle)
git 1%3A2.51.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 61,616 kB
  • sloc: ansic: 304,617; sh: 259,866; perl: 25,871; tcl: 21,754; makefile: 4,158; python: 3,442; javascript: 772; csh: 45
file content (17 lines) | stat: -rwxr-xr-x 451 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/bin/sh
# Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "$@"

if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
	set workdir [lindex $argv 1]
	cd $workdir
	if {[lindex [file split $workdir] end] eq {.git}} {
		# Workaround for Explorer right click "Git GUI Here" on .git/
		cd ..
	}
	set argv [lrange $argv 2 end]
	incr argc -2
}

set thisdir [file normalize [file dirname [info script]]]
source [file join $thisdir git-gui.tcl]