Commit | Line | Data |
---|---|---|
f522c9b5 SP |
1 | # git-gui desktop icon creators |
2 | # Copyright (C) 2006, 2007 Shawn Pearce | |
3 | ||
4 | proc do_windows_shortcut {} { | |
3748b03d | 5 | global _gitworktree |
f522c9b5 SP |
6 | set fn [tk_getSaveFile \ |
7 | -parent . \ | |
1ac17950 | 8 | -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \ |
51a41ac4 | 9 | -initialfile "Git [reponame].lnk"] |
f522c9b5 | 10 | if {$fn != {}} { |
51a41ac4 SP |
11 | if {[file extension $fn] ne {.lnk}} { |
12 | set fn ${fn}.lnk | |
47282d46 | 13 | } |
f522c9b5 | 14 | if {[catch { |
51a41ac4 SP |
15 | win32_create_lnk $fn [list \ |
16 | [info nameofexecutable] \ | |
17 | [file normalize $::argv0] \ | |
18 | ] \ | |
a197b1e8 | 19 | [file normalize $_gitworktree] |
f522c9b5 | 20 | } err]} { |
51a41ac4 | 21 | error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"] |
f522c9b5 SP |
22 | } |
23 | } | |
24 | } | |
25 | ||
26 | proc do_cygwin_shortcut {} { | |
3748b03d | 27 | global argv0 _gitworktree |
f522c9b5 SP |
28 | |
29 | if {[catch { | |
30 | set desktop [exec cygpath \ | |
31 | --windows \ | |
32 | --absolute \ | |
33 | --long-name \ | |
34 | --desktop] | |
35 | }]} { | |
36 | set desktop . | |
37 | } | |
38 | set fn [tk_getSaveFile \ | |
39 | -parent . \ | |
1ac17950 | 40 | -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \ |
f522c9b5 | 41 | -initialdir $desktop \ |
51a41ac4 | 42 | -initialfile "Git [reponame].lnk"] |
f522c9b5 | 43 | if {$fn != {}} { |
51a41ac4 SP |
44 | if {[file extension $fn] ne {.lnk}} { |
45 | set fn ${fn}.lnk | |
47282d46 | 46 | } |
f522c9b5 | 47 | if {[catch { |
f522c9b5 SP |
48 | set sh [exec cygpath \ |
49 | --windows \ | |
50 | --absolute \ | |
6a5955fa | 51 | /bin/sh.exe] |
f522c9b5 SP |
52 | set me [exec cygpath \ |
53 | --unix \ | |
54 | --absolute \ | |
55 | $argv0] | |
51a41ac4 SP |
56 | win32_create_lnk $fn [list \ |
57 | $sh -c \ | |
880fa117 | 58 | "CHERE_INVOKING=1 source /etc/profile;[sq $me] &" \ |
51a41ac4 | 59 | ] \ |
a197b1e8 | 60 | [file normalize $_gitworktree] |
f522c9b5 | 61 | } err]} { |
51a41ac4 | 62 | error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"] |
f522c9b5 SP |
63 | } |
64 | } | |
65 | } | |
66 | ||
67 | proc do_macosx_app {} { | |
68 | global argv0 env | |
69 | ||
70 | set fn [tk_getSaveFile \ | |
71 | -parent . \ | |
1ac17950 | 72 | -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \ |
f522c9b5 SP |
73 | -initialdir [file join $env(HOME) Desktop] \ |
74 | -initialfile "Git [reponame].app"] | |
75 | if {$fn != {}} { | |
7eafa2f1 SP |
76 | if {[file extension $fn] ne {.app}} { |
77 | set fn ${fn}.app | |
78 | } | |
f522c9b5 SP |
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] | |
f522c9b5 | 112 | puts $fd "#!/bin/sh" |
7eafa2f1 SP |
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 | } | |
f522c9b5 SP |
126 | } |
127 | } | |
7eafa2f1 SP |
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]]" | |
f522c9b5 SP |
133 | close $fd |
134 | ||
135 | file attributes $exe -permissions u+x,g+x,o+x | |
136 | } err]} { | |
31bb1d1b | 137 | error_popup [strcat [mc "Cannot write icon:"] "\n\n$err"] |
f522c9b5 SP |
138 | } |
139 | } | |
140 | } |