mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

try to make a start menu shortcut

Browse source
This commit is contained in:
Joey Hess 2013-12-10 00:13:15 -04:00
parent a00c1570e8
commit 1d0f77fca2
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Build/NullSoftInstaller.hs
View file

@ -95,6 +95,17 @@ makeInstaller gitannex license extrafiles = nsis $ do
page Directory -- Pick where to install page Directory -- Pick where to install
page (License license) page (License license)
page InstFiles -- Give a progress bar while installing page InstFiles -- Give a progress bar while installing
-- Start menu shortcut
createDirectory "$SMPROGRAMS"
createShortcut "$SMPROGRAMS/git-annex.lnk"
[ Target "$INSTDIR/git-annex.exe"
, Parameter "webapp"
, IconFile "$INSTDIR/git-annex.exe"
, IconIndex 2
, StartOptions "SW_SHOWNORMAL"
, KeyboardShortcut "ALT|CONTROL|a"
, Description "git-annex"
]
-- Groups of files to install -- Groups of files to install
section "main" [] $ do section "main" [] $ do
setOutPath "$INSTDIR" setOutPath "$INSTDIR"