Add chat-disconnect

1 files changed, 23 insertions, 7 deletions

@@ -277,18 +277,34 @@ always nil; this function is mostly intended for use in init."
   :type '(repeat function)
   :group 'applications)
 
+(defun chat-disconnect ()
+  "Disconnect from all chats."
+  (interactive)
+  (ignore-errors
+    (circe-command-GQUIT "☮ 🫀 🍞"))
+  (ignore-errors
+    (jabber-disconnect))
+  (dolist (team +slack-teams)
+    (ignore-errors
+      (slack-team-disconnect team)))
+  (ignore-errors (slack-ws-close))
+  (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
+                        (let ((kill-buffer-query-functions nil))
+                          (tracking-remove-buffer (current-buffer))
+                          (kill-buffer)))
+                      (lambda () "Return t if derived from the following modes."
+                        (derived-mode-p 'lui-mode
+                                        'jabber-chat-mode
+                                        'jabber-roster-mode
+                                        'jabber-browse-mode
+                                        'slack-mode))))
+
 ;; I can never remember all the damn chat things I run, so this just does all of em.
 (defun chat (&optional arg)
   "Initiate all chat functions.
 With optional ARG, kill all chat-related buffers first."
   (interactive "P")
-  (when arg
-    (ignore-errors
-      (circe-command-GQUIT "Reconnecting")
-      (+mapc-some-buffers #'kill-buffer (lambda () (derived-mode-p 'lui-mode)))
-      (jabber-disconnect)
-      ;; XXX: Slack ?
-      ))
+  (when arg (chat-disconnect))
   (mapc #'call-interactively chat-functions))
 
 (defun +forward-paragraph (arg)