From 13204f6a0840541471ad050936fc979fb02ece47 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 10 Feb 2016 19:11:30 +0900
Subject: [PATCH] Experimental implement of translate-popup-at-point

---
 emacs.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/emacs.el b/emacs.el
index 177ef83..121d788 100644
--- a/emacs.el
+++ b/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