emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add interactive codes to doom/kill-{all,other,matching}-buffers

Browse source
This commit is contained in:
Henrik Lissner 2017-02-08 02:19:34 -05:00
parent 0418c2ce98
commit 24c68d4254
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/buffers.el
View file

@ -248,7 +248,7 @@ regex PATTERN. Returns the number of killed buffers."
(defun doom/kill-all-buffers (&optional project-p) (defun doom/kill-all-buffers (&optional project-p)
"Kill all buffers in this workspace. If PROJECT-P, kill all buffers that "Kill all buffers in this workspace. If PROJECT-P, kill all buffers that
belong to the current project in this workspace." belong to the current project in this workspace."
(interactive) (interactive "P")
(let ((buffers (doom-buffer-list (not project-p)))) (let ((buffers (doom-buffer-list (not project-p))))
(mapc 'doom-kill-buffer-and-windows buffers) (mapc 'doom-kill-buffer-and-windows buffers)
(when (called-interactively-p 'interactive) (when (called-interactively-p 'interactive)
@ -258,7 +258,7 @@ belong to the current project in this workspace."
(defun doom/kill-other-buffers (&optional project-p) (defun doom/kill-other-buffers (&optional project-p)
"Kill all other buffers in this workgroup. If PROJECT-P, kill only the other "Kill all other buffers in this workgroup. If PROJECT-P, kill only the other
buffers that belong to the current project." buffers that belong to the current project."
(interactive) (interactive "P")
(let ((buffers (doom-buffer-list (not project-p)))) (let ((buffers (doom-buffer-list (not project-p))))
(mapc (lambda (buf) (mapc (lambda (buf)
(unless (eq buf (current-buffer)) (unless (eq buf (current-buffer))
@ -271,7 +271,7 @@ buffers that belong to the current project."
(defun doom/kill-matching-buffers (pattern &optional project-p) (defun doom/kill-matching-buffers (pattern &optional project-p)
"Kill buffers in current workgroup that match regex PATTERN. If BANG, then "Kill buffers in current workgroup that match regex PATTERN. If BANG, then
exclude buffers that aren't part of the current project." exclude buffers that aren't part of the current project."
(interactive) (interactive "sP")
(let* ((buffers (doom-buffer-list (not project-p))) (let* ((buffers (doom-buffer-list (not project-p)))
(n (doom-kill-matching-buffers pattern buffers))) (n (doom-kill-matching-buffers pattern buffers)))
(when (called-interactively-p 'interactive) (when (called-interactively-p 'interactive)