git-annex/Assistant/Install/AutoStart.hs

{- Assistant autostart file installation
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-tabs #-}

module Assistant.Install.AutoStart where

import Utility.FreeDesktop
#ifdef darwin_HOST_OS
import Utility.OSX
import Utility.Path
import Utility.SystemDirectory
import Utility.FileSystemEncoding
#endif

installAutoStart :: FilePath -> FilePath -> IO ()
installAutoStart command file = do
#ifdef darwin_HOST_OS
	createDirectoryIfMissing True (fromRawFilePath (parentDir (toRawFilePath 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			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
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			`-`
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.) 2019-03-13 19:48:14 +00:00			`- Licensed under the GNU AGPL version 3 or higher.`
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			`{-# LANGUAGE CPP #-}`
more {-# OPTIONS_GHC -fno-warn-tabs #-} ... Forcing people who have what is merely a difference of opinion to you to do this is a bit of an asshole move. Just saying. 2015-05-10 20:38:49 +00:00			`{-# OPTIONS_GHC -fno-warn-tabs #-}`
standalone linux app nearly ready also made several fixes that apply to the OSX app 2012-09-28 23:08:13 +00:00
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`
fix build on OSX This is built when building Setuo, and after 54ad1b4cfb1c8302f1b862cb2699ab9351e3eb5b, such modules cannot import Utility.Directory, because it depends on unix, which is not in setup-depends. This module only needs System.Directory, so import Utility.SystemDirectory instead. Sponsored-by: Dartmouth College's Datalad project 2023-03-03 17:20:49 +00:00			`import Utility.SystemDirectory`
fix build on OSX 2020-11-10 15:16:39 +00:00			`import Utility.FileSystemEncoding`
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`
fix build on OSX more 2020-11-11 12:51:09 +00:00			`createDirectoryIfMissing True (fromRawFilePath (parentDir (toRawFilePath 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			`[]`