1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
2 | ;; -*- coding: utf-8-unix -*- |
---|
3 | ;; FSF Emacs 23 用 Vine Linux Tamago 設定 |
---|
4 | ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp> |
---|
5 | ;; $Id: vine-default-tamago.el,v 1.2 2009/04/22 23:55:04 munepi Exp $ |
---|
6 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
7 | |
---|
8 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
9 | ;; Egg (Wnn フロントエンド) の設定 |
---|
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
11 | |
---|
12 | ;; Wnn6/FreeWnn |
---|
13 | (if (or (equal emacs-ime "wnn") |
---|
14 | (equal emacs-ime "Wnn") |
---|
15 | (equal emacs-ime "wnn6") |
---|
16 | (equal emacs-ime "Wnn6") |
---|
17 | (equal emacs-ime "wnn8") |
---|
18 | (equal emacs-ime "Wnn8")) |
---|
19 | (progn |
---|
20 | (if (>= emacs-major-version 21) |
---|
21 | |
---|
22 | (progn |
---|
23 | |
---|
24 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
25 | ;;emacs-dl-wnnでないときの設定( emacs-21 + tamago v4) |
---|
26 | |
---|
27 | (global-set-key "\C-\\" 'toggle-input-method) |
---|
28 | ;; Shift-Space または 半角/全角 でも起動 |
---|
29 | (global-set-key [?\S-\ ] 'toggle-input-method) |
---|
30 | (global-set-key [zenkaku-hankaku] 'toggle-input-method) |
---|
31 | (load "egg") |
---|
32 | |
---|
33 | ;; InputMethod の設定 |
---|
34 | ;; emacs 起動時 ASCII |
---|
35 | ;;(setq default-input-method "japanese-egg-wnn") |
---|
36 | ;; emacs 起動時から日本語入力 |
---|
37 | (set-input-method "japanese-egg-wnn") |
---|
38 | |
---|
39 | ;; jserverの指定 |
---|
40 | ;; jserver のリストを次の様にして指定できます |
---|
41 | ;;(setq jserver-list '("vanilla" "espresso")) |
---|
42 | (setq jserver-list (list (getenv "JSERVER") "localhost")) |
---|
43 | |
---|
44 | |
---|
45 | ;;-------------------------------------------------------- |
---|
46 | ;; tamago v4 |
---|
47 | ;;-------------------------------------------------------- |
---|
48 | ;; 全般 |
---|
49 | |
---|
50 | ;;(setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura |
---|
51 | (garbage-collect) |
---|
52 | |
---|
53 | ;; "nn" で「ん」を入力 |
---|
54 | (setq enable-double-n-syntax t) |
---|
55 | |
---|
56 | ;; "." で「.」、"," で「,」を入力。 |
---|
57 | (setq use-kuten-for-period nil) |
---|
58 | (setq use-touten-for-comma nil) |
---|
59 | |
---|
60 | ) |
---|
61 | |
---|
62 | ;; emacs-dl-wnn の場合 (emacs-20) |
---|
63 | (progn |
---|
64 | (autoload 'egg "egg" "Initialize EGG." t) |
---|
65 | (egg) |
---|
66 | (global-set-key "\C-\\" 'toggle-egg-mode) |
---|
67 | (global-set-key [\S-\ ] 'toggle-egg-mode) |
---|
68 | (define-key isearch-mode-map "\C-\\" 'isearch-fep-egg) |
---|
69 | (autoload 'toggle-egg-mode "egg" "Initialize EGG." t) |
---|
70 | (autoload 'isearch-fep-egg "isearch-ext" |
---|
71 | "Read string for incremental search by using egg." t) |
---|
72 | |
---|
73 | (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura |
---|
74 | (garbage-collect) |
---|
75 | |
---|
76 | ;; jserver のリストを次の様にして指定できます |
---|
77 | ;;(setq jserver-list '("vanilla" "espresso")) |
---|
78 | (setq jserver-list (list (getenv "JSERVER") "localhost")) |
---|
79 | |
---|
80 | ;; "nn" で「ん」を入力 |
---|
81 | (setq enable-double-n-syntax t) |
---|
82 | |
---|
83 | ;; "." で「.」、"," で「,」を入力。 |
---|
84 | (setq use-kuten-for-period nil) |
---|
85 | (setq use-touten-for-comma nil) |
---|
86 | |
---|
87 | ;; 1234567890%#%"' を「半角」で入力" |
---|
88 | (let ((its:*defrule-verbose* nil)) |
---|
89 | (its-define-mode "roma-kana") |
---|
90 | (dolist (symbol '("1" "2" "3" "4" "5" |
---|
91 | "6" "7" "8" "9" "0" |
---|
92 | "#" "%" "\"" "'" )) |
---|
93 | (its-defrule symbol symbol))) |
---|
94 | |
---|
95 | ) |
---|
96 | ) |
---|
97 | ) |
---|
98 | ) |
---|
99 | |
---|
100 | |
---|
101 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
102 | ;; tamago-anthy の設定 |
---|
103 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
104 | |
---|
105 | (if (or (equal emacs-ime "scim") |
---|
106 | (equal emacs-ime "SCIM") |
---|
107 | (equal emacs-ime "anthy") |
---|
108 | (equal emacs-ime "Anthy") |
---|
109 | (equal emacs-ime "egg-anthy") |
---|
110 | (equal emacs-ime "tamago-anthy")) |
---|
111 | (progn |
---|
112 | (require 'egg) |
---|
113 | (load "tamago/leim-list") |
---|
114 | ;; InputMethod の設定 |
---|
115 | (setq default-input-method "japanese-egg-anthy") |
---|
116 | ;; AnthyとUTF-8で通信する |
---|
117 | (setq anthy-egg-use-utf8 t) |
---|
118 | |
---|
119 | ;; tamago v4 共通設定 |
---|
120 | (setq |
---|
121 | ;; 何回変換すると(自動的に)辞書に反映するか |
---|
122 | wnn-auto-save-dictionaries 1 |
---|
123 | ;; nil にすると、alphanumeric が半角入力になるらしい。 |
---|
124 | its-enable-fullwidth-alphabet nil |
---|
125 | ;; Backspace で消すときに、かなを入力したローマ字に展開して |
---|
126 | ;; ローマ字単位で消す? |
---|
127 | its-delete-by-keystroke t |
---|
128 | ;; 外すと操作方法が変わるみたいです。よく分かりません。 |
---|
129 | egg-mode-preference t |
---|
130 | ;; "nn" で「ん」を入力 |
---|
131 | enable-double-n-syntax t |
---|
132 | ;; "." で「.」、"," で「,」を入力。 |
---|
133 | use-kuten-for-period nil |
---|
134 | use-touten-for-comma nil |
---|
135 | ;; 候補の最後まで行ったら先頭に戻る |
---|
136 | egg-conversion-wrap-select t |
---|
137 | ;; 候補一覧を表示するまでの変換回数、0で非表示 |
---|
138 | egg-conversion-auto-candidate-menu 2 |
---|
139 | ;; 不正なキーシーケンスを警告する |
---|
140 | its-barf-on-invalid-keyseq t) |
---|
141 | |
---|
142 | ;; F7 で toroku-region |
---|
143 | (global-set-key [f7] 'egg-toroku-region) |
---|
144 | |
---|
145 | ;; egg-anthy.el |
---|
146 | (add-hook 'anthy-load-hook '(lambda () (load "egg-anthy"))) |
---|
147 | |
---|
148 | (load "its") |
---|
149 | ;(define-key global-map "\C-o" 'toggle-input-method) |
---|
150 | (global-set-key [?\S-\ ] 'toggle-input-method) |
---|
151 | (global-set-key [zenkaku-hankaku] 'toggle-input-method) |
---|
152 | ;(define-key isearch-mode-map "\C-o" 'isearch-toggle-input-method) |
---|
153 | (define-key isearch-mode-map [?\S-\ ] 'isearch-toggle-input-method) |
---|
154 | (define-key isearch-mode-map [zenkaku-hankaku] 'isearch-toggle-input-method) |
---|
155 | (define-key its-mode-map "\C-h" 'its-delete-backward-SYL) |
---|
156 | (define-key its-mode-map "\C-p" 'its-hiragana) |
---|
157 | (define-key its-mode-map "\C-y" 'its-hiragana) |
---|
158 | (define-key its-mode-map "\C-n" 'its-katakana) |
---|
159 | (define-key its-mode-map "\C-k" 'its-katakana) |
---|
160 | (define-key its-mode-map [up] 'its-hiragana) |
---|
161 | (define-key its-mode-map [down] 'its-katakana) |
---|
162 | (define-key egg-conversion-map "\C-g" 'egg-abort-conversion) |
---|
163 | (cond ((eq window-system 'x) |
---|
164 | (define-key its-mode-map [henkan] 'its-kick-convert-region) |
---|
165 | (define-key its-mode-map [hiragana-katakana] 'its-katakana) |
---|
166 | (define-key its-mode-map [muhenkan] 'its-hiragana) |
---|
167 | (define-key its-mode-map [f6] 'its-hiragana) |
---|
168 | (define-key its-mode-map [f7] 'its-katakana) |
---|
169 | (define-key its-mode-map [f8] 'its-half-width) |
---|
170 | (define-key its-mode-map [backspace] 'its-delete-backward-SYL) |
---|
171 | (define-key its-mode-map [delete] 'its-delete-SYL)) |
---|
172 | ((null window-system) |
---|
173 | (define-key its-mode-map "\e[17~" 'its-hiragana) |
---|
174 | (define-key its-mode-map "\e[18~" 'its-katakana) |
---|
175 | (define-key its-mode-map "\e[19~" 'its-half-width) |
---|
176 | (define-key its-mode-map [8] 'its-delete-backward-SYL) |
---|
177 | (define-key its-mode-map "\e[3~" 'its-delete-SYL))) |
---|
178 | ) |
---|
179 | ) |
---|
180 | |
---|
181 | |
---|
182 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
183 | |
---|
184 | (provide 'vine-default-tamago) |
---|
185 | |
---|
186 | ;; Local Variables: |
---|
187 | ;; mode: emacs-lisp |
---|
188 | ;; End: |
---|