LL
Size: a a a
LL
DL
a
Aß
DL
Aß
Aß
DB
Aß
DL
Aß
DL
n
(defcustom multitran-avy-action-char
?M
"Char for avy-action-multitran-translate."
:type 'character
:group 'multitran)
(when (and multitran-avy-action-char
(require 'avy nil t))
(defun multitran-avy-translate (pt)
"Translate word at PT."
(save-excursion
(goto-char pt)
(let ((word (word-at-point))
(langs '("English" . "Russian")))
(multitran word langs))))
(cl-pushnew (cons multitran-avy-action-char
'multitran-avy-translate)
avy-dispatch-alist))
EZ
(defun multitran-at-point (pos) ..)
и пусть юзер сам добавляет её в avy-dispatch-alist
?𝘎(
𝘎(
𝘎(
𝘎(