[emacs] IMEのon/offに連動してカーソルの色を変える

これがかなり便利で会社のmeadowに設定した。

	(add-hook 'mw32-ime-on-hook
		(function (lambda () (set-cursor-color "red"))))
	(add-hook 'mw32-ime-off-hook
		(function (lambda () (set-cursor-color "black"))))

さて問題がプライベートのcarbon emacs なのですが。現状、日本語入力にはことえりを使ってます。SKKにはまだ移行できてません。モードラインにIMEの状態表示できてるのでhookできるのではないかなぁと思ってるんですけど今のところまだ上手くいってないです。

追記:
コメント参照。kzysさんありがとうございます。
ちなみに僕はこんな感じで色設定しました。日本語入力のときを目立つようにしてます。

(mac-set-input-method-parameter `roman `cursor-color "dim gray")
(mac-set-input-method-parameter `japanese `cursor-color "magenta")