module GitHUD.Config.Parse (
parseConfigFile
, commentParser
, itemParser
, fallThroughItemParser
, configItemsFolder
, ConfigItem(..)
, colorConfigToColor
, intensityConfigToIntensity
) where
import Control.Monad (void, when)
import Text.Parsec (parse)
import Text.Parsec.Char (anyChar, char, newline, letter, string)
import Text.Parsec.Combinator (choice, eof, manyTill)
import Text.Parsec.Prim (many, try, unexpected, (<|>), (<?>))
import Text.Parsec.String (parseFromFile, Parser)
import GitHUD.Config.Types
import GitHUD.Terminal.Types
data ConfigItem = Item String String
| Comment
| ErrorLine deriving (Eq, Show)
parseConfigFile :: FilePath -> IO Config
parseConfigFile filePath = do
eitherParsed <- parseFromFile configFileParser filePath
return $ either
(const defaultConfig)
id
eitherParsed
configFileParser :: Parser Config
configFileParser = do
items <- many configItemParser
return $ foldl configItemsFolder defaultConfig items
configItemParser :: Parser ConfigItem
configItemParser = choice [
commentParser
, itemParser
, fallThroughItemParser
] <?> "config file line"
endItem :: Parser ()
endItem = choice [
void newline
, eof
] <?> "end of item"
commentParser :: Parser ConfigItem
commentParser = try $ do
char '#'
manyTill anyChar (try endItem)
return Comment
itemParser :: Parser ConfigItem
itemParser = try $ do
key <- manyTill validKeyChar (char '=')
when (key == "") $ unexpected "A key in the config file should not be empty"
value <- manyTill anyChar (try endItem)
return $ Item key value
validKeyChar :: Parser Char
validKeyChar = letter <|> (char '_')
fallThroughItemParser :: Parser ConfigItem
fallThroughItemParser = do
manyTill anyChar (try newline)
return ErrorLine
configItemsFolder :: Config -> ConfigItem -> Config
configItemsFolder conf (Item "git_repo_indicator" repoIndicator) = conf { confRepoIndicator = repoIndicator }
configItemsFolder conf (Item "no_upstream_text" value) =
conf { confNoUpstreamString = value }
configItemsFolder conf (Item "no_upstream_text_color" value) =
conf { confNoUpstreamStringColor = colorConfigToColor value }
configItemsFolder conf (Item "no_upstream_text_intensity" value) =
conf { confNoUpstreamStringIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "no_upstream_indicator" value) =
conf { confNoUpstreamIndicator = value }
configItemsFolder conf (Item "no_upstream_indicator_color" value) =
conf { confNoUpstreamIndicatorColor = colorConfigToColor value }
configItemsFolder conf (Item "no_upstream_indicator_intensity" value) =
conf { confNoUpstreamIndicatorIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "remote_commits_indicator" value) =
conf { confRemoteCommitsIndicator = value }
configItemsFolder conf (Item "remote_commits_pull_prefix" value) =
conf { confRemoteCommitsOnlyPull = value }
configItemsFolder conf (Item "remote_commits_push_prefix" value) =
conf { confRemoteCommitsOnlyPush = value }
configItemsFolder conf (Item "remote_commits_push_pull_infix" value) =
conf { confRemoteCommitsBothPullPush = value }
configItemsFolder conf (Item "local_branch_prefix" value) =
conf { confLocalBranchNamePrefix = value }
configItemsFolder conf (Item "local_branch_suffix" value) =
conf { confLocalBranchNameSuffix = value }
configItemsFolder conf (Item "local_branch_color" value) =
conf { confLocalBranchColor = colorConfigToColor value }
configItemsFolder conf (Item "local_branch_intensity" value) =
conf { confLocalBranchIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "local_detached_prefix" value) =
conf { confLocalDetachedPrefix = value }
configItemsFolder conf (Item "local_detached_color" value) =
conf { confLocalDetachedColor = colorConfigToColor value }
configItemsFolder conf (Item "local_detached_intensity" value) =
conf { confLocalDetachedIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "local_commits_push_suffix" value) =
conf { confLocalCommitsPushSuffix = value }
configItemsFolder conf (Item "local_commits_push_suffix_color" value) =
conf { confLocalCommitsPushSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "local_commits_push_suffix_intensity" value) =
conf { confLocalCommitsPushSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "local_commits_pull_suffix" value) =
conf { confLocalCommitsPullSuffix = value }
configItemsFolder conf (Item "local_commits_pull_suffix_color" value) =
conf { confLocalCommitsPullSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "local_commits_pull_suffix_intensity" value) =
conf { confLocalCommitsPullSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "local_commits_push_pull_infix" value) =
conf { confLocalCommitsPushPullInfix = value }
configItemsFolder conf (Item "local_commits_push_pull_infix_color" value) =
conf { confLocalCommitsPushPullInfixColor = colorConfigToColor value }
configItemsFolder conf (Item "local_commits_push_pull_infix_intensity" value) =
conf { confLocalCommitsPushPullInfixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_index_add_suffix" value) =
conf { confChangeIndexAddSuffix = value }
configItemsFolder conf (Item "change_index_add_suffix_color" value) =
conf { confChangeIndexAddSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_index_add_suffix_intensity" value) =
conf { confChangeIndexAddSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_index_mod_suffix" value) =
conf { confChangeIndexModSuffix = value }
configItemsFolder conf (Item "change_index_mod_suffix_color" value) =
conf { confChangeIndexModSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_index_mod_suffix_intensity" value) =
conf { confChangeIndexModSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_index_del_suffix" value) =
conf { confChangeIndexDelSuffix = value }
configItemsFolder conf (Item "change_index_del_suffix_color" value) =
conf { confChangeIndexDelSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_index_del_suffix_intensity" value) =
conf { confChangeIndexDelSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_local_add_suffix" value) =
conf { confChangeLocalAddSuffix = value }
configItemsFolder conf (Item "change_local_add_suffix_color" value) =
conf { confChangeLocalAddSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_local_add_suffix_intensity" value) =
conf { confChangeLocalAddSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_local_mod_suffix" value) =
conf { confChangeLocalModSuffix = value }
configItemsFolder conf (Item "change_local_mod_suffix_color" value) =
conf { confChangeLocalModSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_local_mod_suffix_intensity" value) =
conf { confChangeLocalModSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_local_del_suffix" value) =
conf { confChangeLocalDelSuffix = value }
configItemsFolder conf (Item "change_local_del_suffix_color" value) =
conf { confChangeLocalDelSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_local_del_suffix_intensity" value) =
conf { confChangeLocalDelSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_renamed_suffix" value) =
conf { confChangeRenamedSuffix = value }
configItemsFolder conf (Item "change_renamed_suffix_color" value) =
conf { confChangeRenamedSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_renamed_suffix_intensity" value) =
conf { confChangeRenamedSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "change_conflicted_suffix" value) =
conf { confChangeConflictedSuffix = value }
configItemsFolder conf (Item "change_conflicted_suffix_color" value) =
conf { confChangeConflictedSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "change_conflicted_suffix_intensity" value) =
conf { confChangeConflictedSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf (Item "stash_suffix" value) =
conf { confStashSuffix = value }
configItemsFolder conf (Item "stash_suffix_color" value) =
conf { confStashSuffixColor = colorConfigToColor value }
configItemsFolder conf (Item "stash_suffix_intensity" value) =
conf { confStashSuffixIntensity = intensityConfigToIntensity value }
configItemsFolder conf _ = conf
colorConfigToColor :: String -> Color
colorConfigToColor str =
either
(const Blue)
id
(parse colorParser "" str)
colorParser :: Parser Color
colorParser = choice [
string "Black" >> return Black
, string "Red" >> return Red
, string "Green" >> return Green
, string "Yellow" >> return Yellow
, string "Blue" >> return Blue
, string "Magenta" >> return Magenta
, string "Cyan" >> return Cyan
, string "White" >> return White
] <?> "color"
intensityConfigToIntensity :: String -> ColorIntensity
intensityConfigToIntensity str =
either
(const Vivid)
id
(parse intensityParser "" str)
intensityParser :: Parser ColorIntensity
intensityParser = choice [
string "Dull" >> return Dull
, string "Vivid" >> return Vivid
] <?> "intensity"