1 ;;; egg.el --- EGG Input Method Architecture
3 ;; Copyright (C) 1997, 1998 Mule Project, Powered by Electrotechnical
5 ;; Project Leader: Satoru Tomura <tomura@etl.go.jp>
7 ;; Author: NIIBE Yutaka <gniibe@mri.co.jp>
8 ;; KATAYAMA Yoshio <kate@pfu.co.jp>
9 ;; Maintainer: NIIBE Yutaka <gniibe@mri.co.jp>
10 ;; Keywords: mule, multilingual, input method
12 ;; This file will be part of GNU Emacs (in future).
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)
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.
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.
32 (defvar egg-mode-preference t
33 "Non-nil if modefull.")
35 (defvar egg-default-language "Japanese")
36 (defvar egg-last-method-name)
37 (make-variable-buffer-local 'egg-last-method-name)
38 (defvar egg-mode-line-title)
39 (make-variable-buffer-local 'egg-mode-line-title)
42 (defun egg-mode (&rest arg)
53 ((egg-get-bunsetsu-info (point))))
54 (setq describe-current-input-method-function nil)
55 (setq current-input-method nil)
56 (let ((orig-local-map (keymap-parent (current-local-map))))
57 (use-local-map orig-local-map))
58 (run-hooks 'input-method-inactivate-hook))
60 (if (null (string= (car arg) egg-last-method-name))
63 (setq egg-default-language its-current-language)))
64 (setq egg-last-method-name (car arg))
65 (use-local-map (if egg-mode-preference
68 (setq inactivate-current-input-method-function 'egg-mode)
69 (setq describe-current-input-method-function 'egg-help)
70 (run-hooks 'input-method-activate-hook))
71 (force-mode-line-update))
73 (defun egg-set-mode-line-title (title)
74 (setq egg-mode-line-title title)
75 (force-mode-line-update))
77 (defun egg-check-language (lang)
78 (if (null (member lang egg-support-languages))
79 (error "%S is not supported" lang)))
81 (defun egg-modefull-map ()
82 "Generate modefull keymap for EGG mode."
83 (let ((map (make-sparse-keymap))
85 (define-key map "\C-_" 'egg-jis-code-input)
87 (define-key map (vector i) 'egg-self-insert-char)
89 (set-keymap-parent map (current-local-map))
92 (defun egg-modeless-map ()
93 "Generate modeless keymap for EGG mode."
94 (let ((map (make-sparse-keymap)))
95 (define-key map " " 'mlh-space-bar-backward-henkan)
96 (define-key map "\C-_" 'egg-jis-code-input)
97 (set-keymap-parent map (current-local-map))
100 (defun egg-self-insert-char ()
102 (its-start last-command-char))
104 (defun egg-hinshi-select ()
105 (menudiag-select ; Should generate at initialization time
106 '(menu "
\e$BIJ;lL>
\e(B:"
107 (("
\e$BIaDLL>;l
\e(B" .
108 (menu "
\e$BIJ;lL>
\e(B[
\e$BIaDLL>;l
\e(B]:"
109 ("
\e$BL>;l
\e(B" "
\e$B%59T
\e(B(
\e$B$9$k
\e(B)&
\e$BL>;l
\e(B" "
\e$B0lCJ
\e(B&
\e$BL>;l
\e(B"
110 "
\e$B7AMFF0;l
\e(B&
\e$BL>;l
\e(B" "
\e$B?t;l
\e(B")))
111 ("
\e$B8GM-L>;l
\e(B" .
112 (menu "
\e$BIJ;lL>
\e(B[
\e$B8GM-L>;l
\e(B]:"
113 ("
\e$B?ML>
\e(B" "
\e$BCOL>
\e(B" "
\e$B?ML>
\e(B&
\e$BCOL>
\e(B" "
\e$B8GM-L>;l
\e(B")))
115 (menu "
\e$BIJ;lL>
\e(B[
\e$BF0;l
\e(B]:"
116 ("
\e$B0lCJ
\e(B" "
\e$B0lCJ
\e(B&
\e$BL>;l
\e(B" "
\e$B%+9T8^CJ
\e(B" "
\e$B%,9T8^CJ
\e(B"
117 "
\e$B%59T8^CJ
\e(B" "
\e$B%?9T8^CJ
\e(B")))
118 ("
\e$BFC<l$JF0;l
\e(B" .
119 (menu "
\e$BIJ;lL>
\e(B[
\e$BFC<l$JF0;l
\e(B]:"
120 ("
\e$B%+9T
\e(B(
\e$B9T$/
\e(B)" "
\e$B%i9T
\e(B(
\e$B2<$5$$
\e(B)" "
\e$BMh
\e(B(
\e$B$3
\e(B)"
121 "
\e$BMh
\e(B(
\e$B$-
\e(B)" "
\e$BMh
\e(B(
\e$B$/
\e(B)" "
\e$B0Y
\e(B(
\e$B$7
\e(B)")))
122 ("
\e$BF0;l0J30$NMQ8@
\e(B" .
123 (menu "
\e$BIJ;lL>
\e(B[
\e$BF0;l0J30$NMQ8@
\e(B]:"
124 ("
\e$B7AMF;l
\e(B" "
\e$B7AMFF0;l
\e(B" "
\e$B7AMFF0;l
\e(B&
\e$BL>;l
\e(B"
125 "
\e$B7AMFF0;l
\e(B(
\e$B$?$k
\e(B)")))))))
127 ;; XXX: Should use backend interface
128 (defun egg-toroku-region (start end)
130 (let* ((env (wnn-get-environment wnn-dictionary-specification)) ; XXX
131 (kanji (buffer-substring start end))
132 (yomi (read-multilingual-string
133 (format "
\e$B<-=qEPO?!X
\e(B%s
\e$B!Y
\e(B
\e$BFI$_
\e(B:" kanji)))
134 (dic (menudiag-select (list 'menu "
\e$BEPO?<-=qL>
\e(B:"
136 (wnn-list-writable-dictionaries-byname env))))
137 (dic-name (wnn-dict-name dic))
138 (hinshi (egg-hinshi-select))
139 (hinshi-id (wnn-hinshi-number env hinshi)))
141 (format "
\e$B<-=q9`L\!X
\e(B%s
\e$B!Y
\e(B(%s: %s)
\e$B$r
\e(B %s
\e$B$KEPO?$7$^$9
\e(B"
142 kanji yomi hinshi dic-name))
143 (let ((r (wnn-add-word env dic yomi kanji "" hinshi-id 0)))
145 (error "
\e$B<-=qEPO?!X
\e(B%s
\e$B!Y
\e(B(%s: %s) %s
\e$B$K<:GT$7$^$7$?
\e(B: %s"
146 kanji yomi hinshi dic-name
147 (wnnrpc-get-error-message (- r)))
149 "
\e$B<-=q9`L\!X
\e(B%s
\e$B!Y
\e(B(%s: %s)
\e$B$r
\e(B %s
\e$B$KEPO?$7$^$7$?
\e(B"
150 kanji yomi hinshi dic-name))))))
153 ;;; auto fill controll
156 (defun egg-do-auto-fill ()
157 (if (and auto-fill-function (> (current-column) fill-column))
158 (let ((ocolumn (current-column)))
159 (funcall auto-fill-function)
160 (while (and (< fill-column (current-column))
161 (< (current-column) ocolumn))
162 (setq ocolumn (current-column))
163 (funcall auto-fill-function)))))
173 "Tamagotchy --- EGG Versio 4.0")
175 ;;(load-library "its/hira")
176 ;;(setq-default its-current-map its-hira-map)
178 ;;(load-library "egg/wnn")
179 ;;(load-library "egg/wnnrpc")
180 ;;(setq egg-conversion-backend wnn-conversion-backend)
182 ;;(load-library "egg/sj3rpc")
183 ;;(load-library "egg/sj3")
184 ;;(setq egg-conversion-backend sj3-conversion-backend)
186 (defvar egg-support-languages nil)
188 (defun egg-set-support-languages (langs)
190 (if (null (member (car langs) egg-support-languages))
191 (setq egg-support-languages (cons (car langs) egg-support-languages)))
192 (setq langs (cdr langs))))
194 (add-hook 'kill-emacs-hook 'egg-kill-emacs-function)
195 (defun egg-kill-emacs-function ()
196 (egg-finalize-backend))