bleh

1 files changed, 36 insertions, 36 deletions

@@ -297,44 +297,44 @@ always nil; this function is mostly intended for use in init."
       (setq r (concat r str)))
     r))
 
-(defun chat-disconnect ()
-  "Disconnect from all chats."
-  (interactive)
-  (+with-progress "Quitting circe..."
-    (ignore-errors
-      (circe-command-GQUIT "peace love bread")
-      (cancel-timer (irc-connection-get conn :flood-timer))))
-  (+with-progress "Quitting jabber..."
-    (ignore-errors
-      (jabber-disconnect)))
-  (when (boundp '+slack-teams)
-    (+with-progress "Quitting-slack..."
-             (dolist (team +slack-teams)
-               (ignore-errors
-                 (slack-team-disconnect team)))
-             (ignore-errors (slack-ws-close))))
-  (+with-progress "Killing buffers..."
-    (ignore-errors
-      (+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))))))
+;; (defun chat-disconnect ()
+;;   "Disconnect from all chats."
+;;   (interactive)
+;;   (+with-progress "Quitting circe..."
+;;     (ignore-errors
+;;       (circe-command-GQUIT "peace love bread")
+;;       (cancel-timer (irc-connection-get conn :flood-timer))))
+;;   (+with-progress "Quitting jabber..."
+;;     (ignore-errors
+;;       (jabber-disconnect)))
+;;   (when (boundp '+slack-teams)
+;;     (+with-progress "Quitting-slack..."
+;;              (dolist (team +slack-teams)
+;;                (ignore-errors
+;;                  (slack-team-disconnect team)))
+;;              (ignore-errors (slack-ws-close))))
+;;   (+with-progress "Killing buffers..."
+;;     (ignore-errors
+;;       (+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 (chat-disconnect))
-  (dolist-with-progress-reporter (fn chat-functions)
-      "Connecting to chat..."
-    (call-interactively fn)))
+;; (defun chat (&optional arg)
+;;   "Initiate all chat functions.
+;; With optional ARG, kill all chat-related buffers first."
+;;   (interactive "P")
+;;   (when arg (chat-disconnect))
+;;   (dolist-with-progress-reporter (fn chat-functions)
+;;       "Connecting to chat..."
+;;     (call-interactively fn)))
 
 (defun +forward-paragraph (arg)
   "Move forward ARG (simple) paragraphs.