awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor doom/cleanup-session & corresponding evil command

Browse Source
This commit is contained in:
Henrik Lissner
2018-01-03 14:08:41 -05:00
parent 69385fac1a
commit ab0223144c
2 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
core/autoload/buffers.el
View File

@ -242,18 +242,19 @@ project."
(message "Killed %s buffers" n))))
;;;###autoload
(defun doom/cleanup-session (&optional all-p)
(defun doom/cleanup-session (&optional all-p interactive-p)
"Clean up buried buries and orphaned processes in the current workspace. If
ALL-P (universal argument), clean them up globally."
(interactive "P")
(run-hooks 'doom-cleanup-hook)
(interactive (list current-prefix-arg 'interactive))
(let ((buffers (doom-buried-buffers (if all-p (buffer-list))))
(n 0)
kill-buffer-query-functions)
(mapc #'kill-buffer buffers)
(setq n (+ n (length buffers) (doom/cleanup-processes)))
(when (called-interactively-p 'interactive)
(message "Cleaned up %s buffers" n))))
(run-hooks 'doom-cleanup-hook)
(when interactive-p
(message "Cleaned up %s buffers" n))
n))
;;;###autoload
(defun doom/cleanup-processes ()