From d4449377b49db3b0d1f33ebfd73502297bc949ce Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 14 Jul 2021 08:37:47 -0500
Subject: Add `erc/reconnect'

---
 lisp/acdw-erc.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp/acdw-erc.el')

diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el
index f62e731..783dcd8 100644
--- a/lisp/acdw-erc.el
+++ b/lisp/acdw-erc.el
@@ -74,6 +74,14 @@ If USE-TLS is non-nil, use TLS."
                       (and (erc-server-buffer-p x) x))
                     (buffer-list))))
 
+(defun erc/reconnect ()
+  "Reconnect to all IRC servers."
+  (interactive)
+  (dolist (buffer (filter-server-buffers))
+    (with-message (format "Reconnecting to server: %s" (buffer-name buffer))
+      (with-current-buffer buffer
+        (erc-server-reconnect)))))
+
 (defun erc/disconnect ()
   "Disconnect from all IRC servers."
   (interactive)
@@ -81,6 +89,7 @@ If USE-TLS is non-nil, use TLS."
     (with-message (format "Killing server buffer: %s" (buffer-name buffer))
       (with-current-buffer buffer
         (erc-quit-server erc/bye-message))))
+  ;; TODO: kill all channel buffers
   (force-mode-line-update))
 
 (defun acdw-erc/prompt ()
-- 
cgit 1.4.1-21-gabe81