From cd9e250a0122f84c60f9cc49bab81801d71284ec Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 5 Jul 2017 23:03:06 -0400 Subject: Added Propellor.Property.FreeDesktop module. This commit was sponsored by Trenton Cronholm on Patreon. --- src/Propellor/Property/ConfFile.hs | 11 +++++++++++ src/Propellor/Property/FreeDesktop.hs | 29 +++++++++++++++++++++++++++++ 2 files changed, 40 insertions(+) create mode 100644 src/Propellor/Property/FreeDesktop.hs (limited to 'src/Propellor') diff --git a/src/Propellor/Property/ConfFile.hs b/src/Propellor/Property/ConfFile.hs index b49c626e..ce092ec9 100644 --- a/src/Propellor/Property/ConfFile.hs +++ b/src/Propellor/Property/ConfFile.hs @@ -11,6 +11,7 @@ module Propellor.Property.ConfFile ( containsIniSetting, hasIniSection, lacksIniSection, + iniFileContains, ) where import Propellor.Base @@ -114,3 +115,13 @@ lacksIniSection f header = adjustIniSection (const []) -- remove all lines of section id -- add no lines if section is missing f + +-- | Specifies the whole content of a .ini file. +-- +-- Revertijg this causes the file not to exist. +iniFileContains :: FilePath -> [(IniSection, [(IniKey, String)])] -> RevertableProperty UnixLike UnixLike +iniFileContains f l = f `hasContent` content notPresent f + where + content = concatMap sectioncontent l + sectioncontent (section, keyvalues) = iniHeader section : + map (\(key, value) -> key ++ "=" ++ value) keyvalues diff --git a/src/Propellor/Property/FreeDesktop.hs b/src/Propellor/Property/FreeDesktop.hs new file mode 100644 index 00000000..75dcbdfa --- /dev/null +++ b/src/Propellor/Property/FreeDesktop.hs @@ -0,0 +1,29 @@ +-- | 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) + ] ) + ] -- cgit v1.2.3