~/lib/conf/emacs/ime.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; IMEの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ((eq system-type 'berkeley-unix)
(setq emacs-ime (getenv "EMACS_IME")))
((eq system-type 'gnu/linux)
(setq emacs-ime (getenv "EMACS_IME")))
((eq system-type 'linux)
(setq emacs-ime (getenv "EMACS_IME")))
((eq system-type 'berkeley-unix)
(setq emacs-ime (getenv "EMACS_IME")))
((eq system-type 'windows-nt)
(setq emacs-ime "ms-ime"))
((eq system-type 'darwin)
(setq emacs-ime "kotoeri"))
((eq system-type 'cygwin)
(setq emacs-ime "none"))
(t
(setq emacs-ime "none")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; かんなの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (or (equal emacs-ime "canna")
(equal emacs-ime "Canna")
(equal emacs-ime "canna-tamago"))
(load "~/lib/conf/emacs/canna.el"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Atok for X の設定
;; IIIMP 経由で実行します
;; (要 MULE-UCS, IIIMECF)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (equal emacs-ime "atokx")
(load "~/lib/conf/emacs/atokx.el"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; anthy.el の設定
;; (詳しくは /usr/share/doc/anthy-*/doc/ELISP を参照してください)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (eq (call-process "which" nil nil nil "anthy-agent") 0)
(progn
(if (or (equal emacs-ime "anthy-el")
(equal emacs-ime "Anthy-el"))
(load "~/lib/conf/emacs/anthy.el"))
(if (equal emacs-ime "scim")
(load "~/lib/conf/emacs/anthy.el"))
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; MS-IME の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (equal emacs-ime "ms-ime")
(load "~/lib/conf/emacs/msime.el"))
(when (fboundp 'mac-add-ignore-shortcut)
(mac-add-ignore-shortcut '(control)))
>> emacsの設定