jason/emacs.d
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

Add my/kill-buffers-by-pattern function to utils.el

Browse source 
This commit adds the my/kill-buffers-by-pattern function to utils.el. Th
is function allows the user to kill buffers whose names match a
specifie
d pattern. The function prompts the user for a pattern, searches
through
all buffers, and kills the buffers whose names match the pattern. The
p
attern is a regular expression that is compared against buffer names
usi
ng 'string-match-p'.
This commit is contained in:
Jason TIAN 2023-09-16 18:29:05 +08:00
parent 79dc8f01a7
commit 2576788254
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/init-utils.el
View file

@ -512,6 +512,24 @@ Version: 2023-08-31"
(insert-buffer-substring source-buffer)
(pop-to-buffer existing-buffer))))
(defun my/kill-buffers-by-pattern (pattern)
"Kill buffers whose names match the specified pattern.
This function interactively prompts the user for a pattern and then searches
through the list of all buffers. Buffers whose names match the given pattern
are killed, effectively closing them. The pattern is a regular expression that
is compared against buffer names using 'string-match-p'.
Version: 2023-08-16"
(interactive "sEnter a pattern: ")
(dolist (buffer (buffer-list))
(let ((buffer-name (buffer-name buffer)))
(message "Processing buffer: %s" buffer-name)
(when (string-match-p pattern buffer-name)
(kill-buffer buffer)
(message "Killed buffer '%s'" buffer-name)))))
(provide 'init-utils)