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