Add key binding to set source and target languages for google translate
This commit is contained in:
parent
cb15e87d75
commit
503a01437d
10
my-funcs.el
10
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)
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
Loading…
Reference in a new issue