From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jambunathan K Newsgroups: gmane.emacs.help Subject: Re: scripting input methods (was back (batch) translate chars to keyboard events) Date: Mon, 13 Feb 2012 13:47:42 +0530 Message-ID: <81y5s7w3ix.fsf@gmail.com> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1329121093 25681 80.91.229.3 (13 Feb 2012 08:18:13 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 13 Feb 2012 08:18:13 +0000 (UTC) Cc: help-gnu-emacs@gnu.org, nicholas.dokos@hp.com To: Rustom Mody Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Feb 13 09:18:12 2012 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Rwr6x-0001Zi-Ka for geh-help-gnu-emacs@m.gmane.org; Mon, 13 Feb 2012 09:18:11 +0100 Original-Received: from localhost ([::1]:38616 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Rwr6x-0007lI-1e for geh-help-gnu-emacs@m.gmane.org; Mon, 13 Feb 2012 03:18:11 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:33947) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Rwr6r-0007kI-H8 for help-gnu-emacs@gnu.org; Mon, 13 Feb 2012 03:18:06 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Rwr6n-00034v-4N for help-gnu-emacs@gnu.org; Mon, 13 Feb 2012 03:18:05 -0500 Original-Received: from mail-pz0-f41.google.com ([209.85.210.41]:46000) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Rwr6m-00034c-M2 for help-gnu-emacs@gnu.org; Mon, 13 Feb 2012 03:18:01 -0500 Original-Received: by dadv6 with SMTP id v6so4489880dad.0 for ; Mon, 13 Feb 2012 00:17:59 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-type:content-transfer-encoding; bh=G4/5yjt/4Fzpjtu5nOjcUG27cFypSDSU/WNKpLY2PEQ=; b=hLLw6WMBC0/bNlA3OvXRHqDrebSXcQXkXuciLEClG6Jd9nzGGjnGXQPwfEgf/Z88su sBkaoc+ICx+QUlFUpOqVfc2FU+FlicIdNZ860ldjq5d8Obd347o9BitPBbSJjIYFYZbH pzObgZmaormQxFMy81eQjr0OVn7lE8OKOYTWQ= Original-Received: by 10.68.73.105 with SMTP id k9mr43721482pbv.121.1329121079459; Mon, 13 Feb 2012 00:17:59 -0800 (PST) Original-Received: from JAMBU-NETBOOK ([115.242.137.242]) by mx.google.com with ESMTPS id b4sm35207378pbc.7.2012.02.13.00.17.53 (version=TLSv1/SSLv3 cipher=OTHER); Mon, 13 Feb 2012 00:17:58 -0800 (PST) In-Reply-To: (Rustom Mody's message of "Mon, 13 Feb 2012 12:50:28 +0530") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.93 (windows-nt) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 209.85.210.41 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:83726 Archived-At: Rustom=20 Try this: (defun translate-to-hindi (filename) (interactive "fFile to be translated: ") (with-temp-buffer=20=20 (switch-to-buffer (current-buffer)) (setq buffer-file-coding-system 'utf-8) (set-input-method "devanagari-itrans" t) (execute-kbd-macro (with-temp-buffer (insert-file-contents filename) (buffer-string))) (write-file (concat (file-name-sans-extension filename) "-hi" (file-name-extension filename t))))) > Rustom Mody wrote: > I have some bunch of sanskrit (devanagari) to type. =C2=A0It would be > easiest for me if I could have the > English (roman) as well as the sanskrit (devanagari). >=20=20=20=20 > For example using the devanagari-itrans input method I can write > the gayatri mantra using >=20=20=20=20 > OM bhUrbhuvaH suvaH > tatsaviturvarenyam > bhargo devasya dhImahi > dhiyo yonaH prachodayAt >=20=20=20=20 > and emacs produces *on the fly* (ie I cant see/edit the above) >=20=20=20=20 > =C2=A0 =E0=A5=90 =E0=A4=AD=E0=A5=82=E0=A4=B0=E0=A5=8D=E0=A4=AD=E0=A5= =81=E0=A4=B5=E0=A4=83 =E0=A4=B8=E0=A5=81=E0=A4=B5=E0=A4=83 > =C2=A0 =E0=A4=A4=E0=A4=A4=E0=A5=8D=E0=A4=B8=E0=A4=B5=E0=A4=BF=E0=A4= =A4=E0=A5=81=E0=A4=B0=E0=A5=8D=E0=A4=B5=E0=A4=B0=E0=A5=87=E0=A4=A3=E0=A5=8D= =E0=A4=AF=E0=A4=AE=E0=A5=8D > =C2=A0 =E0=A4=AD=E0=A4=B0=E0=A5=8D=E0=A4=97=E0=A5=8B =E0=A4=A6=E0=A5= =87=E0=A4=B5=E0=A4=B8=E0=A5=8D=E0=A4=AF =E0=A4=A7=E0=A5=80=E0=A4=AE=E0=A4= =B9=E0=A4=BF > =C2=A0 =E0=A4=A7=E0=A4=BF=E0=A4=AF=E0=A5=8B =E0=A4=AF=E0=A5=8B=E0=A4= =A8=E0=A4=83 =E0=A4=AA=E0=A5=8D=E0=A4=B0=E0=A4=9A=E0=A5=8B=E0=A4=A6=E0=A4= =AF=E0=A4=BE=E0=A4=A4=E0=A5=8D >=20=20=20=20 > Can I do it in batch mode? ie write the first in a file and run > some command on it to produce the second? >=20=20=20=20 >=20=20=20=20 > > > > > > On Mon, Feb 13, 2012 at 9:45 AM, Nick Dokos > wrote: > >=20=20=20=20 >=20=20=20=20 > Yup, it can be done, probably in multiple ways but here is one. >=20=20=20=20 > I saw your question on the python list and did a bit of digging: > I came > up with a method that probably will work but will require more > work to > flesh out. The key was that input methods read events one at a > time and > (from the Elisp manual): >=20=20=20=20 > =C2=A0-- Function: read-event &optional prompt inherit-input-method > seconds > =C2=A0 =C2=A0 This function reads and returns the next event of comma= nd > input, > =C2=A0 =C2=A0 waiting if necessary until an event is available. =C2= =A0Events can > come > =C2=A0 =C2=A0 directly from the user or from a keyboard macro. >=20=20=20=20 > So if you could get the text to become the body of a keyboard > macro, > you could change the input method, execute the macro and that > would > submit the text to the input method as if you had typed it. >=20=20=20=20 > Trying the theory, I started a keyboard macro, typed in OM and a > newline > and ended the keyboard macro. I can then switch the input method > to > devanagari-itrans, execute the macro and presto! I get the proper > symbol > (at least to my untrained eyes). >=20=20=20=20 > You can insert the definition of a macro in a buffer (and name > it, edit it, > save it to a file and load the file later, and execute the macro > by name as > if it were a function (which it is, strictly speaking). The OM > macro above > turns out to look like this : >=20=20=20=20 > (fset 'om > =C2=A0 (lambda (&optional arg) "Keyboard macro." (interactive "p") > (kmacro-exec-ring-item (quote ([79 77 return] 0 "%d")) arg))) >=20=20=20=20 > > > =C2=A0 > > I would change the python (or whatever) program to produce the > whole > fset form into a file, then start emacs, load the file, switch > input > method and execute the macro: M-x om. >=20=20=20=20 > Nick > > > > Thanks for your efforts Nick! > Some questions: > 1. Why fset?=C2=A0 > > I can get the following to work > > (defun om (&optional arg) > =C2=A0 "Keyboard macro." > =C2=A0 (interactive "p") > =C2=A0 (kmacro-exec-ring-item '([79 77 return] 0 "%d") arg)) > > so assuming its just a stylistic question. [If not please enlighten] > By 'work' I mean after this definition, M-x om inserts =E0=A5=90 into the > buffer if devanagari-itrans is active. So far so good > > After that I am a bit stuck: > 2. kmacro-exec-ring-item has just this much documentation. > > kmacro-exec-ring-item is a compiled Lisp function in `kmacro.el'. > > (kmacro-exec-ring-item ITEM ARG) > > Execute item ITEM from the macro ring. > > Does not take me far :-( > > 3.=C2=A0 I guess this is really the same as the above question... > You say > =C2=A0 > > So all you need to do is produce that vector of ascii values in > there. I > wrote a trivial python program to produce the ascii codes of your > text > and stuffed the output into the vector, reevaluated the fset, and > executed the macro with a result that looks suspiciously like the > one in > your email. >=20=20=20=20 > > > The python (or elisp) to a text (ASCII-only) string to its ASCII is 1 > line: > >>>> def Ascii(str): return [ord(c) for c in str] > > I ran this on my file and got: > [79, 77, 32, 98, 104, 85, 114, 98, 104, 117, 118, 97, 72, 32, 115, > 117, 118, 97, 72, 10, 116, 97, 116, 115, 97, 118, 105, 116, 117, 114, > 118, 97, 114, 101, 110, 121, 97, 109, 10, 98, 104, 97, 114, 103, 111, > 32, 100, 101, 118, 97, 115, 121, 97, 32, 100, 104, 73, 109, 97, 104, > 105, 10, 100, 104, 105, 121, 111, 32, 121, 111, 110, 97, 72, 32, 112, > 114, 97, 99, 104, 111, 100, 97, 121, 65, 116, 10] > > Ok so remove the commas, ADD A 'return'=C2=A0 after to last 10 (Whats > that??) > And it almost works > ie I get the devanagari output followed by a elisp error: > > Debugger entered--Lisp error: (void-variable =E0=A4=AA=E0=A5=8D=E0=A4=B0= =E0=A4=9A=E0=A5=8B=E0=A4=A6=E0=A4=AF=E0=A4=BE=E0=A4=A4=E0=A5=8D) > =C2=A0 eval(=E0=A4=AA=E0=A5=8D=E0=A4=B0=E0=A4=9A=E0=A5=8B=E0=A4=A6=E0=A4= =AF=E0=A4=BE=E0=A4=A4=E0=A5=8D) > =C2=A0 eval-last-sexp-1(t) > =C2=A0 eval-last-sexp(t) > =C2=A0 eval-print-last-sexp() > =C2=A0 call-interactively(eval-print-last-sexp nil nil) > =C2=A0 execute-kbd-macro([79 77 32 98 104 85 114 98 104 117 118 97 72 32 > 115 117 118 97 72 116 97 116 115 97 118 105 116 117 114 118 97 114 > 101 110 121 97 109 98 104 97 114 103 111 32 100 101 118 97 115 121 > ...] 1 kmacro-loop-setup-function) > =C2=A0 kmacro-exec-ring-item(([79 77 32 98 104 85 114 98 104 117 118 97 72 > 32 115 117 118 97 72 116 97 116 115 97 118 105 116 117 114 118 97 114 > 101 110 121 97 109 98 104 97 114 103 111 32 100 101 118 97 115 121 > ...] 0 "%d") 1) > =C2=A0 om(1) > =C2=A0 call-interactively(om t nil) > =C2=A0 execute-extended-command(nil) > =C2=A0 call-interactively(execute-extended-command nil nil) > > The =E0=A4=AA=E0=A5=8D=E0=A4=B0=E0=A4=9A=E0=A5=8B=E0=A4=A6=E0=A4=AF=E0=A4= =BE=E0=A4=A4=E0=A5=8D is the devanagari of the last line: prachodayAt > If I remove the 10 (newline?) it seems to work without the elisp > error > > I guess the problem would be solved if some more suitable function > than > I wonder if there is some better function than kmacro-exec-ring-item > could be found for this? > > --=20