summaryrefslogtreecommitdiff
path: root/Propellor/Property/SiteSpecific/GitHome.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Property/SiteSpecific/GitHome.hs')
-rw-r--r--Propellor/Property/SiteSpecific/GitHome.hs34
1 files changed, 0 insertions, 34 deletions
diff --git a/Propellor/Property/SiteSpecific/GitHome.hs b/Propellor/Property/SiteSpecific/GitHome.hs
deleted file mode 100644
index 6ed02146..00000000
--- a/Propellor/Property/SiteSpecific/GitHome.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-module Propellor.Property.SiteSpecific.GitHome where
-
-import Propellor
-import qualified Propellor.Property.Apt as Apt
-import Propellor.Property.User
-import Utility.SafeCommand
-
--- | Clones Joey Hess's git home directory, and runs its fixups script.
-installedFor :: UserName -> Property
-installedFor user = check (not <$> hasGitDir user) $
- property ("githome " ++ user) (go =<< liftIO (homedir user))
- `requires` Apt.installed ["git"]
- where
- go home = do
- let tmpdir = home </> "githome"
- ensureProperty $ combineProperties "githome setup"
- [ userScriptProperty user ["git clone " ++ url ++ " " ++ tmpdir]
- , property "moveout" $ makeChange $ void $
- moveout tmpdir home
- , property "rmdir" $ makeChange $ void $
- catchMaybeIO $ removeDirectory tmpdir
- , userScriptProperty user ["rm -rf .aptitude/ .bashrc .profile; bin/mr checkout; bin/fixups"]
- ]
- moveout tmpdir home = do
- fs <- dirContents tmpdir
- forM fs $ \f -> boolSystem "mv" [File f, File home]
-
-url :: String
-url = "git://git.kitenet.net/joey/home"
-
-hasGitDir :: UserName -> IO Bool
-hasGitDir user = go =<< homedir user
- where
- go home = doesDirectoryExist (home </> ".git")