leim-list.el

   1 ;;; leim-list-egg.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
   8 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
   9
  10 ;; Keywords: mule, multilingual, input method
  11
  12 ;; This file is part of EGG.
  13
  14 ;; EGG is free software; you can redistribute it and/or modify
  15 ;; it under the terms of the GNU General Public License as published by
  16 ;; the Free Software Foundation; either version 2, or (at your option)
  17 ;; any later version.
  18
  19 ;; EGG is distributed in the hope that it will be useful,
  20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ;; GNU General Public License for more details.
  23
  24 ;; You should have received a copy of the GNU General Public License
  25 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  26 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  27 ;; Boston, MA 02111-1307, USA.
  28
  29 ;;; Commentary:
  30
  31 ;;; Code:
  32
  33 ;;; leim-list-egg.el --- Egg setup for leim API
  34 ;;; CAUTION: Don't delete the above line.
  35
  36 (when site-run-file
  37   (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamagotchy." t)
  38   (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamagotchy." 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    "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
  52    "\e$AF4\e(BG"  "Pinyin -> Simplified Hanzi"
  53    'its-select-pinyin-cn)
  54
  55   (register-input-method
  56    "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn
  57    "\e$AW"\e(BG"  "Zhunyin -> Simplified Hanzi"
  58    'its-select-zhuyin-cn)
  59
  60   (register-input-method
  61    "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn
  62    "\e$AG.\e(B"  "QianMa Simplified Hanzi inputmethod"
  63    'its-select-qianma)
  64
  65   (register-input-method
  66    "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn
  67    "\e$ANe\e(B"  "WuBi Simplified Hanzi inputmethod"
  68    'its-select-wubi)
  69
  70   (register-input-method
  71    "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn
  72    "\e$(GQ;\e(BC"  "Pinyin -> Traditional Hanzi"
  73    'its-select-pinyin-tw)
  74
  75   (register-input-method
  76    "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn
  77    "\e$(GNC\e(BC"  "Zhunyin -> Traditional Hanzi"
  78    'its-select-zhuyin-tw)
  79
  80   (register-input-method
  81    "korean-egg-wnn" "Korean" 'egg-activate-wnn
  82    "\e$(CGQ\e(B"  "Hangul -> Hanja"
  83    'its-select-hangul)
  84
  85   (autoload 'egg-mode "egg" "Toggle EGG  mode." t)
  86
  87   (set-language-info "Japanese"    'input-method "japanese-egg-wnn")
  88   (set-language-info "Chinese-GB"  'input-method "chinese-gb-egg-wnn-py")
  89   (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
  90   (set-language-info "Korean"      'input-method "korean-egg-wnn")
  91
  92   (require 'egg)
  93   (require 'its/hira)
  94
  95 ;;;;
  96
  97   (require 'egg-util)
  98
  99   (defun load-leim-list-except-this ()
 100     (load-libraries "leim-list" (cdr-safe
 101                                  (member (substring
 102                                           (file-name-directory
 103                                            load-file-name)
 104                                           0 -1)
 105                                          load-path))))
 106
 107   (message "Finished loading %s \n   and load others..." load-file-name)
 108   (load-leim-list-except-this)
 109
 110   )