1 ;;; leim-list.el --- Egg setup for leim API
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
5 ;; Author: NIIBE Yutaka <gniibe@chroot.org>
6 ;; KATAYAMA Yoshio <kate@pfu.co.jp>
7 ;; TOMURA Satoru <tomura@etl.go.jp>
9 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
11 ;; Keywords: mule, multilingual, input method
13 ;; This file is part of EGG.
15 ;; EGG is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; EGG is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;; GNU General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
28 ;; Boston, MA 02111-1307, USA.
35 (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamagotchy." t)
36 (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamagotchy." t)
38 (register-input-method
39 "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
40 "
\e$B$"
\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
43 (register-input-method
44 "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
45 "
\e$B$"
\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
48 (register-input-method
49 "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
50 "
\e$AF4
\e(BG" "Pinyin -> Simplified Hanzi"
51 'its-select-pinyin-cn)
53 (register-input-method
54 "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn
55 "
\e$AW"
\e(BG" "Zhunyin -> Simplified Hanzi"
56 'its-select-zhuyin-cn)
58 (register-input-method
59 "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
60 "
\e$AG.
\e(B" "QianMa Simplified Hanzi inputmethod"
63 (register-input-method
64 "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
65 "
\e$ANe
\e(B" "WuBi Simplified Hanzi inputmethod"
68 (register-input-method
69 "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn
70 "
\e$(GQ;
\e(BC" "Pinyin -> Traditional Hanzi"
71 'its-select-pinyin-tw)
73 (register-input-method
74 "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn
75 "
\e$(GNC
\e(BC" "Zhunyin -> Traditional Hanzi"
76 'its-select-zhuyin-tw)
78 (register-input-method
79 "korean-egg-wnn" "Korean" 'egg-activate-wnn
80 "
\e$(CGQ
\e(B" "Hangul -> Hanja"
83 (autoload 'egg-mode "egg" "Toggle EGG mode." t)
85 (set-language-info "Japanese" 'input-method "japanese-egg-wnn")
86 (set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py")
87 (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
88 (set-language-info "Korean" 'input-method "korean-egg-wnn")
91 "LEIM stands for Libraries of Emacs Input Methods."
95 :group 'leim :load "egg")
98 :group 'egg :load "egg/wnn")
101 :group 'egg :load "egg/sj3")
104 :group 'egg :load "its")
106 (defgroup hira nil ""
107 :group 'its :load "its/hira")
113 (defun load-leim-list-except-this ()
114 (load-libraries "leim-list"
116 (member (directory-file-name (file-name-directory load-file-name))
119 (message "Finished loading %s \n and load others..." load-file-name)
120 (load-leim-list-except-this)