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

tools/magit: cleanup magit concurrently

Browse Source 
A quick attempt to make +magit/quit faster.
This commit is contained in:
Henrik Lissner
2019-02-12 15:31:20 -05:00
parent 0e8af0e6d2
commit ba0ccc1d34
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
modules/tools/magit/autoload.el
View File

@ -48,6 +48,13 @@
;;
;; Commands
(defun +magit--refresh-vc-in-buffer (buffer)
(with-current-buffer buffer
(when (fboundp 'vc-refresh-state)
(vc-refresh-state))
(when (fboundp '+version-control|update-git-gutter)
(+version-control|update-git-gutter))))
;;;###autoload
(defun +magit/quit (&optional _kill-buffer)
"Clean up magit buffers after quitting `magit-status' and refresh version
@ -61,12 +68,13 @@ control in buffers."
(eq major-mode 'magit-status-mode)))
(window-list))))
(mapc #'+magit--kill-buffer (magit-mode-get-buffers))
(dolist (buffer (buffer-list))
(with-current-buffer buffer
(when (fboundp 'vc-refresh-state)
(vc-refresh-state))
(when (fboundp '+version-control|update-git-gutter)
(+version-control|update-git-gutter))))))
(let ((buffers (doom-buffer-list)))
(if (not (fboundp 'make-thread))
(mapc #'+magit--refresh-vc-in-buffer buffers)
(mapc #'+magit--refresh-vc-in-buffer (doom-visible-buffers buffers))
;; TODO Partition buffer list
(dolist (buffer (doom-buried-buffers buffers))
(make-thread (lambda () (+magit--refresh-vc-in-buffer buffer))))))))
(defun +magit--kill-buffer (buf)
"TODO"