Added updateproxy command and remote.name.annex-proxy configuration

So far this only records proxy information on the git-annex branch.

Command/UpdateProxy.hs

@@ -0,0 +1,52 @@
+{- git-annex command
+ -
+ - Copyright 2024 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU AGPL version 3 or higher.
+ -}
+
+module Command.UpdateProxy where
+
+import Command
+import Logs.Proxy
+import Annex.UUID
+import qualified Remote as R
+import qualified Types.Remote as R
+import Utility.SafeOutput
+
+import qualified Data.Map as M
+import qualified Data.Set as S
+
+cmd :: Command
+cmd = noMessages $ command "updateproxy" SectionSetup 
+	"update records with proxy configuration"
+	paramNothing (withParams seek)
+
+seek :: CmdParams -> CommandSeek
+seek = withNothing (commandAction start)
+
+start :: CommandStart
+start = startingCustomOutput (ActionItemOther Nothing) $ do
+	rs <- R.remoteList
+	let proxies = S.fromList $ 
+		map (\r -> Proxy (R.uuid r) (R.name r)) $
+			filter (remoteAnnexProxy . R.gitconfig) rs
+	u <- getUUID
+	oldproxies <- fromMaybe mempty . M.lookup u <$> getProxies
+	if oldproxies == proxies
+		then liftIO $ putStrLn "No proxy changes to record."
+		else do
+			describechanges oldproxies proxies
+			recordProxies proxies
+	next $ return True
+  where
+	describechanges oldproxies proxies =
+		forM_ (S.toList $ S.union oldproxies proxies) $ \p ->
+			case (S.member p oldproxies, S.member p proxies) of
+				(False, True) -> liftIO $
+					putStrLn $ safeOutput $
+						"Started proxying for " ++ proxyRemoteName p
+				(True, False) -> liftIO $
+					putStrLn $ safeOutput $
+						"Stopped proxying for " ++ proxyRemoteName p
+				_ -> noop