[5586] | 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 2 | ;; -*- coding: utf-8-unix -*- |
---|
| 3 | ;; FSF Emacs 23 用 Vine Linux wnn7egg 設定 |
---|
| 4 | ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp> |
---|
| 5 | ;; $Id: vine-default-wnn7egg.el,v 1.1 2009/04/22 16:02:01 munepi Exp $ |
---|
| 6 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 7 | |
---|
| 8 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 9 | ;; Wnn7Egg (Wnn7 フロントエンド) の設定 |
---|
| 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 11 | |
---|
| 12 | (if (or (equal emacs-ime "wnn7egg") |
---|
| 13 | (equal emacs-ime "wnn7") |
---|
| 14 | (equal emacs-ime "Wnn7")) |
---|
| 15 | (progn |
---|
| 16 | ;; (setq load-path (append '("/usr/share/wnn7/elisp/emacs20") load-path)) |
---|
| 17 | (global-set-key "\C-\\" 'toggle-input-method) |
---|
| 18 | ;; Shift-Space または 半角/全角 でも起動 |
---|
| 19 | (global-set-key [?\S-\ ] 'toggle-input-method) |
---|
| 20 | (global-set-key [zenkaku-hankaku] 'toggle-input-method) |
---|
| 21 | ;; canna like toggle keybind |
---|
| 22 | ;;(global-set-key "\C-o" 'toggle-input-method) |
---|
| 23 | (load "wnn7egg-leim") |
---|
| 24 | (set-input-method "japanese-egg-wnn7") |
---|
| 25 | (set-language-info "Japanese" 'input-method "japanese-egg-wnn7") |
---|
| 26 | |
---|
| 27 | ;; "nn" で「ん」を入力 |
---|
| 28 | (setq enable-double-n-syntax t) |
---|
| 29 | ;; 候補選択モード |
---|
| 30 | ;(egg-use-input-predict) |
---|
| 31 | (setq egg-predict-realtime nil) |
---|
| 32 | ;; インライン候補選択モード |
---|
| 33 | (setq egg-predict-mode "inline") |
---|
| 34 | ;; ウインドウ候補選択モード |
---|
| 35 | (setq egg-predict-mode "window") |
---|
| 36 | |
---|
| 37 | ;; ;; 候補リスト表示 |
---|
| 38 | ;; (define-key wnn7-henkan-mode-map " " 'wnn7-henkan-select-kouho-dai) |
---|
| 39 | |
---|
| 40 | ;; ;; 1234567890%#%"'/\| を「半角」で入力 |
---|
| 41 | ;; (let ((its:*defrule-verbose* nil)) |
---|
| 42 | ;; (its-define-mode "roma-kana") |
---|
| 43 | ;; (dolist (symbol '("1" "2" "3" "4" "5" |
---|
| 44 | ;; "6" "7" "8" "9" "0" |
---|
| 45 | ;; "#" "%" "\"" "'" "/" "\\" "|")) |
---|
| 46 | ;; (its-defrule symbol symbol))) |
---|
| 47 | |
---|
| 48 | ;; ;; 「、」を使う時は、次行を「;」でコメントする |
---|
| 49 | ;; (its-defrule "," "," nil nil "roma-kana") |
---|
| 50 | ;; ;; 「。」を使う時は、次行を「;」でコメントする |
---|
| 51 | ;; (its-defrule "." "." nil nil "roma-kana") |
---|
| 52 | ;; ;; 「/」を使うときは、次行を「;」でコメントする |
---|
| 53 | ;; (its-defrule "/" "・" nil nil "roma-kana") |
---|
| 54 | |
---|
| 55 | ;; ;; デフォルトの句読点「、。」を「,.」に変更する |
---|
| 56 | ;; (setq use-touten-for-comma nil) |
---|
| 57 | ;; (setq use-kuten-for-period nil) |
---|
| 58 | |
---|
| 59 | ;; 部首・画数変換を可能にする wnn7egg には busyu.el はない |
---|
| 60 | (load "busyu") |
---|
| 61 | ) |
---|
| 62 | ) |
---|
| 63 | |
---|
| 64 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 65 | |
---|
| 66 | (provide 'vine-default-wnn7egg) |
---|
| 67 | |
---|
| 68 | ;; Local Variables: |
---|
| 69 | ;; mode: emacs-lisp |
---|
| 70 | ;; End: |
---|