addurl, importfeed: Improve behavior when file being added is gitignored.

diff --git a/CHANGELOG b/CHANGELOG
index 5c44f412c85fa882185459ed823c2311c3817c6e..f07f6fd997b0cf9a795cc2962aab57e38da7f68e 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -32,6 +32,7 @@ git-annex (6.20160908) UNRELEASED; urgency=medium
   * Also, running sync in an adjusted branch did not correctly sync
     changes back to the parent branch when it had a slash in its name.
     This bug has been fixed.
+  * addurl, importfeed: Improve behavior when file being added is gitignored.
 
  -- Joey Hess <id@joeyh.name>  Thu, 08 Sep 2016 12:48:55 -0400
 

diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs
index 3a6ee756058cca0081bbebb0cd20fe1c86eccc34..80f3582ed5393fa9afd6169e18337c7c98f11e24 100644 (file)
--- a/Command/AddUrl.hs
+++ b/Command/AddUrl.hs
@@ -19,6 +19,7 @@ import qualified Types.Remote as Remote
 import qualified Command.Add
 import Annex.Content
 import Annex.Ingest
+import Annex.CheckIgnore
 import Annex.UUID
 import Logs.Web
 import Types.KeySource
@@ -157,7 +158,7 @@ performRemote r relaxed uri file sz = ifAnnexed file adduri geturi
        geturi = next $ isJust <$> downloadRemoteFile r relaxed uri file sz
 
 downloadRemoteFile :: Remote -> Bool -> URLString -> FilePath -> Maybe Integer -> Annex (Maybe Key)
-downloadRemoteFile r relaxed uri file sz = do
+downloadRemoteFile r relaxed uri file sz = checkCanAdd file $ do
        let urlkey = Backend.URL.fromUrl uri sz
        liftIO $ createDirectoryIfMissing True (parentDir file)
        ifM (Annex.getState Annex.fast <||> pure relaxed)
@@ -236,7 +237,7 @@ performQuvi relaxed pageurl videourl file = ifAnnexed file addurl geturl
        geturl = next $ isJust <$> addUrlFileQuvi relaxed quviurl videourl file
 
 addUrlFileQuvi :: Bool -> URLString -> URLString -> FilePath -> Annex (Maybe Key)
-addUrlFileQuvi relaxed quviurl videourl file = stopUnless (doesNotExist file) $ do
+addUrlFileQuvi relaxed quviurl videourl file = checkCanAdd file $ do
        let key = Backend.URL.fromUrl quviurl Nothing
        ifM (pure relaxed <||> Annex.getState Annex.fast)
                ( do
@@ -285,21 +286,13 @@ addUrlChecked relaxed url u checkexistssize key
                )
 
 addUrlFile :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key)
-addUrlFile relaxed url urlinfo file = stopUnless (doesNotExist file) $ do
+addUrlFile relaxed url urlinfo file = checkCanAdd file $ do
        liftIO $ createDirectoryIfMissing True (parentDir file)
        ifM (Annex.getState Annex.fast <||> pure relaxed)
                ( nodownload url urlinfo file
                , downloadWeb url urlinfo file
                )
 
-doesNotExist :: FilePath -> Annex Bool
-doesNotExist file = go =<< liftIO (catchMaybeIO $ getSymbolicLinkStatus file)
-  where
-       go Nothing = return True
-       go (Just _) = do
-               warning $ file ++ " already exists and is not annexed; not overwriting"
-               return False
-
 downloadWeb :: URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key)
 downloadWeb url urlinfo file = do
        let dummykey = addSizeUrlKey urlinfo $ Backend.URL.fromUrl url Nothing
@@ -400,3 +393,16 @@ adjustFile o = addprefix . addsuffix
   where
        addprefix f = maybe f (++ f) (prefixOption o)
        addsuffix f = maybe f (f ++) (suffixOption o)
+
+checkCanAdd :: FilePath -> Annex (Maybe a) -> Annex (Maybe a)
+checkCanAdd file a = ifM (isJust <$> (liftIO $ catchMaybeIO $ getSymbolicLinkStatus file))
+       ( do
+               warning $ file ++ " already exists and is not annexed; not overwriting"
+               return Nothing
+       , ifM ((not <$> Annex.getState Annex.force) <&&> checkIgnored file)
+               ( do
+                       warning $ "not adding " ++ file ++ " which is .gitignored (use --force to override)"
+                       return Nothing
+               , a
+               )
+       )

diff --git a/doc/bugs/reports_success_when_addurl_--batch__a_file_which_is_.gitignore__39__d.mdwn b/doc/bugs/reports_success_when_addurl_--batch__a_file_which_is_.gitignore__39__d.mdwn
index d4cdaafb5a63926c9a278a56e32451e4f2618f39..1fbd3bdaa40b01e56b8b08ee6344ad952c646eb3 100644 (file)
--- a/doc/bugs/reports_success_when_addurl_--batch__a_file_which_is_.gitignore__39__d.mdwn
+++ b/doc/bugs/reports_success_when_addurl_--batch__a_file_which_is_.gitignore__39__d.mdwn
@@ -29,3 +29,8 @@ git-annex: user error (xargs ["-0","git","--git-dir=.git","--work-tree=.","--lit
 """]]
 
 [[!meta author=yoh]]
+
+> And it leaves the unstaged symlink behind too.
+> 
+> [[fixed|done]] to check ignore status before creating the file.
+> --[[Joey]]