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: |
---|