From 2d95e1efef26db3eaaa63f4f32f6f1dbaa0e73ab Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 4 Sep 2021 23:55:15 -0500
Subject: Quit buffers after /PART, /QUIT, /GQUIT

---
 init.el | 17 +++++++++++++++--
 1 file 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!!!"
   (:bind "C-c C-p" #'circe-command-PART)
 
   (:advise circe-command-PART :after
-           (defun circe-command-PART@kill-buffer (&rest _)
+           (defun circe-part@kill-buffer (&rest _)
              (let ((circe-channel-killed-confirmation nil))
-               (kill-buffer))))
+               (kill-buffer)))
+
+           circe-command-QUIT :after
+           (defun circe-quit@kill-buffer (&rest _)
+             (let ((circe-server-killed-confirmation nil))
+               (with-circe-server-buffer
+                 (kill-buffer))))
+
+           circe-command-GQUIT :after
+           (defun circe-gquit@kill-buffer (&rest _)
+             (let ((circe-server-killed-confirmation nil))
+               (dolist (buf (circe-server-buffers))
+                 (with-current-buffer buf
+                   (kill-buffer))))))
 
   (:with-mode circe-chat-mode
     (:hook  #'acdw/stop-paren-annoyances
-- 
cgit 1.4.1-21-gabe81