freshlybakedca.ke
Git fork
1#!/bin/sh
2# Tcl ignores the next line -*- tcl -*- \
3exec wish "$0" -- "$@"
4
5if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
6 set workdir [lindex $argv 1]
7 cd $workdir
8 if {[lindex [file split $workdir] end] eq {.git}} {
9 # Workaround for Explorer right click "Git GUI Here" on .git/
10 cd ..
11 }
12 set argv [lrange $argv 2 end]
13 incr argc -2
14}
15
16set thisdir [file normalize [file dirname [info script]]]
17source [file join $thisdir git-gui.tcl]