Code

gitweb: add patches view
[git.git] / git-gui / lib / shortcut.tcl
1 # git-gui desktop icon creators
2 # Copyright (C) 2006, 2007 Shawn Pearce
4 proc do_windows_shortcut {} {
5         set fn [tk_getSaveFile \
6                 -parent . \
7                 -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \
8                 -initialfile "Git [reponame].lnk"]
9         if {$fn != {}} {
10                 if {[file extension $fn] ne {.lnk}} {
11                         set fn ${fn}.lnk
12                 }
13                 if {[catch {
14                                 win32_create_lnk $fn [list \
15                                         [info nameofexecutable] \
16                                         [file normalize $::argv0] \
17                                         ] \
18                                         [file dirname [file normalize [gitdir]]]
19                         } err]} {
20                         error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
21                 }
22         }
23 }
25 proc do_cygwin_shortcut {} {
26         global argv0
28         if {[catch {
29                 set desktop [exec cygpath \
30                         --windows \
31                         --absolute \
32                         --long-name \
33                         --desktop]
34                 }]} {
35                         set desktop .
36         }
37         set fn [tk_getSaveFile \
38                 -parent . \
39                 -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \
40                 -initialdir $desktop \
41                 -initialfile "Git [reponame].lnk"]
42         if {$fn != {}} {
43                 if {[file extension $fn] ne {.lnk}} {
44                         set fn ${fn}.lnk
45                 }
46                 if {[catch {
47                                 set sh [exec cygpath \
48                                         --windows \
49                                         --absolute \
50                                         /bin/sh.exe]
51                                 set me [exec cygpath \
52                                         --unix \
53                                         --absolute \
54                                         $argv0]
55                                 win32_create_lnk $fn [list \
56                                         $sh -c \
57                                         "CHERE_INVOKING=1 source /etc/profile;[sq $me]" \
58                                         ] \
59                                         [file dirname [file normalize [gitdir]]]
60                         } err]} {
61                         error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
62                 }
63         }
64 }
66 proc do_macosx_app {} {
67         global argv0 env
69         set fn [tk_getSaveFile \
70                 -parent . \
71                 -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \
72                 -initialdir [file join $env(HOME) Desktop] \
73                 -initialfile "Git [reponame].app"]
74         if {$fn != {}} {
75                 if {[file extension $fn] ne {.app}} {
76                         set fn ${fn}.app
77                 }
78                 if {[catch {
79                                 set Contents [file join $fn Contents]
80                                 set MacOS [file join $Contents MacOS]
81                                 set exe [file join $MacOS git-gui]
83                                 file mkdir $MacOS
85                                 set fd [open [file join $Contents Info.plist] w]
86                                 puts $fd {<?xml version="1.0" encoding="UTF-8"?>
87 <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
88 <plist version="1.0">
89 <dict>
90         <key>CFBundleDevelopmentRegion</key>
91         <string>English</string>
92         <key>CFBundleExecutable</key>
93         <string>git-gui</string>
94         <key>CFBundleIdentifier</key>
95         <string>org.spearce.git-gui</string>
96         <key>CFBundleInfoDictionaryVersion</key>
97         <string>6.0</string>
98         <key>CFBundlePackageType</key>
99         <string>APPL</string>
100         <key>CFBundleSignature</key>
101         <string>????</string>
102         <key>CFBundleVersion</key>
103         <string>1.0</string>
104         <key>NSPrincipalClass</key>
105         <string>NSApplication</string>
106 </dict>
107 </plist>}
108                                 close $fd
110                                 set fd [open $exe w]
111                                 puts $fd "#!/bin/sh"
112                                 foreach name [lsort [array names env]] {
113                                         set value $env($name)
114                                         switch -- $name {
115                                         GIT_DIR { set value [file normalize [gitdir]] }
116                                         }
118                                         switch -glob -- $name {
119                                         SSH_* -
120                                         GIT_* {
121                                                 puts $fd "if test \"z\$$name\" = z; then"
122                                                 puts $fd "  export $name=[sq $value]"
123                                                 puts $fd "fi &&"
124                                         }
125                                         }
126                                 }
127                                 puts $fd "export PATH=[sq [file dirname $::_git]]:\$PATH &&"
128                                 puts $fd "cd [sq [file normalize [pwd]]] &&"
129                                 puts $fd "exec \\"
130                                 puts $fd " [sq [info nameofexecutable]] \\"
131                                 puts $fd " [sq [file normalize $argv0]]"
132                                 close $fd
134                                 file attributes $exe -permissions u+x,g+x,o+x
135                         } err]} {
136                         error_popup [strcat [mc "Cannot write icon:"] "\n\n$err"]
137                 }
138         }