TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add key binding to set source and target languages for google translate

This commit is contained in:
syl20bnr 2013-11-25 00:18:28 -05:00
parent cb15e87d75
commit 503a01437d
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
my-funcs.el
View File

@ -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)

10
my-keybindings.el
View File

@ -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)