git-annex/Build/InstallDesktopFile.hs

{- Generating and installing a desktop menu entry file and icon,
 - and a desktop autostart file. (And OSX equivilants.)
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL 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 19:56:30 -04:00			`{- Generating and installing a desktop menu entry file and icon,`
honor DESTDIR 2012-09-06 12:43:46 -04:00			`- and a desktop autostart file. (And OSX equivilants.)`
installing desktop file working Not hooked up to either Makefile or cabal yet 2012-08-01 20:49:02 -04:00			`-`
update my email address and homepage url 2015-01-21 12:50:09 -04:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
installing desktop file working Not hooked up to either Makefile or cabal yet 2012-08-01 20:49:02 -04:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

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

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

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