From 5da641b6e675a6a7d7abeab09919ddf1f58016ce Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Sun, 23 Nov 2014 09:59:32 -0500 Subject: [PATCH] Quit ert buffers --- README.md | 1 + evil-escape.el | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index c0d4faa..3844ea2 100644 --- a/README.md +++ b/README.md @@ -15,6 +15,7 @@ Press `fd` quickly to: - quit magit buffers - quit help buffers - quit apropos buffers +- quit ert buffers - hide neotree buffer And more to come ! diff --git a/evil-escape.el b/evil-escape.el index c9d5a9d..13be3db 100644 --- a/evil-escape.el +++ b/evil-escape.el @@ -5,7 +5,7 @@ ;; Author: Sylvain Benner ;; Keywords: convenience editing evil ;; Created: 22 Oct 2014 -;; Version: 1.5.1 +;; Version: 1.5.2 ;; Package-Requires: ((emacs "24") (evil "1.0.9") (key-chord "0.6")) ;; URL: https://github.com/syl20bnr/evil-escape @@ -37,6 +37,7 @@ ;; - quit magit buffers ;; - quit help buffers ;; - quit apropos buffers +;; - quit ert buffers ;; - hide neotree buffer ;; And more to come ! @@ -162,7 +163,10 @@ with a key sequence." (lookup-key evil-motion-state-map (evil-escape--first-key))) (let ((exit-func (lambda () (interactive) (cond ((or (eq 'apropos-mode major-mode) - (eq 'help-mode major-mode)) (quit-window)) + (eq 'help-mode major-mode) + (eq 'ert-results-mode major-mode) + (eq 'ert-simple-view-mode major-mode)) + (quit-window)) ((eq 'neotree-mode major-mode) (neotree-hide)) (t (evil-normal-state)))))) (eval `(evil-escape-define-escape evil-motion-state-map ,exit-func