webapp: Fix UI for removing XMPP connection.

Assistant/WebApp/Configurators/XMPP.hs

@@ -25,6 +25,9 @@ import Assistant.WebApp.RepoList
 import Assistant.WebApp.Configurators
 import Assistant.XMPP
 #endif
+import qualified Git.Remote
+import Remote.List
+import Creds
 
 #ifdef WITH_XMPP
 import Network.Protocol.XMPP
@@ -202,5 +205,22 @@ testXMPP creds = do
 	showport (UnixSocket s) = s
 #endif
 
+getDisconnectXMPPR :: Handler Html
+getDisconnectXMPPR = do
+#ifdef WITH_XMPP
+	rs <- filter Remote.isXMPPRemote . syncRemotes
+		<$> liftAssistant getDaemonStatus
+	liftAnnex $ do
+		mapM_ (inRepo . Git.Remote.remove . Remote.name) rs
+		void remoteListRefresh
+		removeCreds xmppCredsFile
+	liftAssistant $ do
+		updateSyncRemotes
+		notifyNetMessagerRestart
+	redirect DashboardR
+#else
+	xmppPage $ $(widgetFile "configurators/xmpp/disabled")
+#endif
+
 xmppPage :: Widget -> Handler Html
 xmppPage = page "Jabber" (Just Configuration)