[965] | 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") |
---|
[1149] | 116 | ;; AnthyとUTF-8で通信する |
---|
| 117 | (setq anthy-egg-use-utf8 t) |
---|
[965] | 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: |
---|