From: Emanuel Berg <embe8573@student.uu.se>
To: help-gnu-emacs@gnu.org
Subject: Re: google-translate
Date: Sat, 19 Sep 2015 02:09:36 +0200 [thread overview]
Message-ID: <87d1xf2rsv.fsf@debian.uxu> (raw)
In-Reply-To: 87eghwznh3.fsf@debian.uxu
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
next prev parent reply other threads:[~2015-09-19 0:09 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-09-08 8:29 Is it possible to transform text before feeding it to ispell? Marcin Borkowski
2015-09-08 10:19 ` Alexis
2015-09-08 11:45 ` Tassilo Horn
2015-09-08 22:40 ` google-translate (was: Re: Is it possible to transform text before feeding it to ispell?) Emanuel Berg
2015-09-09 7:18 ` Andrey Tykhonov
2015-09-10 0:51 ` Emanuel Berg
2015-09-16 3:01 ` google-translate Emanuel Berg
2015-09-16 12:22 ` google-translate Alex Kost
2015-09-16 23:29 ` google-translate Emanuel Berg
2015-09-17 22:32 ` google-translate Emanuel Berg
2015-09-19 0:09 ` Emanuel Berg [this message]
2015-09-19 4:17 ` google-translate Ian Zimmerman
2015-09-19 15:03 ` google-translate Emanuel Berg
2015-09-19 15:25 ` google-translate Emanuel Berg
2015-09-08 13:06 ` Is it possible to transform text before feeding it to ispell? Michael Heerdegen
2015-09-08 15:24 ` Marcin Borkowski
2015-09-08 17:39 ` Eli Zaretskii
2015-09-08 15:54 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87d1xf2rsv.fsf@debian.uxu \
--to=embe8573@student.uu.se \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).