ed56dba868
... to control the default behavior in all clones of a repository. This includes a new Configurable data type, so the GitConfig type indicates which values can be configured this way. The implementation should be quite efficient; the config log is only read once, and only when a Configurable value has not already been set by git-config. Indeed, it would be nice in the future to extend this, so that git-config is itself only read on demand. Some commands may not need to look at the git configuration at all. This commit was sponsored by Trenton Cronholm on Patreon.
55 lines
1.4 KiB
Haskell
55 lines
1.4 KiB
Haskell
{- git-annex repository-global config log
|
|
-
|
|
- Copyright 2017 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Logs.Config (
|
|
ConfigName,
|
|
ConfigValue,
|
|
setGlobalConfig,
|
|
unsetGlobalConfig,
|
|
getGlobalConfig,
|
|
loadGlobalConfig,
|
|
) where
|
|
|
|
import Annex.Common
|
|
import Logs
|
|
import Logs.MapLog
|
|
import qualified Annex.Branch
|
|
|
|
import Data.Time.Clock.POSIX
|
|
import qualified Data.Map as M
|
|
|
|
type ConfigName = String
|
|
type ConfigValue = String
|
|
|
|
setGlobalConfig :: ConfigName -> ConfigValue -> Annex ()
|
|
setGlobalConfig name new = do
|
|
curr <- getGlobalConfig name
|
|
when (curr /= Just new) $
|
|
setGlobalConfig' name new
|
|
|
|
setGlobalConfig' :: ConfigName -> ConfigValue -> Annex ()
|
|
setGlobalConfig' name new = do
|
|
now <- liftIO getPOSIXTime
|
|
Annex.Branch.change configLog $
|
|
showMapLog id id . changeMapLog now name new . parseGlobalConfig
|
|
|
|
unsetGlobalConfig :: ConfigName -> Annex ()
|
|
unsetGlobalConfig name = do
|
|
curr <- getGlobalConfig name
|
|
when (curr /= Nothing) $
|
|
setGlobalConfig' name "" -- set to empty string to unset
|
|
|
|
-- Reads the global config log every time.
|
|
getGlobalConfig :: ConfigName -> Annex (Maybe ConfigValue)
|
|
getGlobalConfig name = M.lookup name <$> loadGlobalConfig
|
|
|
|
parseGlobalConfig :: String -> MapLog ConfigName ConfigValue
|
|
parseGlobalConfig = parseMapLog Just Just
|
|
|
|
loadGlobalConfig :: Annex (M.Map ConfigName ConfigValue)
|
|
loadGlobalConfig = M.filter (not . null) . simpleMap . parseGlobalConfig
|
|
<$> Annex.Branch.get configLog
|