changing cursor color depending on input method

changing cursor color depending on input method

[Alexander Verbovetsky]

Hello,

I'm using Emacs to write mathematical texts in Russian,
so I often change input method with C-\

It is very convinient if the cursor change its color
when the input mode is activated.

Currently I have the following quick and dirty code
in my .emacs:
------------------------------
(add-hook 'input-method-activate-hook
          '(lambda ()
             (if (not (eq (selected-window) (minibuffer-window)))
                 (set-cursor-color "red"))))
(add-hook 'input-method-inactivate-hook
          '(lambda ()
             (if (not (eq (selected-window) (minibuffer-window)))
                 (set-cursor-color "black"))))
------------------------------
This works in 95%, but the color isn't changed when in the minibuffer
and goes wrong after "C-x C-f" (to repear I press C-\ twice).

Does a better way to do this exist?

What would be nice, IMO, is to have red cursor if next letter is
going to be non-latin and black otherwise, in all modes and regimes.

Thanks for the help.

Alex

Re: changing cursor color depending on input method

[Kevin Rodgers]

Alexander Verbovetsky wrote:

> I'm using Emacs to write mathematical texts in Russian,
> so I often change input method with C-\
> 
> It is very convinient if the cursor change its color
> when the input mode is activated.
> 
> Currently I have the following quick and dirty code
> in my .emacs:
> ------------------------------
> (add-hook 'input-method-activate-hook
>           '(lambda ()
>              (if (not (eq (selected-window) (minibuffer-window)))
>                  (set-cursor-color "red"))))
> (add-hook 'input-method-inactivate-hook
>           '(lambda ()
>              (if (not (eq (selected-window) (minibuffer-window)))
>                  (set-cursor-color "black"))))
> ------------------------------
> This works in 95%, but the color isn't changed when in the minibuffer


Well, you explicitly check whether the selected window is a minibuffer window.
What happens if you leave that test out?

> and goes wrong after "C-x C-f" (to repear I press C-\ twice).
> 
> Does a better way to do this exist?
> 
> What would be nice, IMO, is to have red cursor if next letter is
> going to be non-latin and black otherwise, in all modes and regimes.


-- 
Kevin Rodgers

Re: changing cursor color depending on input method

[Alexander Verbovetsky]

> Well, you explicitly check whether the selected window is a minibuffer
> window.  What happens if you leave that test out?

Toggling input method in minibuffer sometimes change the color of
cursor, sometimes no...

BTW, I found leim-cursor in the color-mate package at
http://www.netlab.is.tsukuba.ac.jp/~yokota/izumi/color_mate/color_mate_e.html

It basically works, but there is a proble: if I activate the input
method and do C-s, when I finish the cursor is black. It change the
color just after the first letter pressed, but not before.

Alex

Re: changing cursor color depending on input method

[Alexander Verbovetsky]

Looks like this can be a solution (not very smart :-)

(add-hook 'post-command-hook
	  '(lambda ()
	     (set-cursor-color
	      (if current-input-method
		  "red"
		"black")))))

Alex