FreeDesktop.hs

-- | Freedesktop.org configuration file properties.

module Propellor.Property.FreeDesktop where

import Propellor.Base
import Propellor.Property.ConfFile

desktopFile :: String -> FilePath
desktopFile s = s ++ ".desktop"

-- | Name used in a desktop file; user visible. 
type Name = String

-- | Command that a dekstop file runs. May include parameters.
type Exec = String

-- | Specifies an autostart file. By default it will be located in the
-- system-wide autostart directory.
autostart :: FilePath -> Name -> Exec -> RevertableProperty UnixLike UnixLike
autostart f n e = ("/etc/xdg/autostart" </> f) `iniFileContains` 
	[ ("Desktop Entry",
		[ ("Type", "Application")
		, ("Version", "1.0")
		, ("Name", n)
		, ("Comment", "Autostart")
		, ("Terminal", "False")
		, ("Exec", e)
		] )
	]