gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

doom/cleanup-session: don't kill processes by default

Browse Source
This commit is contained in:
Henrik Lissner 2019-01-14 00:52:31 -05:00
parent 500519fe00
commit d80802d3c9
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/autoload/buffers.el
View File

@ -267,7 +267,7 @@ that belong to the current project."
(unless project-p
(delete-other-windows))
(switch-to-buffer (doom-fallback-buffer))
(doom/cleanup-session (if project-p (doom-project-buffer-list))))
(doom/cleanup-session nil (if project-p (doom-project-buffer-list))))
;;;###autoload
(defun doom/kill-other-buffers (&optional project-p)
@ -299,17 +299,18 @@ project."
(message "Killed %s buffers" n))))
;;;###autoload
(defun doom/cleanup-session (&optional buffer-list)
(defun doom/cleanup-session (arg &optional buffer-list)
"Clean up buried buries and orphaned processes in the current workspace. If
ALL-P (universal argument), clean them up globally."
(interactive)
(interactive "P")
(let ((buffers (doom-buried-buffers buffer-list))
(n 0))
(dolist (buf buffers)
(unless (buffer-modified-p buf)
(kill-buffer buf)
(cl-incf n)))
(setq n (+ n (doom/cleanup-buffer-processes)))
(when arg
(setq n (+ n (doom/cleanup-buffer-processes))))
(dolist (hook doom-cleanup-hook)
(let ((m (funcall hook)))
(when (integerp m)