From 2d05e54d351cedbaff95a91f720b43851b9bc980 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 25 Aug 2016 21:53:05 -0400 Subject: Add projectile-kill-other-buffers command --- lisp/km-projectile.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lisp/km-projectile.el') diff --git a/lisp/km-projectile.el b/lisp/km-projectile.el index f2342a4..79666d5 100644 --- a/lisp/km-projectile.el +++ b/lisp/km-projectile.el @@ -179,5 +179,15 @@ Like `projectile-kill-buffers', but (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest args) t))) (projectile-kill-buffers))) +;;;###autoload +(defun km/projectile-kill-other-buffers () + "Kill all project buffers except the current one." + (interactive) + (let ((cbuf (current-buffer))) + (mapc #'kill-buffer + (cl-remove-if + (lambda (b) (or (buffer-base-buffer b) (eq cbuf b))) + (projectile-project-buffers))))) + (provide 'km-projectile) ;;; km-projectile.el ends here -- cgit v1.2.3