From 71c783bf24f2aa4ab911d8279081bcad08951ece Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 4 Jul 2011 16:19:04 -0400
Subject: [PATCH] uninit: Use unannex in --fast mode, to support unannexing
 multiple files that link to the same content.

---
 Command/Uninit.hs                             | 20 +++++++++++++------
 debian/changelog                              |  2 ++
 ...nnex__47__uninit_should_handle_copies.mdwn |  2 ++
 3 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 5cb66e83a1..1497bbfd19 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -28,7 +28,15 @@ command = [repoCommand "uninit" paramPath seek
         "de-initialize git-annex and clean out repository"]
 
 seek :: [CommandSeek]
-seek = [withFilesInGit Command.Unannex.start, withNothing start]
+seek = [withFilesInGit startUnannex, withNothing start]
+
+startUnannex :: CommandStartString
+startUnannex file = do
+	-- Force fast mode before running unannex. This way, if multiple
+	-- files link to a key, it will be left in the annex and hardlinked
+	-- to by each.
+	Annex.changeState $ \s -> s { Annex.fast = True }
+	Command.Unannex.start file
 
 start :: CommandStartNothing
 start = next perform
@@ -40,12 +48,12 @@ cleanup :: CommandCleanup
 cleanup = do
 	g <- Annex.gitRepo
 	gitPreCommitHookUnWrite g
+	mapM_ removeAnnex =<< getKeysPresent
+	liftIO $ removeDirectoryRecursive (gitAnnexDir g)
+	-- avoid normal shutdown
 	saveState
-	liftIO $ do
-		Git.run g "branch" [Param "-D", Param Branch.name]
-		removeDirectoryRecursive (gitAnnexDir g)
-		-- avoid normal shutdown
-		exitSuccess
+	liftIO $ Git.run g "branch" [Param "-D", Param Branch.name]
+	liftIO $ exitSuccess
 
 gitPreCommitHookUnWrite :: Git.Repo -> Annex ()
 gitPreCommitHookUnWrite repo = do
diff --git a/debian/changelog b/debian/changelog
index 844c6c3add..8f559bb028 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -3,6 +3,8 @@ git-annex (3.20110703) UNRELEASED; urgency=low
   * uninit: Delete the git-annex branch and .git/annex/
   * unannex: In --fast mode, file content is left in the annex, and a
     hard link made to it.
+  * uninit: Use unannex in --fast mode, to support unannexing multiple
+    files that link to the same content.
 
  -- Joey Hess <joeyh@debian.org>  Mon, 04 Jul 2011 15:50:21 -0400
 
diff --git a/doc/bugs/annex_unannex__47__uninit_should_handle_copies.mdwn b/doc/bugs/annex_unannex__47__uninit_should_handle_copies.mdwn
index 751e1afa9b..e830f11564 100644
--- a/doc/bugs/annex_unannex__47__uninit_should_handle_copies.mdwn
+++ b/doc/bugs/annex_unannex__47__uninit_should_handle_copies.mdwn
@@ -16,3 +16,5 @@ Rafaël
 > `dropunused` to actually remove the content. While doable, by use case
 > for unannex is more to quickly undo a mistaken add, and it's unlikely there
 > are multiple symlinks to the same content in this situation. --[[Joey]] 
+
+[[!tag done]]