vine-default-IIIMECF.el 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; -*- coding: utf-8-unix -*-
  3. ;; FSF Emacs 23 用 Vine Linux IIIMECF 設定
  4. ;; Munehiro Yamamoto <munepi@vinelinux.org>
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;; Atok for X の設定
  8. ;; IIIMP 経由で実行します
  9. ;; (要 MULE-UCS, IIIMECF)
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11. (if (or (equal emacs-ime "iiimecf")
  12. (equal emacs-ime "IIIMECF")
  13. (equal emacs-ime "atokx")
  14. (equal emacs-ime "atokx2")
  15. (equal emacs-ime "atokx3"))
  16. (progn
  17. ;; (setq iiimcf-server-control-hostlist '("localhost"))
  18. (setq iiimcf-server-control-hostlist
  19. (list
  20. (concat "/tmp/.iiim-" (user-login-name) "/:0.0")
  21. "localhost"
  22. ;; "必要であれば、setq で継ぎ足して、ホストを追加していく。"
  23. ))
  24. ;; (require 'un-define)
  25. ;; (setq coding-category-utf-8 'utf-8)
  26. (require 'iiimcf-sc)
  27. (setq iiimcf-server-control-default-language "ja")
  28. (setq default-input-method 'iiim-server-control)
  29. ;; 変換トグルの設定
  30. (define-key global-map "\C-\\" 'toggle-input-method)
  31. ;; Shift-Space または 半角/全角 でも起動
  32. (global-set-key [?\S-\ ] 'toggle-input-method)
  33. (global-set-key [zenkaku-hankaku] 'toggle-input-method)
  34. ;; モードライン表示をすっきりと
  35. ;; (setcar default-mode-line-format "")
  36. )
  37. )
  38. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  39. (provide 'vine-default-IIIMECF)
  40. ;; Local Variables:
  41. ;; mode: emacs-lisp
  42. ;; End: