git

1
# git-gui desktop icon creators
2
# Copyright (C) 2006, 2007 Shawn Pearce
3

4
proc do_windows_shortcut {} {
5
	global _gitworktree
6
	set fn [tk_getSaveFile \
7
		-parent . \
8
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
9
		-initialfile "Git [reponame].lnk"]
10
	if {$fn != {}} {
11
		if {[file extension $fn] ne {.lnk}} {
12
			set fn ${fn}.lnk
13
		}
14
		# Use git-gui.exe if available (ie: git-for-windows)
15
		set cmdLine [auto_execok git-gui.exe]
16
		if {$cmdLine eq {}} {
17
			set cmdLine [list [info nameofexecutable] \
18
							 [file normalize $::argv0]]
19
		}
20
		if {[catch {
21
				win32_create_lnk $fn $cmdLine \
22
					[file normalize $_gitworktree]
23
			} err]} {
24
			error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
25
		}
26
	}
27
}
28

29
proc do_cygwin_shortcut {} {
30
	global argv0 _gitworktree oguilib
31

32
	if {[catch {
33
		set desktop [exec cygpath \
34
			--desktop]
35
		}]} {
36
			set desktop .
37
	}
38
	set fn [tk_getSaveFile \
39
		-parent . \
40
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
41
		-initialdir $desktop \
42
		-initialfile "Git [reponame].lnk"]
43
	if {$fn != {}} {
44
		if {[file extension $fn] ne {.lnk}} {
45
			set fn ${fn}.lnk
46
		}
47
		if {[catch {
48
				set repodir [file normalize $_gitworktree]
49
				set shargs {-c \
50
					"CHERE_INVOKING=1 \
51
					source /etc/profile; \
52
					git gui"}
53
				exec /bin/mkshortcut.exe \
54
					--arguments $shargs \
55
					--desc "git-gui on $repodir" \
56
					--icon $oguilib/git-gui.ico \
57
					--name $fn \
58
					--show min \
59
					--workingdir $repodir \
60
					/bin/sh.exe
61
			} err]} {
62
			error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
63
		}
64
	}
65
}
66

67
proc do_macosx_app {} {
68
	global argv0 env
69

70
	set fn [tk_getSaveFile \
71
		-parent . \
72
		-title [mc "%s (%s): Create Desktop Icon" [appname] [reponame]] \
73
		-initialdir [file join $env(HOME) Desktop] \
74
		-initialfile "Git [reponame].app"]
75
	if {$fn != {}} {
76
		if {[file extension $fn] ne {.app}} {
77
			set fn ${fn}.app
78
		}
79
		if {[catch {
80
				set Contents [file join $fn Contents]
81
				set MacOS [file join $Contents MacOS]
82
				set exe [file join $MacOS git-gui]
83

84
				file mkdir $MacOS
85

86
				set fd [open [file join $Contents Info.plist] w]
87
				puts $fd {<?xml version="1.0" encoding="UTF-8"?>
88
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
89
<plist version="1.0">
90
<dict>
91
	<key>CFBundleDevelopmentRegion</key>
92
	<string>English</string>
93
	<key>CFBundleExecutable</key>
94
	<string>git-gui</string>
95
	<key>CFBundleIdentifier</key>
96
	<string>org.spearce.git-gui</string>
97
	<key>CFBundleInfoDictionaryVersion</key>
98
	<string>6.0</string>
99
	<key>CFBundlePackageType</key>
100
	<string>APPL</string>
101
	<key>CFBundleSignature</key>
102
	<string>????</string>
103
	<key>CFBundleVersion</key>
104
	<string>1.0</string>
105
	<key>NSPrincipalClass</key>
106
	<string>NSApplication</string>
107
</dict>
108
</plist>}
109
				close $fd
110

111
				set fd [open $exe w]
112
				puts $fd "#!/bin/sh"
113
				foreach name [lsort [array names env]] {
114
					set value $env($name)
115
					switch -- $name {
116
					GIT_DIR { set value [file normalize [gitdir]] }
117
					}
118

119
					switch -glob -- $name {
120
					SSH_* -
121
					GIT_* {
122
						puts $fd "if test \"z\$$name\" = z; then"
123
						puts $fd "  export $name=[sq $value]"
124
						puts $fd "fi &&"
125
					}
126
					}
127
				}
128
				puts $fd "export PATH=[sq [file dirname $::_git]]:\$PATH &&"
129
				puts $fd "cd [sq [file normalize [pwd]]] &&"
130
				puts $fd "exec \\"
131
				puts $fd " [sq [info nameofexecutable]] \\"
132
				puts $fd " [sq [file normalize $argv0]]"
133
				close $fd
134

135
				file attributes $exe -permissions u+x,g+x,o+x
136
			} err]} {
137
			error_popup [strcat [mc "Cannot write icon:"] "\n\n$err"]
138
		}
139
	}
140
}
141