doom/cleanup-buffers: add all-p parameter

This commit is contained in:
Henrik Lissner 2017-04-12 08:52:22 -04:00
parent e320abaef8
commit d8a0bc7827

View file

@ -246,10 +246,10 @@ exclude buffers that aren't part of the current project."
(message "Killed %s buffers" n))))
;;;###autoload
(defun doom/cleanup-buffers ()
(defun doom/cleanup-buffers (&optional all-p)
"Clean up buried and process buffers in the current workspace."
(interactive)
(let ((buffers (doom-buried-buffers)))
(interactive "P")
(let ((buffers (doom-buried-buffers (if all-p (buffer-list)))))
(mapc 'kill-buffer buffers)
(setq n (+ (doom-kill-process-buffers) (length buffers)))
(when (called-interactively-p 'interactive)