Add command magit-mode-quit-all-windows

1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/init-git.el b/lisp/init-git.el
index ef6b13a..9de3546 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -127,6 +127,12 @@ START-POINT set to the current branch.
       (magit-run-git "branch" (concat "b/" it))
     (user-error "No current branch")))
 
+(defun km/magit-mode-quit-all-windows (&optional kill-buffer)
+  "Run `magit-mode-quit-window' until no longer in Magit buffer."
+  (interactive "P")
+  (while (derived-mode-p 'magit-mode)
+    (magit-mode-quit-window kill-buffer)))
+
 ;; http://whattheemacsd.com/setup-magit.el-01.html
 (defadvice magit-status-internal (around magit-fullscreen activate)
   ad-do-it
@@ -151,6 +157,8 @@ START-POINT set to the current branch.
 
   (remove-hook 'magit-refs-sections-hook 'magit-insert-tags)
 
+  (define-key magit-mode-map "Q" 'km/magit-mode-quit-all-windows)
+
   (define-key magit-popup-mode-map (kbd "SPC <t>") 'magit-invoke-popup-switch)
   (define-key magit-popup-mode-map (kbd "SPC SPC <t>") 'magit-invoke-popup-option)