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 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)
  39
  40   (register-input-method
  41    "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
  42    "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
  43    'its-select-hiragana)
  44
  45   (register-input-method
  46    "japanese-egg-sj3" "Japanese" 'egg-activate-sj3
  47    "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
  48    'its-select-hiragana)
  49
  50   (register-input-method
  51    "japanese-egg-canna" "Japanese" 'egg-activate-canna
  52    "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
  53    'its-select-hiragana)
  54
  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)
  59
  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)
  64
  65   (register-input-method
  66    "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
  67    "\e$AG.\e(B"  "QianMa Simplified Hanzi inputmethod"
  68    'its-select-qianma)
  69
  70   (register-input-method
  71    "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
  72    "\e$ANe\e(B"  "WuBi Simplified Hanzi inputmethod"
  73    'its-select-wubi)
  74
  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)
  79
  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)
  84
  85   (register-input-method
  86    "korean-egg-wnn" "Korean" 'egg-activate-wnn
  87    "\e$(CGQ\e(B"  "Hangul -> Hanja"
  88    'its-select-hangul)
  89
  90   (autoload 'egg-mode "egg" "Toggle EGG  mode." t)
  91
  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")
  96
  97 (defgroup leim nil
  98   "LEIM stands for Libraries of Emacs Input Methods."
  99   :group 'mule)
 100
 101 (defgroup egg nil ""
 102   :group 'leim :load "egg")
 103
 104 (defgroup wnn nil ""
 105   :group 'egg :load "egg/wnn")
 106
 107 (defgroup sj3 nil ""
 108   :group 'egg :load "egg/sj3")
 109
 110 (defgroup canna nil ""
 111   :group 'egg :load "egg/canna")
 112
 113 (defgroup its nil ""
 114   :group 'egg :load "its")
 115
 116 (defgroup hira nil ""
 117   :group 'its :load "its/hira")
 118
 119 ;;;;
 120
 121   (require 'egg-util)
 122
 123   (defun load-leim-list-except-this ()
 124     (load-libraries "leim-list"
 125                     (cdr-safe
 126                      (member (directory-file-name (file-name-directory load-file-name))
 127                              load-path))))
 128
 129   (message "Finished loading %s \n   and load others..." load-file-name)
 130   (load-leim-list-except-this)
 131
 132   )