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 Tamago 4." t)
36 (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t)
37 (autoload 'egg-activate-canna "egg/canna"
38 "Activate CANNA backend of Tamago 4." t)
40 (register-input-method
41 "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
42 "
\e$B$"
\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
45 (register-input-method
46 "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
47 "
\e$B$"
\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
50 (register-input-method
51 "japanese-egg-canna" "Japanese" 'egg-activate-canna
52 "
\e$B$"
\e(B.." "Romaji -> Hiragana -> Kanji&Kana"
55 (register-input-method
56 "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
57 "
\e$AF4
\e(BG" "Pinyin -> Simplified Hanzi"
58 'its-select-pinyin-cn)
60 (register-input-method
61 "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn
62 "
\e$AW"
\e(BG" "Zhunyin -> Simplified Hanzi"
63 'its-select-zhuyin-cn)
65 (register-input-method
66 "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
67 "
\e$AG.
\e(B" "QianMa Simplified Hanzi inputmethod"
70 (register-input-method
71 "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
72 "
\e$ANe
\e(B" "WuBi Simplified Hanzi inputmethod"
75 (register-input-method
76 "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn
77 "
\e$(GQ;
\e(BC" "Pinyin -> Traditional Hanzi"
78 'its-select-pinyin-tw)
80 (register-input-method
81 "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn
82 "
\e$(GNC
\e(BC" "Zhunyin -> Traditional Hanzi"
83 'its-select-zhuyin-tw)
85 (register-input-method
86 "korean-egg-wnn" "Korean" 'egg-activate-wnn
87 "
\e$(CGQ
\e(B" "Hangul -> Hanja"
90 (autoload 'egg-mode "egg" "Toggle EGG mode." t)
92 (set-language-info "Japanese" 'input-method "japanese-egg-wnn")
93 (set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py")
94 (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
95 (set-language-info "Korean" 'input-method "korean-egg-wnn")
98 "LEIM stands for Libraries of Emacs Input Methods."
102 :group 'leim :load "egg")
105 :group 'egg :load "egg/wnn")
108 :group 'egg :load "egg/sj3")
110 (defgroup canna nil ""
111 :group 'egg :load "egg/canna")
114 :group 'egg :load "its")
116 (defgroup hira nil ""
117 :group 'its :load "its/hira")
123 (defun load-leim-list-except-this ()
124 (load-libraries "leim-list"
126 (member (directory-file-name (file-name-directory load-file-name))
129 (message "Finished loading %s \n and load others..." load-file-name)
130 (load-leim-list-except-this)