Move eaf-capture-commands and eaf-capture-keys code to eaf-mode-map*

define place.
master
Andy Stewart 6 years ago
parent cf1a303675
commit 911928f36f
  1. 8
      eaf.el

@ -98,6 +98,10 @@
(define-key map (kbd "C-h m") 'eaf-describe-bindings)
(define-key map [remap describe-bindings] 'eaf-describe-bindings)
(define-key map (kbd "C-c b") 'eaf-open-bookmark)
(dolist (cmd eaf-capture-commands)
(define-key map (vector 'remap cmd) 'eaf-send-key))
(dolist (single-key eaf-capture-keys)
(define-key map (kbd single-key) 'eaf-send-key))
map)
"Keymap for default bindings available in all apps.")
@ -533,10 +537,6 @@ to edit EAF keybindings!" fun)))
"Configure the `eaf-mode-map' from KEYBINDING, one of the eaf-*-keybinding variables."
(setq eaf-mode-map
(let ((map (make-sparse-keymap)))
(dolist (cmd eaf-capture-commands)
(define-key map (vector 'remap cmd) 'eaf-send-key))
(dolist (single-key eaf-capture-keys)
(define-key map (kbd single-key) 'eaf-send-key))
(set-keymap-parent map eaf-mode-map*)
(cl-loop for (key . fun) in keybinding
do (if (symbolp fun)

Loading…
Cancel
Save