diff --git a/my-funcs.el b/my-funcs.el index 9c0d05acf..7adff40f4 100644 --- a/my-funcs.el +++ b/my-funcs.el @@ -274,4 +274,14 @@ Adapted from `flyspell-correct-word-before-point'." poss word cursor-location start end opoint))) (ispell-pdict-save t))))) +(defun set-google-translate-languages (source target) + "Set source language for google translate. +For instance pass En as source for english." + (interactive "sEnter source language (ie. En): \nsEnter target language (ie. En): " + source target) + (message (format "Set google translate source language to %s and target to %s" + source target)) + (setq google-translate-default-source-language source) + (setq google-translate-default-target-language target)) + (provide 'my-funcs) diff --git a/my-keybindings.el b/my-keybindings.el index f4375e8cc..8056fdf92 100644 --- a/my-keybindings.el +++ b/my-keybindings.el @@ -239,10 +239,6 @@ (evil-leader/set-key "ww" 'other-window) ;; text ----------------------------------------------------------------------- (evil-leader/set-key "xdw" 'delete-trailing-whitespace) -(evil-leader/set-key "xgT" 'google-translate-query-translate) -(evil-leader/set-key "xgt" 'google-translate-at-point) -(evil-leader/set-key "xgR" 'google-translate-query-translate-reverse) -(evil-leader/set-key "xgr" 'google-translate-at-point-reverse) (evil-leader/set-key "xmj" 'move-text-down) (evil-leader/set-key "xmk" 'move-text-up) (evil-leader/set-key "xtc" 'transpose-chars) @@ -250,6 +246,12 @@ (evil-leader/set-key "xtw" 'transpose-words) (evil-leader/set-key "xU" 'upcase-region) (evil-leader/set-key "xu" 'downcase-region) +;; google translate ----------------------------------------------------------- +(evil-leader/set-key "xgl" 'set-google-translate-languages) +(evil-leader/set-key "xgQ" 'google-translate-query-translate-reverse) +(evil-leader/set-key "xgq" 'google-translate-query-translate) +(evil-leader/set-key "xgT" 'google-translate-at-point-reverse) +(evil-leader/set-key "xgt" 'google-translate-at-point) ;; centered cursor ------------------------------------------------------------ (evil-leader/set-key "zz" 'global-centered-cursor-mode)