调整evil键绑定方便交叉引用

Emacs-general
7

刚好今天写了一个函数，不用写那么多define-key

(defun maple/define-key (keymap key def &rest bindings)
  "Define multi keybind with KEYMAP KEY DEF BINDINGS."
  (interactive)
  (while key
    (define-key keymap key def)
    (setq key (pop bindings)
          def (pop bindings))))

使用

(maple/define-key evil-insert-state-map
                  (kbd "C-h") (kbd "<left>")
                  (kbd "C-l") (kbd "<right>")
                  (kbd "C-j") (kbd "<down>")
                  (kbd "C-k") (kbd "<up>")
                  (kbd "C-v") 'cua-paste)