about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw-erc.el9
1 files changed, 9 insertions, 0 deletions
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."
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 ()