init.el

(require 'anthy)

(defun toggle-input-method-2 (im-name)
  (if (string-equal current-input-method im-name)
      (deactivate-input-method)
    (activate-input-method im-name)))
(defun <f5> () (interactive) (toggle-input-method-2 "chinese-array30-colemak"))
(defun <f6> () (interactive) (toggle-input-method-2 "japanese-anthy"))
(global-set-key (kbd "<f5>") '<f5>)
(global-set-key (kbd "<f6>") '<f6>)