git-annex/Init.hs

80 lines
2.1 KiB
Haskell
Raw Normal View History

{- git-annex repository initialization
-
2011-08-17 22:42:49 +00:00
- Copyright 2011 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Init (
ensureInitialized,
initialize,
uninitialize
) where
2011-10-05 20:02:51 +00:00
import Common.Annex
2011-10-16 04:31:25 +00:00
import Utility.TempFile
import qualified Git
2011-10-04 04:40:47 +00:00
import qualified Annex.Branch
import Logs.UUID
2011-10-04 04:40:47 +00:00
import Annex.Version
import Annex.UUID
2011-11-07 20:13:06 +00:00
initialize :: Maybe String -> Annex ()
initialize mdescription = do
prepUUID
2011-10-04 04:40:47 +00:00
Annex.Branch.create
setVersion
2011-08-17 22:52:58 +00:00
gitPreCommitHookWrite
2011-11-07 20:13:06 +00:00
u <- getUUID
maybe (recordUUID u) (describeUUID u) mdescription
uninitialize :: Annex ()
2011-09-21 03:24:48 +00:00
uninitialize = gitPreCommitHookUnWrite
{- Will automatically initialize if there is already a git-annex
branch from somewhere. Otherwise, require a manual init
to avoid git-annex accidentially being run in git
repos that did not intend to use it. -}
ensureInitialized :: Annex ()
2011-08-17 22:42:49 +00:00
ensureInitialized = getVersion >>= maybe needsinit checkVersion
where
needsinit = ifM Annex.Branch.hasSibling
( initialize Nothing
, error "First run: git-annex init"
)
{- set up a git pre-commit hook, if one is not already present -}
2011-08-17 22:52:58 +00:00
gitPreCommitHookWrite :: Annex ()
gitPreCommitHookWrite = unlessBare $ do
hook <- preCommitHook
ifM (liftIO $ doesFileExist hook)
( warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring"
, liftIO $ do
viaTmp writeFile hook preCommitScript
p <- getPermissions hook
setPermissions hook $ p {executable = True}
)
2011-08-17 22:52:58 +00:00
gitPreCommitHookUnWrite :: Annex ()
gitPreCommitHookUnWrite = unlessBare $ do
hook <- preCommitHook
whenM (liftIO $ doesFileExist hook) $ do
c <- liftIO $ readFile hook
if c == preCommitScript
then liftIO $ removeFile hook
else warning $ "pre-commit hook (" ++ hook ++
") contents modified; not deleting." ++
" Edit it to remove call to git annex."
2011-08-17 22:52:58 +00:00
unlessBare :: Annex () -> Annex ()
2012-02-16 04:41:30 +00:00
unlessBare = unlessM $ fromRepo Git.repoIsLocalBare
2011-08-17 22:52:58 +00:00
preCommitHook :: Annex FilePath
preCommitHook = (</>) <$> fromRepo Git.gitDir <*> pure "hooks/pre-commit"
preCommitScript :: String
preCommitScript =
2011-10-11 18:43:45 +00:00
"#!/bin/sh\n" ++
"# automatically configured by git-annex\n" ++
"git annex pre-commit .\n"