From 7f8f62c02afa92339ce7ce420f2b1fbbc303170b Mon Sep 17 00:00:00 2001 From: amirrezaask Date: Thu, 12 Mar 2020 03:20:57 +0330 Subject: [PATCH] WIP: naive solution for -defkey-evil --- lib/fg42/key-bindings.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/fg42/key-bindings.el b/lib/fg42/key-bindings.el index 13e5997..2bce921 100644 --- a/lib/fg42/key-bindings.el +++ b/lib/fg42/key-bindings.el @@ -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))