diff options
| -rw-r--r-- | init.el | 1 | ||||
| -rw-r--r-- | lisp/km-projectile.el | 10 |
2 files changed, 11 insertions, 0 deletions
@@ -795,6 +795,7 @@ ("." . km/projectile-copy-project-filename-as-kill) ("e" . km/projectile-restore-thing) ("k" . km/projectile-kill-buffers) + ("K" . km/projectile-kill-other-buffers) ("v" . km/projectile-view-file) ("w" . km/projectile-save-thing)) 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 |