acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Quit buffers after /PART, /QUIT, /GQUIT

This commit is contained in:
Case Duckworth 2021-09-04 23:55:15 -05:00
parent b965c0a0ed
commit 2d95e1efef
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -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