evil: more scaleable way to set initial-state

bradwright · Aug 11, 2013 · 888303d · 888303d
1 parent f8de2f7
commit 888303d
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/packages/init-evil.el b/packages/init-evil.el
@@ -59,10 +59,11 @@
     (define-key minibuffer-local-must-match-map [escape] 'abort-recursive-edit)
     (define-key minibuffer-local-isearch-map [escape] 'abort-recursive-edit)
 
-    ;; ansi-term and term-mode have to be in Emacs
-    (evil-set-initial-state 'term-mode 'emacs)
-    (evil-set-initial-state 'eshell-mode 'emacs)
-    ;; help-mode is better in Emacs
-    (evil-set-initial-state 'help-mode 'emacs)))
+    ;; modes to map to different default states
+    (dolist (mode-map '((comint-mode . emacs)
+                        (term-mode . emacs)
+                        (eshell-mode . emacs)
+                        (help-mode . emacs)))
+      (evil-set-initial-state `,(car mode-map) `,(cdr mode-map)))))
 
 (provide 'init-evil)