Умная замена сочетаний клавиш для emacs

1. Во-первых, вам, вероятно, стоит взглянуть на злой режим, в котором много клавиатуры в стиле Vim. ярлыки для Emacs, многие из которых отражают ваши собственные предпочтения.

2. Если вам все еще нужен универсальный второстепенный режим, который будет динамически повторно связывать функции из любого заданного основного или второстепенного режима, вы, вероятно, захотите работать с такими функциями, как find-function-on-key, чтобы вынюхивать привязки, которые вы затем можете повторно привязать по мере необходимости.

3. Менее амбициозный подход может заключаться в определении персональной раскладки клавиатуры и привязке ее к одной клавише. Это избавляет вас от необходимости повторно связывать клавиши каждый раз при переключении режимов. Например, я использую следующее:

   (define-prefix-command 'ty-keymap)
   (global-set-key "\M- " ty-keymap)
   (define-key ty-keymap " " 'just-one-space) 
   

Это повторно связывает M-<space> для моего собственного использования, а затем повторно связывает just-one-space с M-<space><space>. Это позволяет мне делать такие странные вещи, как это:

(define-key ty-keymap "j" #'(lambda () (interactive) (ty-move-mode ?j)))
(define-key ty-keymap ";" #'(lambda () (interactive) (ty-move-mode ?\;)))
(define-key ty-keymap "k" #'(lambda () (interactive) (ty-move-mode ?k)))
(define-key ty-keymap "l" #'(lambda () (interactive) (ty-move-mode ?l)))

(defun ty-move-mode (mv)
  "Move over windows with right homerow keys."
  (interactive "k")
  (case mv
    (?j (windmove-left)
        (ty-move-mode (read-event)))
    (?; (windmove-right)
        (ty-move-mode (read-event)))
    (?k (windmove-down)
        (ty-move-mode (read-event)))
    (?l (windmove-up)
        (ty-move-mode (read-event)))
    (?\r (message "done!"))
    (t (push last-input-event unread-command-events))))

Это дает мне доступ к j, k, l и; для направленного движения вокруг моих окон. Было бы достаточно легко изменить это, чтобы дать вам мини-режим для передвижения отдельных персонажей:

(defun ty-move-mode (mv)
  "Move over windows with right homerow keys."
  (interactive "k")
  (case mv
    (?j (backward-char 1)
        (ty-move-mode (read-event)))
    (?; (forward-char 1)
        (ty-move-mode (read-event)))
    (?k (previous-line 1)
        (ty-move-mode (read-event)))
    (?l (next-line 1)
        (ty-move-mode (read-event)))
    (?\r (message "done!"))
    (t (push last-input-event unread-command-events))))

Возможно, кто-то другой лучше поймет, как делать именно то, что вы хотите.