FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WIP: naive solution for -defkey-evil

This commit is contained in:
amirrezaask 2020-03-12 03:20:57 +03:30
parent 34ef71fd66
commit 7f8f62c02a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/fg42/key-bindings.el
View File

@ -37,8 +37,12 @@
(defun -defkey-evil (map state-keys fn)
"Set the given STATE-KEYS on key map MAP to FN."
(message "%s" state-keys)
(mapcar (lambda (k) (message "k=>%s" k)) state-keys)
(let (
(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)
;; (evil-define-key state map (kbd key) fn)) states))