diff options
| author | Case Duckworth | 2021-09-04 23:55:15 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-04 23:55:15 -0500 |
| commit | 2d95e1efef26db3eaaa63f4f32f6f1dbaa0e73ab (patch) | |
| tree | b6f881d36623118725486b3228d832e5e58d51aa | |
| parent | Fix circe channel nicks (diff) | |
| download | emacs-2d95e1efef26db3eaaa63f4f32f6f1dbaa0e73ab.tar.gz emacs-2d95e1efef26db3eaaa63f4f32f6f1dbaa0e73ab.zip | |
Quit buffers after /PART, /QUIT, /GQUIT
| -rw-r--r-- | init.el | 17 |
1 files changed, 15 insertions, 2 deletions
| diff --git a/init.el b/init.el index d9a01d1..80fb0cc 100644 --- a/init.el +++ b/init.el | |||
| @@ -229,9 +229,22 @@ AKA, DO NOT USE THIS FUNCTION!!!" | |||
| 229 | (:bind "C-c C-p" #'circe-command-PART) | 229 | (:bind "C-c C-p" #'circe-command-PART) |
| 230 | 230 | ||
| 231 | (:advise circe-command-PART :after | 231 | (:advise circe-command-PART :after |
| 232 | (defun circe-command-PART@kill-buffer (&rest _) | 232 | (defun circe-part@kill-buffer (&rest _) |
| 233 | (let ((circe-channel-killed-confirmation nil)) | 233 | (let ((circe-channel-killed-confirmation nil)) |
| 234 | (kill-buffer)))) | 234 | (kill-buffer))) |
| 235 | |||
| 236 | circe-command-QUIT :after | ||
| 237 | (defun circe-quit@kill-buffer (&rest _) | ||
| 238 | (let ((circe-server-killed-confirmation nil)) | ||
| 239 | (with-circe-server-buffer | ||
| 240 | (kill-buffer)))) | ||
| 241 | |||
| 242 | circe-command-GQUIT :after | ||
| 243 | (defun circe-gquit@kill-buffer (&rest _) | ||
| 244 | (let ((circe-server-killed-confirmation nil)) | ||
| 245 | (dolist (buf (circe-server-buffers)) | ||
| 246 | (with-current-buffer buf | ||
| 247 | (kill-buffer)))))) | ||
| 235 | 248 | ||
| 236 | (:with-mode circe-chat-mode | 249 | (:with-mode circe-chat-mode |
| 237 | (:hook #'acdw/stop-paren-annoyances | 250 | (:hook #'acdw/stop-paren-annoyances |