diff options
| -rw-r--r-- | basic.el | 37 |
1 files changed, 37 insertions, 0 deletions
@@ -199,6 +199,8 @@ This will maintain the frame's width and height as well." ;;; display-buffer-alist +(require 'rx) + (setq display-buffer-alist `((,(rx (seq bos "*Help*" eos)) (display-buffer-in-side-window) @@ -564,6 +566,41 @@ left. --- 2022-11-17 22:56:20.746698" (advice-add #'read-buffer-to-switch :override #'durand-read-buffer-to-switch) +;;; Clear invisible buffers + +(defvar durand-invisible-buffer-unsafe-regex + (rx-to-string '(or + "Minibuf" + "Echo Area" + "code-conversion-work" + "code-converting-work" + "address") + t) + "I do not want to kill some invisible buffers. +This variable is a regular expression that should match those +buffers that I do not want to kill automatically.") + +(defun durand-clear-invisible-buffers () + "Kill invisible buffers that are not known to be safe to kill." + (interactive) + (let ((count 0)) + (mapc + (lambda (buffer) + (let ((name (buffer-name buffer)) + (inhibit-changing-match-data t)) + (cond + ;; ignore non-invisible buffers + ((or (= (length name) 0) (not (= (aref name 0) 32)))) + ;; ignore some "potentially unsafe" buffers + ((string-match durand-invisible-buffer-unsafe-regex name)) + ;; ignore buffers that are associated with live processes + ((get-buffer-process buffer)) + ((setq count (1+ count)) (kill-buffer buffer))))) + (buffer-list)) + (message "Cleared %d invisible buffers" count))) + +(define-key global-map (vector 3 ?k) #'durand-clear-invisible-buffers) + ;;; Save close ;;;###autoload |