uimのON/OFFであれこれ

飛行機の中で暇だったので前から気になっていた所をいろいろ調べながら書いてみました。
zenkaku-hankakuのkeyvecを送るところにたどり着くのに時間がかかった。

;; uim-mode by higepon
;; ON/OFFでカーソルの色を変更。
;; ON時に必ず日本語入力モードにする
(defadvice uim-this-command-keys (around uim-send-zenkaku-hankaku)
  (setq ad-return-value `[zenkaku-hankaku]))
(defadvice uim-mode (around my-uim-mode)
  ad-do-it
  (set-face-background 'cursor (if ad-return-value "blue" "indian red"))
  (ad-activate-regexp "uim-send-zenkaku-hankaku")
  (uim-process-input)
  (ad-deactivate-regexp "uim-send-zenkaku-hankaku"))
(ad-activate-regexp "my-uim-mode")