Remove +workspace/cleanup (doom/cleanup-buffers is better)

This commit is contained in:
Henrik Lissner 2017-10-06 02:35:05 +02:00
parent 2624b73cfa
commit b0c26ea4dd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 1 additions and 12 deletions

View file

@ -428,17 +428,6 @@ the workspace and move to the next."
(t (t
(error "Can't delete last frame."))))) (error "Can't delete last frame.")))))
;;;###autoload
(defun +workspace/cleanup ()
"Clean up orphaned buffers and processes."
(interactive)
(let ((buffers (cl-remove-if #'persp--buffer-in-persps (buffer-list)))
(n (doom-kill-process-buffers)))
(mapc #'kill-buffer buffers)
(when (called-interactively-p 'any)
(message "Cleaned up %d buffers and %d processes"
(length buffers) n))))
;; ;;
;; Tabs display in minibuffer ;; Tabs display in minibuffer

View file

@ -42,7 +42,7 @@
(ex! "grevert" #'git-gutter:revert-hunk) (ex! "grevert" #'git-gutter:revert-hunk)
;; Dealing with buffers ;; Dealing with buffers
(ex! "clean[up]" #'+workspace/cleanup) (ex! "clean[up]" #'doom/cleanup-buffers)
(ex! "k[ill]" #'doom/kill-this-buffer) (ex! "k[ill]" #'doom/kill-this-buffer)
(ex! "k[ill]all" #'+hlissner:kill-all-buffers) (ex! "k[ill]all" #'+hlissner:kill-all-buffers)
(ex! "k[ill]m" #'+hlissner:kill-matching-buffers) (ex! "k[ill]m" #'+hlissner:kill-matching-buffers)