Re: google-translate

[Emanuel Berg]

Another issue seems to be the display of Swedish chars
in the echo area, tho that isn't a general issue.
I don't know where it sneaked in, but the fixer defun
below appears to have the situation in
a rock-stead grip.

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

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

(require 'google-translate-core-ui)

(defun fix-swedish-chars-in-string (str)
  (loop for trans-pair in '(("\345" "å")
                            ("\344" "ä")
                            ("\366" "ö") ) do
          (setq str (replace-regexp-in-string (car  trans-pair)
                                              (cadr trans-pair) str)) )
    str)

(defun translate (src-lang dst-lang text)
  (interactive)
  (let ((killed kill-ring))
    (google-translate-translate src-lang dst-lang text 'kill-ring)
    (let ((translation (string-make-unibyte (current-kill 0))))
      (setq kill-ring-yank-pointer killed)
      (message "%s: %s" text (fix-swedish-chars-in-string translation)) )))

(defun swedish-to-english ()
  (interactive)
  (translate "sv" "en" (get-search-string "ord")) )

(defun english-to-swedish ()
  (interactive)
  (translate "en" "sv" (get-search-string "word(s)")) )

(defalias 'sv 'swedish-to-english)
(defalias 'en 'english-to-swedish)

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