123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188 |
- (if (or (equal emacs-ime "wnn")
- (equal emacs-ime "Wnn")
- (equal emacs-ime "wnn6")
- (equal emacs-ime "Wnn6")
- (equal emacs-ime "wnn8")
- (equal emacs-ime "Wnn8"))
- (progn
- (if (>= emacs-major-version 21)
- (progn
-
-
- (global-set-key "\C-\\" 'toggle-input-method)
-
- (global-set-key [?\S-\ ] 'toggle-input-method)
- (global-set-key [zenkaku-hankaku] 'toggle-input-method)
- (load "egg")
-
-
-
-
-
- (set-input-method "japanese-egg-wnn")
-
-
-
-
- (setq jserver-list (list (getenv "JSERVER") "localhost"))
-
-
-
-
-
-
- (garbage-collect)
-
-
- (setq enable-double-n-syntax t)
-
-
- (setq use-kuten-for-period nil)
- (setq use-touten-for-comma nil)
-
- )
-
-
- (progn
- (autoload 'egg "egg" "Initialize EGG." t)
- (egg)
- (global-set-key "\C-\\" 'toggle-egg-mode)
- (global-set-key [\S-\ ] 'toggle-egg-mode)
- (define-key isearch-mode-map "\C-\\" 'isearch-fep-egg)
- (autoload 'toggle-egg-mode "egg" "Initialize EGG." t)
- (autoload 'isearch-fep-egg "isearch-ext"
- "Read string for incremental search by using egg." t)
-
- (setq egg-default-startup-file "eggrc-wnn")
- (garbage-collect)
-
-
-
- (setq jserver-list (list (getenv "JSERVER") "localhost"))
-
-
- (setq enable-double-n-syntax t)
-
-
- (setq use-kuten-for-period nil)
- (setq use-touten-for-comma nil)
-
-
- (let ((its:*defrule-verbose* nil))
- (its-define-mode "roma-kana")
- (dolist (symbol '("1" "2" "3" "4" "5"
- "6" "7" "8" "9" "0"
- "#" "%" "\"" "'" ))
- (its-defrule symbol symbol)))
-
- )
- )
- )
- )
- (if (or (equal emacs-ime "scim")
- (equal emacs-ime "SCIM")
- (equal emacs-ime "anthy")
- (equal emacs-ime "Anthy")
- (equal emacs-ime "egg-anthy")
- (equal emacs-ime "tamago-anthy"))
- (progn
- (require 'egg)
- (load "tamago/leim-list")
-
- (setq default-input-method "japanese-egg-anthy")
-
- (setq anthy-egg-use-utf8 t)
-
-
- (setq
-
- wnn-auto-save-dictionaries 1
-
- its-enable-fullwidth-alphabet nil
-
-
- its-delete-by-keystroke t
-
- egg-mode-preference t
-
- enable-double-n-syntax t
-
- use-kuten-for-period nil
- use-touten-for-comma nil
-
- egg-conversion-wrap-select t
-
- egg-conversion-auto-candidate-menu 2
-
- its-barf-on-invalid-keyseq t)
-
-
- (global-set-key [f7] 'egg-toroku-region)
-
- (add-hook 'anthy-load-hook '(lambda () (load "egg-anthy")))
- (load "its")
-
- (global-set-key [?\S-\ ] 'toggle-input-method)
- (global-set-key [zenkaku-hankaku] 'toggle-input-method)
-
- (define-key isearch-mode-map [?\S-\ ] 'isearch-toggle-input-method)
- (define-key isearch-mode-map [zenkaku-hankaku] 'isearch-toggle-input-method)
- (define-key its-mode-map "\C-h" 'its-delete-backward-SYL)
- (define-key its-mode-map "\C-p" 'its-hiragana)
- (define-key its-mode-map "\C-y" 'its-hiragana)
- (define-key its-mode-map "\C-n" 'its-katakana)
- (define-key its-mode-map "\C-k" 'its-katakana)
- (define-key its-mode-map [up] 'its-hiragana)
- (define-key its-mode-map [down] 'its-katakana)
- (define-key egg-conversion-map "\C-g" 'egg-abort-conversion)
- (cond ((eq window-system 'x)
- (define-key its-mode-map [henkan] 'its-kick-convert-region)
- (define-key its-mode-map [hiragana-katakana] 'its-katakana)
- (define-key its-mode-map [muhenkan] 'its-hiragana)
- (define-key its-mode-map [f6] 'its-hiragana)
- (define-key its-mode-map [f7] 'its-katakana)
- (define-key its-mode-map [f8] 'its-half-width)
- (define-key its-mode-map [backspace] 'its-delete-backward-SYL)
- (define-key its-mode-map [delete] 'its-delete-SYL))
- ((null window-system)
- (define-key its-mode-map "\e[17~" 'its-hiragana)
- (define-key its-mode-map "\e[18~" 'its-katakana)
- (define-key its-mode-map "\e[19~" 'its-half-width)
- (define-key its-mode-map [8] 'its-delete-backward-SYL)
- (define-key its-mode-map "\e[3~" 'its-delete-SYL)))
- )
- )
- (provide 'vine-default-tamago)
|