Re: google-translate (was: Re: Is it possible to transform text before feeding it to ispell?)

[Emanuel Berg]

Andrey Tykhonov <atykhonov@gmail.com> writes:

> Thank you for the bug report! I'll fix it as soon
> as possible!

My pleasure :)

Here is an improvement of the interface I posted the
other day. You might want to use it or do something
similar your way. The idea is to echo the translation,
only with no properties, and not have it stick on the
kill ring.

;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/translate.el

(require 'w3m-unisearch) ; 
http://user.it.uu.se/~embe8573/conf/emacs-init/w3m/w3m-unisearch.el

(require 'google-translate-core-ui)

(defun swedish-to-english (&optional text-noninteractive)
  (interactive)
  (let ((killed kill-ring)
        (text   (or text-noninteractive (get-search-string "ord"))) )
    (google-translate-translate "Swedish" "English" text 'kill-ring)
    (let ((translation (string-make-unibyte (current-kill 0))))
      (setq kill-ring-yank-pointer killed)
      (if text-noninteractive translation
        (message "%s: %s" text translation) ))))

(defalias 'sv 'swedish-to-english)

-- 
underground experts united
http://user.it.uu.se/~embe8573