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

install a .command file on OSX in the Desktop

Browse source
This commit is contained in:
Joey Hess 2012-09-06 13:24:47 -04:00
parent 46ef078b93
commit 682ae30a08
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Build/InstallDesktopFile.hs
View file

@ -21,6 +21,7 @@ import Control.Monad
import System.Directory import System.Directory
import System.Environment import System.Environment
import System.Posix.User import System.Posix.User
import System.Posix.Files
import System.FilePath import System.FilePath
{- The command can be either just "git-annex", or the full path to use {- The command can be either just "git-annex", or the full path to use
@ -92,6 +93,16 @@ writeOSXDesktop command = do
, "</dict>" , "</dict>"
, "</plist>" , "</plist>"
] ]
ifM isRoot
( return ()
, do
let commandfile <- home </> "Desktop" </> "git-annex-webapp.command"
writeFile commandfile $ unwords [command, "webapp"]
mode <- fileMode <$> getFileStatus f
setFileMode commandfile $ mode `unionFileModes` ownerExecuteMode
)
where where
label = "com.branchable.git-annex.assistant" label = "com.branchable.git-annex.assistant"