Преглед на файлове

Experimental implement of translate-popup-at-point

pull/15/head
10sr преди 8 години
родител
ревизия
13204f6a08
променени са 1 файла, в които са добавени 9 реда и са изтрити 0 реда
  1. +9
    -0
      emacs.el

+ 9
- 0
emacs.el Целия файл

@@ -1858,4 +1858,13 @@ This mode is a simplified version of `adoc-mode'.")
(add-to-list 'auto-mode-alist
'("\\.adoc\\'" . adoc-simple-mode)))

(when (safe-require-or-eval 'google-translate)
(add-to-list 'google-translate-translation-directions-alist
'("en" . "ja"))
(defun translate-popup-at-point ()
"Translate popup at point."
(interactive)
(let ((google-translate-output-destination 'popup))
(google-translate-translate "en" "ja" (current-word t t)))))

;;; emacs.el ends here

Зареждане…
Отказ
Запис