git-annex/Assistant/Install/AutoStart.hs

{- Assistant autostart file installation
 -
 - Copyright 2012 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

{-# LANGUAGE CPP #-}

module Assistant.Install.AutoStart where

import Utility.FreeDesktop
#ifdef darwin_HOST_OS
import Utility.OSX
import Utility.Path
import System.Directory
#endif

installAutoStart :: FilePath -> FilePath -> IO ()
installAutoStart command file = do
#ifdef darwin_HOST_OS
	createDirectoryIfMissing True (parentDir file)
	writeFile file $ genOSXAutoStartFile osxAutoStartLabel command
		["assistant", "--autostart"]
#else
	writeDesktopMenuFile (fdoAutostart command) file
#endif

osxAutoStartLabel :: String
osxAutoStartLabel = "com.branchable.git-annex.assistant"

fdoAutostart :: FilePath -> DesktopEntry
fdoAutostart command = genDesktopEntry
	"Git Annex Assistant"
	"Autostart"
	False
	(command ++ " assistant --autostart")
	Nothing
	[]
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`{- Assistant autostart file installation`
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. 2012-09-26 21:19:45 +00:00			`-`
			`- Copyright 2012 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`{-# LANGUAGE CPP #-}`

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. 2012-09-26 21:19:45 +00:00			`module Assistant.Install.AutoStart where`

standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`import Utility.FreeDesktop`
ifdef osx includes 2012-09-28 23:18:08 +00:00			`#ifdef darwin_HOST_OS`
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. 2012-09-26 21:19:45 +00:00			`import Utility.OSX`
fix OSX build 2015-01-09 18:36:02 +00:00			`import Utility.Path`
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. 2012-09-26 21:19:45 +00:00			`import System.Directory`
ifdef osx includes 2012-09-28 23:18:08 +00:00			`#endif`
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. 2012-09-26 21:19:45 +00:00
			`installAutoStart :: FilePath -> FilePath -> IO ()`
			`installAutoStart command file = do`
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`#ifdef darwin_HOST_OS`
revert parentDir change Reverts 965e106f242b34a8269c72e136f60fc0c36ae460 Unfortunately, this caused breakage on Windows, and possibly elsewhere, because parentDir and takeDirectory do not behave the same when there is a trailing directory separator. 2015-01-09 17:11:56 +00:00			`createDirectoryIfMissing True (parentDir file)`
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`writeFile file $ genOSXAutoStartFile osxAutoStartLabel command`
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. 2012-09-26 21:19:45 +00:00			`["assistant", "--autostart"]`
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`#else`
			`writeDesktopMenuFile (fdoAutostart command) file`
			`#endif`

			`osxAutoStartLabel :: String`
			`osxAutoStartLabel = "com.branchable.git-annex.assistant"`
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. 2012-09-26 21:19:45 +00:00
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`fdoAutostart :: FilePath -> DesktopEntry`
			`fdoAutostart command = genDesktopEntry`
			`"Git Annex Assistant"`
			`"Autostart"`
			`False`
			`(command ++ " assistant --autostart")`
Install XDG desktop icon files. The icon files will be installed when running make install or cabal install. Did not try to run update-icon-caches, since I think it's debian specific, and dh_icons will take care of that for the Debian package. Using the favicon as a 16x16 icon. At 24x24 the svg displays pretty well, although the dotted lines are rather faint. The svg is ok at all higher resolutions. The standalone linux build auto-installs the desktop and autostart files when run. I have not made it auto-install the icon file too, because a) that would take more work to include them in the tarball and find them b) it would need to be an install to ~/.icons/, and I don't know if that really works! 2013-07-09 23:56:30 +00:00			`Nothing`
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00			`[]`