1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
{- OSX stuff
-
- Copyright 2012 Joey Hess <id@joeyh.name>
-
- License: BSD-2-clause
-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-tabs #-}
module Utility.OSX (
autoStartBase,
systemAutoStart,
userAutoStart,
genOSXAutoStartFile,
) where
import Common
import Utility.UserInfo
autoStartBase :: String -> OsPath
autoStartBase label = literalOsPath "Library"
</> literalOsPath "LaunchAgents"
</> toOsPath label <> literalOsPath ".plist"
systemAutoStart :: String -> OsPath
systemAutoStart label = literalOsPath "/" </> autoStartBase label
userAutoStart :: String -> IO OsPath
userAutoStart label = do
home <- myHomeDir
return $ toOsPath home </> autoStartBase label
{- Generates an OSX autostart plist file with a given label, command, and
- params to run at boot or login. -}
genOSXAutoStartFile :: String -> String -> [String] -> String
genOSXAutoStartFile label command params = unlines
[ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
, "<!DOCTYPE plist PUBLIC \"-//Apple//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">"
, "<plist version=\"1.0\">"
, "<dict>"
, "<key>Label</key>"
, "<string>" ++ label ++ "</string>"
, "<key>ProgramArguments</key>"
, "<array>"
, unlines $ map (\v -> "<string>" ++ v ++ "</string>") (command:params)
, "</array>"
, "<key>RunAtLoad</key>"
, "<true/>"
, "</dict>"
, "</plist>"
]
|
