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:
parent
be6b68402b
commit
9c4a23cab1
5 changed files with 62 additions and 25 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue