diff options
-rw-r--r-- | lisp/acdw-erc.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index ba00355..423c4a5 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el | |||
@@ -74,6 +74,14 @@ If USE-TLS is non-nil, use TLS." | |||
74 | (and (erc-server-buffer-p x) x)) | 74 | (and (erc-server-buffer-p x) x)) |
75 | (buffer-list)))) | 75 | (buffer-list)))) |
76 | 76 | ||
77 | (defun erc/reconnect () | ||
78 | "Reconnect to all IRC servers." | ||
79 | (interactive) | ||
80 | (dolist (buffer (filter-server-buffers)) | ||
81 | (with-message (format "Reconnecting to server: %s" (buffer-name buffer)) | ||
82 | (with-current-buffer buffer | ||
83 | (erc-server-reconnect))))) | ||
84 | |||
77 | (defun erc/disconnect () | 85 | (defun erc/disconnect () |
78 | "Disconnect from all IRC servers." | 86 | "Disconnect from all IRC servers." |
79 | (interactive) | 87 | (interactive) |
@@ -81,6 +89,7 @@ If USE-TLS is non-nil, use TLS." | |||
81 | (with-message (format "Killing server buffer: %s" (buffer-name buffer)) | 89 | (with-message (format "Killing server buffer: %s" (buffer-name buffer)) |
82 | (with-current-buffer buffer | 90 | (with-current-buffer buffer |
83 | (erc-quit-server erc/bye-message)))) | 91 | (erc-quit-server erc/bye-message)))) |
92 | ;; TODO: kill all channel buffers | ||
84 | (force-mode-line-update)) | 93 | (force-mode-line-update)) |
85 | 94 | ||
86 | (defun acdw-erc/prompt () | 95 | (defun acdw-erc/prompt () |