forked from FG42/FG42
WIP: naive solution for -defkey-evil
This commit is contained in:
parent
34ef71fd66
commit
7f8f62c02a
|
@ -37,8 +37,12 @@
|
||||||
|
|
||||||
(defun -defkey-evil (map state-keys fn)
|
(defun -defkey-evil (map state-keys fn)
|
||||||
"Set the given STATE-KEYS on key map MAP to FN."
|
"Set the given STATE-KEYS on key map MAP to FN."
|
||||||
(message "%s" state-keys)
|
(let (
|
||||||
(mapcar (lambda (k) (message "k=>%s" k)) state-keys)
|
(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))
|
||||||
)
|
)
|
||||||
;;(mapcar (lambda (state)
|
;;(mapcar (lambda (state)
|
||||||
;; (evil-define-key state map (kbd key) fn)) states))
|
;; (evil-define-key state map (kbd key) fn)) states))
|
||||||
|
|
Loading…
Reference in New Issue