git-annex/Build/InstallDesktopFile.hs

{- Generating and installing a desktop menu entry file and icon,
 - and a desktop autostart file. (And OSX equivalents.)
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Main where

import Build.DesktopFile

import System.Environment

main :: IO ()
main = getArgs >>= go
  where
	go [] = error "specify git-annex command"
	go (command:_) = install command
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			`{- Generating and installing a desktop menu entry file and icon,`
run codespell throughout fixing typos automagically === Do not change lines below === { "chain": [], "cmd": "codespell -w", "exit": 0, "extra_inputs": [], "inputs": [], "outputs": [], "pwd": "." } ^^^ Do not change lines above ^^^ 2024-04-06 13:50:58 +00:00			`- and a desktop autostart file. (And OSX equivalents.)`
installing desktop file working Not hooked up to either Makefile or cabal yet 2012-08-02 00:49:02 +00:00			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
installing desktop file working Not hooked up to either Makefile or cabal yet 2012-08-02 00:49:02 +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.`
installing desktop file working Not hooked up to either Makefile or cabal yet 2012-08-02 00:49:02 +00:00			`-}`

argle 2013-04-17 15:57:46 +00:00			`module Main where`

fix build 2013-04-24 15:08:35 +00:00			`import Build.DesktopFile`

			`import System.Environment`
write a OSX autostart file Not tested. 2012-09-06 16:58:46 +00:00
make the standalone OSX app automatically install itself when run 2012-09-26 20:50:04 +00:00			`main :: IO ()`
hook desktop menu file installation into makefile and cabal 2012-08-02 01:04:25 +00:00			`main = getArgs >>= go`
where indenting 2012-11-11 04:51:07 +00:00			`where`
			`go [] = error "specify git-annex command"`
			`go (command:_) = install command`