install a git-annex-shell shim script when the standalone OSX app runs

I put it in ~/.ssh/ because there's no reliable way to get it into PATH,
and OSX ssh doesn't even honor user's PATH by default.

authorized_keys generators will need to check if it's there. Not done yet.
This commit is contained in:
Joey Hess 2012-09-26 17:19:45 -04:00
parent be6b68402b
commit 9c4a23cab1
5 changed files with 62 additions and 25 deletions

View file

@ -16,7 +16,7 @@ import Utility.Path
import Utility.Monad
import Locations.UserConfig
import Utility.OSX
import Assistant.OSX
import Assistant.Install.AutoStart
import Control.Applicative
import System.Directory
@ -97,16 +97,19 @@ installOSXAppFile appdir appfile mcontent = do
setFileMode dest mode
install :: FilePath -> IO ()
install = do
install command = do
#ifdef darwin_HOST_OS
writeOSXDesktop
writeOSXDesktop command
#else
writeFDODesktop
writeFDODesktop command
#endif
unlessM isRoot $ do
programfile <- inDestDir =<< programFile
createDirectoryIfMissing True (parentDir programfile)
writeFile programfile command
ifM isRoot
( return ()
, do
programfile <- inDestDir =<< programFile
createDirectoryIfMissing True (parentDir programfile)
writeFile programfile command
)
main :: IO ()
main = getArgs >>= go