Remove doom-mode-map; semi-revert abe42fcb

This commit is contained in:
Henrik Lissner 2018-03-27 03:49:45 -04:00
parent 91c974033d
commit 8a74a081c4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 30 additions and 17 deletions

View file

@ -10,14 +10,6 @@
(defvar doom-localleader-key "SPC m"
"The localleader prefix key, for major-mode specific commands.")
(defvar doom-mode-map (make-sparse-keymap)
"TODO")
(define-minor-mode doom-mode
"TODO"
:global t
:init-value t)
(defvar doom-evil-state-alist
'((?n . normal)
(?v . visual)
@ -303,7 +295,7 @@ Example
(when (memq 'global states)
(push `(define-key ,keymap ,key ,def) forms))
(when-let* ((states (delq 'global states)))
(push `(,(if doom--defer 'evil-define-key 'evil-define-key*)
(push `(,(if doom--defer #'evil-define-key #'evil-define-key*)
',states ,keymap ,key ,def)
forms))))
(states
@ -311,18 +303,17 @@ Example
(throw 'skip 'evil))
(dolist (state states)
(push (if (eq state 'global)
`(define-key doom-mode-map ,key ,def)
`(global-set-key ,key ,def)
(if doom--local
`(evil-local-set-key ',state ,key ,def)
`(evil-define-key* ',state doom-mode-map ,key ,def)))
`(evil-define-key* ',state 'global ,key ,def)))
forms)))
(doom--keymaps
(dolist (keymap doom--keymaps)
(push `(define-key ,keymap ,key ,def) forms)))
(t
(push (if doom--local
`(local-set-key ,key ,def)
`(define-key doom-mode-map ,key ,def))
(push `(,(if doom--local #'local-set-key #'global-set-key)
,key ,def)
forms))))
(setq states '()
doom--local nil

View file

@ -732,3 +732,28 @@
(:after view
(:map view-mode-map "<escape>" #'View-quit-all)))
;;
;; Evil-collection fixes
;;
(when (featurep 'evil-collection)
;; don't interfere with leader key
(evil-define-key* '(normal visual) special-mode-map (kbd doom-leader-key) nil)
(after! dired
(evil-define-key* 'normal dired-mode-map (kbd doom-leader-key) nil))
;; don't remap gd or K; Doom does this already
;; TODO find a better way
(after! compile
(evil-define-key* '(normal visual) compilation-mode-map "gd" nil "K" nil))
(after! racer
(evil-define-key* 'normal racer-mode-map "gd" nil "K" nil))
(after! anaconda-mode
(evil-define-key* 'normal anaconda-mode-map "gd" nil "K" nil))
(after! alchemist
(evil-define-key* 'normal alchemist-mode-map "gd" nil "K" nil "gz" nil))
(after! go-mode
(evil-define-key* 'normal go-mode-map "gd" nil "K" nil))
(after! lua-mode
(evil-define-key* 'normal lua-mode-map "K" nil)))

View file

@ -63,9 +63,6 @@
(add-hook 'doom-init-hook #'evil-mode)
(evil-select-search-module 'evil-search-module 'evil-search)
;; ensure `doom-mode-map' has high precedence
(evil-make-overriding-map doom-mode-map)
(set! :popup "^\\*evil-registers" '((size . 0.3)))
(set! :popup "^\\*Command Line" '((size . 8)))