From 60da0d6ad28bff7c601ba631a8ec65030f940367 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 2 Aug 2012 00:42:33 -0400
Subject: full autostart support

git annex assistant --autostart will start separate daemons in each
listed autostart repo

running the webapp outside any git-annex repo will open it on the
first listed autostart repo
---
 Assistant/WebApp/Configurators.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Assistant')

diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs
index e1fcfcd97..01245b4bc 100644
--- a/Assistant/WebApp/Configurators.hs
+++ b/Assistant/WebApp/Configurators.hs
@@ -21,6 +21,7 @@ import Init
 import qualified Git.Construct
 import qualified Git.Config
 import qualified Annex
+import Locations.UserConfig
 
 import Yesod
 import Data.Text (Text)
@@ -159,7 +160,10 @@ makeRepo path = do
 		error "git init failed!"
 	g <- Git.Config.read =<< Git.Construct.fromPath path
 	state <- Annex.new g
-	Annex.eval state $ initialize $ Just "new repo"
+	Annex.eval state $ initialize $ Just "new repo" -- TODO better description
+	autostart <- autoStartFile
+	createDirectoryIfMissing True (parentDir autostart)
+	appendFile autostart $ path ++ "\n"
 
 getAddRepositoryR :: Handler RepHtml
 getAddRepositoryR = bootstrap (Just Config) $ do
-- 
cgit v1.2.3