no implicit dotfiles in add
Dotfiles, and files inside dotdirs are not added by "git annex add" unless the dotfile or directory is explicitly listed. So "git annex add ." will add all untracked files in the current directory except for those in dotdirs. One reason for this is that it will make git-annex more usable with vcsh, where you don't want "vcsh big annex add" to check in all the dotfiles that are already versioned in other repositories. (If you're using vcsh for repos that contain non-dotfiles, this won't help, and you'll need to .gitignore such things, but this will cover the common case.) A more general reason why this seems like a good idea is the same reason ls ignores dotfiles, just the unix convention that they are cruft that is kept out of the way most of the time. All the other git-annex commands still do deal with any dotfiles that do get into the annex. This seemed right because if I've gone to the trouble to add a dotfile, I will want "git annex get ." to get it along with everything else.
This commit is contained in:
parent
ab8fa0d205
commit
34abd7bca8
4 changed files with 27 additions and 4 deletions
13
Seek.hs
13
Seek.hs
|
@ -46,9 +46,16 @@ withBackendFilesInGit a params = do
|
|||
|
||||
withFilesNotInGit :: (BackendFile -> CommandStart) -> CommandSeek
|
||||
withFilesNotInGit a params = do
|
||||
force <- Annex.getState Annex.force
|
||||
newfiles <- seekHelper (LsFiles.notInRepo force) params
|
||||
prepBackendPairs a newfiles
|
||||
{- dotfiles are not acted on unless explicitly listed -}
|
||||
files <- filter (not . dotfile) <$> seek ps
|
||||
dotfiles <- if null dotps then return [] else seek dotps
|
||||
prepBackendPairs a $ preserveOrder params (files++dotfiles)
|
||||
where
|
||||
(dotps, ps) = partition dotfile params
|
||||
seek l = do
|
||||
force <- Annex.getState Annex.force
|
||||
g <- gitRepo
|
||||
liftIO $ (\p -> LsFiles.notInRepo force p g) l
|
||||
|
||||
withWords :: ([String] -> CommandStart) -> CommandSeek
|
||||
withWords a params = return [a params]
|
||||
|
|
|
@ -134,3 +134,14 @@ inPath :: String -> IO Bool
|
|||
inPath command = getSearchPath >>= anyM indir
|
||||
where
|
||||
indir d = doesFileExist $ d </> command
|
||||
|
||||
{- Checks if a filename is a unix dotfile. All files inside dotdirs
|
||||
- count as dotfiles. -}
|
||||
dotfile :: FilePath -> Bool
|
||||
dotfile file
|
||||
| f == "." = False
|
||||
| f == ".." = False
|
||||
| f == "" = False
|
||||
| otherwise = "." `isPrefixOf` f || dotfile (takeDirectory file)
|
||||
where
|
||||
f = takeFileName file
|
||||
|
|
4
debian/changelog
vendored
4
debian/changelog
vendored
|
@ -4,6 +4,10 @@ git-annex (3.20111232) UNRELEASED; urgency=low
|
|||
used to provide parameters to whichever of wget or curl git-annex uses
|
||||
(depends on which is available, but most of their important options
|
||||
suitable for use here are the same).
|
||||
* Dotfiles, and files inside dotdirs are not added by "git annex add"
|
||||
unless the dotfile or directory is explicitly listed. So "git annex add ."
|
||||
will add all untracked files in the current directory except for those in
|
||||
dotdirs.
|
||||
|
||||
-- Joey Hess <joeyh@debian.org> Mon, 02 Jan 2012 14:19:19 -0400
|
||||
|
||||
|
|
|
@ -64,7 +64,8 @@ subdirectories).
|
|||
|
||||
Adds files in the path to the annex. Files that are already checked into
|
||||
git, or that git has been configured to ignore will be silently skipped.
|
||||
(Use --force to add ignored files.)
|
||||
(Use --force to add ignored files.) Dotfiles are skipped unless explicitly
|
||||
listed.
|
||||
|
||||
* get [path ...]
|
||||
|
||||
|
|
Loading…
Reference in a new issue