Re: scripting input methods (was back (batch) translate chars to keyboard events)

[Rustom Mody <rustompmody@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1398 bytes --]

On Mon, Feb 13, 2012 at 1:47 PM, Jambunathan K <kjambunathan@gmail.com>wrote:

>
> Rustom
>
> Try this:
>
> (defun translate-to-hindi (filename)
>  (interactive "fFile to be translated: ")
>  (with-temp-buffer
>    (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)))))
>
>
One question about the code above:
Why do you need the switch-to-buffer?
I tried removing it -- does not work
The doc for switch-to-buffer warns against using it in lisp suggesting
set-buffer instead.
I tried that -- does not work. My current code is this:

(defvar input-method "devanagari-itrans")
(defun translate-to-hindi (filename)
 (interactive "fFile to be translated: ")
 (let ((inp (with-temp-buffer
        (insert-file-contents filename)
        (buffer-string)))
       (out-file-name (concat (file-name-sans-extension filename)
                   "-hi" (file-name-extension filename t))))
   (with-temp-buffer
     (switch-to-buffer (current-buffer))
     (setq buffer-file-coding-system 'utf-8)
     (set-input-method input-method t)
     (execute-kbd-macro inp)
     (write-file out-file-name))))

[-- Attachment #2: Type: text/html, Size: 1866 bytes --]