;;; leim-list.el --- Egg setup for leim API
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
+;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc
-;; Author: NIIBE Yutaka <gniibe@chroot.org>
+;; Author: NIIBE Yutaka <gniibe@m17n.org>
;; KATAYAMA Yoshio <kate@pfu.co.jp>
;; TOMURA Satoru <tomura@etl.go.jp>
;;; Code:
-(when site-run-file
- (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago 4." t)
- (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t)
- (autoload 'egg-activate-canna "egg/canna"
- "Activate CANNA backend of Tamago 4." t)
-
- (register-input-method
- "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
- "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
- 'its-select-hiragana)
-
- (register-input-method
- "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
- "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
- 'its-select-hiragana)
-
- (register-input-method
- "japanese-egg-canna" "Japanese" 'egg-activate-canna
- "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
- 'its-select-hiragana)
-
- (register-input-method
- "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
- "\e$AF4\e(BG" "Pinyin -> Simplified Hanzi"
- 'its-select-pinyin-cn)
-
- (register-input-method
- "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn
- "\e$AW"\e(BG" "Zhunyin -> Simplified Hanzi"
- 'its-select-zhuyin-cn)
-
- (register-input-method
- "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
- "\e$AG.\e(B" "QianMa Simplified Hanzi inputmethod"
- 'its-select-qianma)
-
- (register-input-method
- "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
- "\e$ANe\e(B" "WuBi Simplified Hanzi inputmethod"
- 'its-select-wubi)
-
- (register-input-method
- "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn
- "\e$(GQ;\e(BC" "Pinyin -> Traditional Hanzi"
- 'its-select-pinyin-tw)
-
- (register-input-method
- "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn
- "\e$(GNC\e(BC" "Zhunyin -> Traditional Hanzi"
- 'its-select-zhuyin-tw)
-
- (register-input-method
- "korean-egg-wnn" "Korean" 'egg-activate-wnn
- "\e$(CGQ\e(B" "Hangul -> Hanja"
- 'its-select-hangul)
-
- (autoload 'egg-mode "egg" "Toggle EGG mode." t)
-
- (set-language-info "Japanese" 'input-method "japanese-egg-wnn")
- (set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py")
- (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
- (set-language-info "Korean" 'input-method "korean-egg-wnn")
+(autoload 'egg-activate-anthy "egg/anthy"
+ "Activate ANTHY backend of Tamago-tsunagi." t)
+(autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago-tsunagi." t)
+(autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago-tsunagi." t)
+(autoload 'egg-activate-canna "egg/canna"
+ "Activate CANNA backend of Tamago-tsunagi." t)
+
+(register-input-method
+ "japanese-egg-anthy" "Japanese" 'egg-activate-anthy
+ "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
+ 'its-select-hiragana)
+
+(register-input-method
+ "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
+ "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
+ 'its-select-hiragana)
+
+(register-input-method
+ "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
+ "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
+ 'its-select-hiragana)
+
+(register-input-method
+ "japanese-egg-canna" "Japanese" 'egg-activate-canna
+ "\e$B$"\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
+ 'its-select-hiragana)
+
+(register-input-method
+ "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
+ "\e$AF4\e(BG" "Pinyin -> Simplified Hanzi"
+ 'its-select-pinyin-cn)
+
+(register-input-method
+ "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn
+ "\e$AW"\e(BG" "Zhunyin -> Simplified Hanzi"
+ 'its-select-zhuyin-cn)
+
+(register-input-method
+ "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
+ "\e$AG.\e(B" "QianMa Simplified Hanzi inputmethod"
+ 'its-select-qianma)
+
+(register-input-method
+ "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
+ "\e$ANe\e(B" "WuBi Simplified Hanzi inputmethod"
+ 'its-select-wubi)
+
+(register-input-method
+ "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn
+ "\e$(GQ;\e(BC" "Pinyin -> Traditional Hanzi"
+ 'its-select-pinyin-tw)
+
+(register-input-method
+ "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn
+ "\e$(GNC\e(BC" "Zhunyin -> Traditional Hanzi"
+ 'its-select-zhuyin-tw)
+
+(register-input-method
+ "korean-egg-wnn" "Korean" 'egg-activate-wnn
+ "\e$(CGQ\e(B" "Hangul -> Hanja"
+ 'its-select-hangul)
+
+(autoload 'egg-mode "egg" "Toggle EGG mode." t)
+
+(set-language-info "Japanese" 'input-method "japanese-egg-wnn")
+(set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py")
+(set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
+(set-language-info "Korean" 'input-method "korean-egg-wnn")
(defgroup leim nil
"LEIM stands for Libraries of Emacs Input Methods."
(defgroup egg nil ""
:group 'leim :load "egg")
+(defgroup anthy nil ""
+ :group 'egg :load "egg/anthy")
+
(defgroup wnn nil ""
:group 'egg :load "egg/wnn")
(defgroup hira nil ""
:group 'its :load "its/hira")
-;;;;
-
- (require 'egg-util)
-
- (defun load-leim-list-except-this ()
- (load-libraries "leim-list"
- (cdr-safe
- (member (directory-file-name (file-name-directory load-file-name))
- load-path))))
-
- (message "Finished loading %s \n and load others..." load-file-name)
- (load-leim-list-except-this)
-
- )
+;;; leim-list.el ends here.
OSDN Git Service
