blob: 1152df6eb8e6b2b24a33fadf0b4aa57c86fdfa2d (
plain) (
blame)
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
-- |
-- Copyright : (c) 2015 Egor Tensin <Egor.Tensin@gmail.com>
-- License : MIT
-- Maintainer : Egor.Tensin@gmail.com
-- Stability : experimental
-- Portability : Windows-only
module Main (main) where
import Control.Monad (unless, void)
import Control.Monad.Trans.Except (catchE, runExceptT, throwE)
import Data.List ((\\), nub)
import System.IO.Error (ioError, isDoesNotExistError)
import Options.Applicative
import qualified WindowsEnv
import Utils.Prompt
import Utils.PromptMessage
data Options = Options
{ optName :: WindowsEnv.Name
, optYes :: Bool
, optGlobal :: Bool
, optPrepend :: Bool
, optPaths :: [String]
} deriving (Eq, Show)
optionParser :: Parser Options
optionParser = Options
<$> optNameDesc
<*> optYesDesc
<*> optGlobalDesc
<*> optPrependDesc
<*> optPathsDesc
where
optNameDesc = strOption
$ long "name" <> short 'n'
<> metavar "NAME" <> value "PATH"
<> help "Variable name ('PATH' by default)"
optYesDesc = switch
$ long "yes" <> short 'y'
<> help "Skip confirmation prompt"
optGlobalDesc = switch
$ long "global" <> short 'g'
<> help "Add for all users"
optPrependDesc = switch
$ long "prepend" <> short 'p'
<> help "Prepend to the variable (instead of appending)"
optPathsDesc = many $ argument str
$ metavar "PATH"
<> help "Directories to add"
main :: IO ()
main = execParser parser >>= addPath
where
parser = info (helper <*> optionParser) $
fullDesc <> progDesc "Add directories to your PATH"
addPath :: Options -> IO ()
addPath options = runExceptT doAddPath >>= either ioError return
where
varName = optName options
pathsToAdd = nub $ optPaths options
forAllUsers = optGlobal options
skipPrompt = optYes options
profile
| forAllUsers = WindowsEnv.AllUsers
| otherwise = WindowsEnv.CurrentUser
prepend = optPrepend options
mergePaths old new
| prepend = new ++ old
| otherwise = old ++ new
emptyIfMissing e
| isDoesNotExistError e = defaultValue
| otherwise = throwE e
defaultValue = do
expandedPaths <- mapM WindowsEnv.expand pathsToAdd
if pathsToAdd == expandedPaths
then return $ WindowsEnv.Value False ""
else return $ WindowsEnv.Value True ""
doAddPath = do
oldValue <- WindowsEnv.query profile varName `catchE` emptyIfMissing
let expandable = WindowsEnv.valueExpandable oldValue
let joined = WindowsEnv.valueString oldValue
let split = WindowsEnv.pathSplit joined
let missing = pathsToAdd \\ split
unless (null missing) $ do
let merged = mergePaths split missing
let newValue = WindowsEnv.Value expandable (WindowsEnv.pathJoin merged)
promptAndEngrave oldValue newValue
promptAndEngrave oldValue newValue = do
let promptAnd = if skipPrompt
then withoutPrompt
else withPrompt $ oldNewMessage profile varName oldValue newValue
let engrave = WindowsEnv.engrave profile varName newValue
void $ promptAnd engrave
|
