leim-list.el

   1 ;;; leim-list.el --- Egg setup for leim API
   2
   3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
   4
   5 ;; Author: NIIBE Yutaka <gniibe@chroot.org>
   6 ;;         KATAYAMA Yoshio <kate@pfu.co.jp>
   7 ;;         TOMURA Satoru <tomura@etl.go.jp>
   8
   9 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
  10
  11 ;; Keywords: mule, multilingual, input method
  12
  13 ;; This file is part of EGG.
  14
  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)
  18 ;; any later version.
  19
  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.
  24
  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.
  29
  30 ;;; Commentary:
  31
  32 ;;; Code:
  33
  34 (when site-run-file
  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)
  37
  38   (register-input-method
  39    "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
  40    "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
  41    'its-select-hiragana)
  42
  43   (register-input-method
  44    "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
  45    "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
  46    'its-select-hiragana)
  47
  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)
  52
  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)
  57
  58   (register-input-method
  59    "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
  60    "\e$AG.\e(B"  "QianMa Simplified Hanzi inputmethod"
  61    'its-select-qianma)
  62
  63   (register-input-method
  64    "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
  65    "\e$ANe\e(B"  "WuBi Simplified Hanzi inputmethod"
  66    'its-select-wubi)
  67
  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)
  72
  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)
  77
  78   (register-input-method
  79    "korean-egg-wnn" "Korean" 'egg-activate-wnn
  80    "\e$(CGQ\e(B"  "Hangul -> Hanja"
  81    'its-select-hangul)
  82
  83   (autoload 'egg-mode "egg" "Toggle EGG  mode." t)
  84
  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")
  89
  90 (defgroup leim nil
  91   "LEIM stands for Libraries of Emacs Input Methods."
  92   :group 'mule)
  93
  94 (defgroup egg nil ""
  95   :group 'leim :load "egg")
  96
  97 (defgroup wnn nil ""
  98   :group 'egg :load "egg/wnn")
  99
 100 (defgroup sj3 nil ""
 101   :group 'egg :load "egg/sj3")
 102
 103 (defgroup its nil ""
 104   :group 'egg :load "its")
 105
 106 (defgroup hira nil ""
 107   :group 'its :load "its/hira")
 108
 109 ;;;;
 110
 111   (require 'egg-util)
 112
 113   (defun load-leim-list-except-this ()
 114     (load-libraries "leim-list"
 115                     (cdr-safe
 116                      (member (directory-file-name (file-name-directory load-file-name))
 117                              load-path))))
 118
 119   (message "Finished loading %s \n   and load others..." load-file-name)
 120   (load-leim-list-except-this)
 121
 122   )