fix -defkey-evil function.

This commit is contained in:
amirrezaask 2020-03-12 05:38:05 +03:30
parent 7f8f62c02a
commit 50114c2686
1 changed files with 6 additions and 4 deletions

View File

@ -41,11 +41,13 @@
(normal-key (plist-get state-keys :normal))
(visual-key (plist-get state-keys :visual))
(insert-key (plist-get state-keys :insert))
)
(message "%s" normal-key))
(emacs-key (plist-get state-keys :emacs)))
(when (not (null normal-key)) (evil-define-key 'normal map normal-key fn))
(when (not (null visual-key)) (evil-define-key 'normal map normal-key fn))
(when (not (null insert-key)) (evil-define-key 'normal map normal-key fn))
(when (not (null emacs-key)) (evil-define-key 'normal map normal-key fn))
)
)
;;(mapcar (lambda (state)
;; (evil-define-key state map (kbd key) fn)) states))
(defmacro defkey (map keys fn)