Mercurial > emacs
annotate lisp/international/kkc.el @ 78005:3049bd99b03e
* term/xterm.el (terminal-init-xterm): Escape parens in character
constants.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Wed, 13 Jun 2007 19:08:44 +0000 |
parents | e3694f1cb928 |
children | 0ccf5ac2795e 95d0cdf160ea |
rev | line source |
---|---|
36683
b82a6fbaae16
Add coding: iso-2022-7bit tag.
Kenichi Handa <handa@m17n.org>
parents:
31218
diff
changeset
|
1 ;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*- |
17052 | 2 |
74544 | 3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, |
75347 | 4 ;; 2006, 2007 Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
75347 | 6 ;; 2005, 2006, 2007 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
17052 | 9 |
31165
6c51a4e8bf88
Remove SKK from Keywords. Require ja-dic-utl instead of skkdic-utl.
Kenichi Handa <handa@m17n.org>
parents:
30256
diff
changeset
|
10 ;; Keywords: mule, multilingual, Japanese |
17052 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
14 ;; GNU Emacs 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 ;; GNU Emacs 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 | |
17071 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
17052 | 28 |
29 ;;; Commentary: | |
30 | |
31 ;; These routines provide a simple and easy-to-use converter from | |
32 ;; Kana-string to Kana-Kanji-mixed-string. This converter (here after | |
33 ;; KKC) uses a SKK dictionary to get information how to convert | |
34 ;; Kana-string. Since KKC can't be fully automated, we need an | |
35 ;; interaction with a user to decide the correct conversion. For | |
36 ;; that, we provide KKC major mode. | |
37 | |
38 ;;; Code: | |
39 | |
31165
6c51a4e8bf88
Remove SKK from Keywords. Require ja-dic-utl instead of skkdic-utl.
Kenichi Handa <handa@m17n.org>
parents:
30256
diff
changeset
|
40 (require 'ja-dic-utl) |
17052 | 41 |
42 (defvar kkc-input-method-title "漢" | |
43 "String denoting KKC input method. | |
44 This string is shown at mode line when users are in KKC mode.") | |
45 | |
46 (defvar kkc-init-file-name "~/.kkcrc" | |
47 "Name of a file which contains user's initial setup code for KKC.") | |
48 | |
49 ;; A flag to control a file specified by `kkc-init-file-name'. | |
50 ;; The value nil means the file is not yet consulted. | |
51 ;; The value t means the file has already been consulted but there's | |
52 ;; no need of updating it yet. | |
53 ;; Any other value means that we must update the file before exiting Emacs. | |
54 (defvar kkc-init-file-flag nil) | |
55 | |
56 ;; Cash data for `kkc-lookup-key'. This may be initialized by loading | |
57 ;; a file specified by `kkc-init-file-name'. If any elements are | |
58 ;; modified, the data is written out to the file when exiting Emacs. | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
59 (defvar kkc-lookup-cache nil) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
60 |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
61 ;; Tag symbol of `kkc-lookup-cache'. |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
62 (defconst kkc-lookup-cache-tag 'kkc-lookup-cache-2) |
17052 | 63 |
64 (defun kkc-save-init-file () | |
65 "Save initial setup code for KKC to a file specified by `kkc-init-file-name'" | |
66 (if (and kkc-init-file-flag | |
67 (not (eq kkc-init-file-flag t))) | |
37016
7472ec46ab91
(kkc-save-init-file): Locally bind print-length to nil.
Kenichi Handa <handa@m17n.org>
parents:
36683
diff
changeset
|
68 (let ((coding-system-for-write 'iso-2022-7bit) |
7472ec46ab91
(kkc-save-init-file): Locally bind print-length to nil.
Kenichi Handa <handa@m17n.org>
parents:
36683
diff
changeset
|
69 (print-length nil)) |
17052 | 70 (write-region (format "(setq kkc-lookup-cache '%S)\n" kkc-lookup-cache) |
71 nil | |
72 kkc-init-file-name)))) | |
73 | |
74 ;; Sequence of characters to be used for indexes for shown list. The | |
75 ;; Nth character is for the Nth conversion in the list currently shown. | |
76 (defvar kkc-show-conversion-list-index-chars | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
77 "1234567890") |
17052 | 78 |
23032 | 79 (defun kkc-help () |
80 "Show key bindings available while converting by KKC." | |
81 (interactive) | |
82 (with-output-to-temp-buffer "*Help*" | |
83 (princ (substitute-command-keys "\\{kkc-keymap}")))) | |
84 | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
85 (defvar kkc-keymap |
23032 | 86 (let ((map (make-sparse-keymap)) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
87 (len (length kkc-show-conversion-list-index-chars)) |
17052 | 88 (i 0)) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
89 (while (< i len) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
90 (define-key map |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
91 (char-to-string (aref kkc-show-conversion-list-index-chars i)) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
92 'kkc-select-from-list) |
17052 | 93 (setq i (1+ i))) |
94 (define-key map " " 'kkc-next) | |
95 (define-key map "\r" 'kkc-terminate) | |
96 (define-key map "\C-@" 'kkc-first-char-only) | |
97 (define-key map "\C-n" 'kkc-next) | |
98 (define-key map "\C-p" 'kkc-prev) | |
99 (define-key map "\C-i" 'kkc-shorter) | |
100 (define-key map "\C-o" 'kkc-longer) | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
101 (define-key map "I" 'kkc-shorter-conversion) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
102 (define-key map "O" 'kkc-longer-phrase) |
17052 | 103 (define-key map "\C-c" 'kkc-cancel) |
104 (define-key map "\C-?" 'kkc-cancel) | |
105 (define-key map "\C-f" 'kkc-next-phrase) | |
106 (define-key map "K" 'kkc-katakana) | |
107 (define-key map "H" 'kkc-hiragana) | |
108 (define-key map "l" 'kkc-show-conversion-list-or-next-group) | |
109 (define-key map "L" 'kkc-show-conversion-list-or-prev-group) | |
20638
c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
Kenichi Handa <handa@m17n.org>
parents:
19931
diff
changeset
|
110 (define-key map [?\C- ] 'kkc-first-char-only) |
17052 | 111 (define-key map [delete] 'kkc-cancel) |
112 (define-key map [return] 'kkc-terminate) | |
23032 | 113 (define-key map "\C-h" 'kkc-help) |
19869
3c4025f3be8f
(kkc-mode-map): Bind meta-prefix-char to a
Kenichi Handa <handa@m17n.org>
parents:
19406
diff
changeset
|
114 map) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
115 "Keymap for KKC (Kana Kanji Converter).") |
17052 | 116 |
117 ;;; Internal variables used in KKC. | |
118 | |
119 ;; The current Kana string to be converted. | |
120 (defvar kkc-original-kana nil) | |
121 | |
122 ;; The current key sequence (vector of Kana characters) generated from | |
123 ;; `kkc-original-kana'. | |
124 (defvar kkc-current-key nil) | |
125 | |
126 ;; List of the current conversions for `kkc-current-key'. | |
127 (defvar kkc-current-conversions nil) | |
128 | |
129 ;; Vector of the same length as `kkc-current-conversion'. The first | |
130 ;; element is a vector of: | |
131 ;; o index number of the first conversion shown previously, | |
132 ;; o index number of a conversion next of the last one shown previously, | |
133 ;; o the shown string itself. | |
134 ;; The remaining elements are widths (including columns for index | |
135 ;; numbers) of conversions stored in the same order as in | |
136 ;; `kkc-current-conversion'. | |
137 (defvar kkc-current-conversions-width nil) | |
138 | |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
139 (defcustom kkc-show-conversion-list-count 4 |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
140 "*Count of successive `kkc-next' or `kkc-prev' to show conversion list. |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
141 When you type SPC or C-p successively this count while using the input |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
142 method `japanese', the conversion candidates are shown in the echo |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
143 area while indicating the current selection by `<N>'." |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
144 :group 'mule |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
145 :type 'integer) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
146 |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
147 ;; Count of successive invocations of `kkc-next'. |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
148 (defvar kkc-next-count nil) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
149 |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
150 ;; Count of successive invocations of `kkc-prev'. |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
151 (defvar kkc-prev-count nil) |
17052 | 152 |
153 ;; Provided that `kkc-current-key' is [A B C D E F G H I], the current | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
154 ;; conversion target is [A B C D E F], and the sequence of which |
17052 | 155 ;; conversion is found is [A B C D]: |
156 ;; | |
157 ;; A B C D E F G H I | |
158 ;; kkc-overlay-head (black): |<--------->| | |
159 ;; kkc-overlay-tail (underline): |<------->| | |
160 ;; kkc-length-head: |<--------->| | |
161 ;; kkc-length-converted: |<----->| | |
162 ;; | |
163 (defvar kkc-overlay-head nil) | |
164 (defvar kkc-overlay-tail nil) | |
165 (defvar kkc-length-head nil) | |
166 (defvar kkc-length-converted nil) | |
167 | |
168 ;; Cursor type (`box' or `bar') of the current frame. | |
169 (defvar kkc-cursor-type nil) | |
170 | |
31165
6c51a4e8bf88
Remove SKK from Keywords. Require ja-dic-utl instead of skkdic-utl.
Kenichi Handa <handa@m17n.org>
parents:
30256
diff
changeset
|
171 ;; Lookup Japanese dictionary to set list of conversions in |
17052 | 172 ;; kkc-current-conversions for key sequence kkc-current-key of length |
173 ;; LEN. If no conversion is found in the dictionary, don't change | |
174 ;; kkc-current-conversions and return nil. | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38414
diff
changeset
|
175 ;; Postfixes are handled only if POSTFIX is non-nil. |
18644
69c91eee7ba1
(kkc-region): Call skkdic-lookup-key with
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
176 (defun kkc-lookup-key (len &optional postfix prefer-noun) |
17052 | 177 ;; At first, prepare cache data if any. |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
178 (unless kkc-init-file-flag |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
179 (setq kkc-init-file-flag t |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
180 kkc-lookup-cache nil) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
181 (add-hook 'kill-emacs-hook 'kkc-save-init-file) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
182 (if (file-readable-p kkc-init-file-name) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
183 (condition-case nil |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
184 (load-file kkc-init-file-name) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
185 (kkc-error "Invalid data in %s" kkc-init-file-name)))) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
186 (or (and (nested-alist-p kkc-lookup-cache) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
187 (eq (car kkc-lookup-cache) kkc-lookup-cache-tag)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
188 (setq kkc-lookup-cache (list kkc-lookup-cache-tag) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
189 kkc-init-file-flag 'kkc-lookup-cache)) |
17052 | 190 (let ((entry (lookup-nested-alist kkc-current-key kkc-lookup-cache len 0 t))) |
191 (if (consp (car entry)) | |
192 (setq kkc-length-converted len | |
193 kkc-current-conversions-width nil | |
194 kkc-current-conversions (car entry)) | |
18644
69c91eee7ba1
(kkc-region): Call skkdic-lookup-key with
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
195 (setq entry (skkdic-lookup-key kkc-current-key len postfix prefer-noun)) |
17052 | 196 (if entry |
197 (progn | |
198 (setq kkc-length-converted len | |
199 kkc-current-conversions-width nil | |
200 kkc-current-conversions (cons 1 entry)) | |
201 (if postfix | |
202 ;; Store this conversions in the cache. | |
203 (progn | |
204 (set-nested-alist kkc-current-key kkc-current-conversions | |
205 kkc-lookup-cache kkc-length-converted) | |
206 (setq kkc-init-file-flag 'kkc-lookup-cache))) | |
207 t) | |
208 (if (= len 1) | |
209 (setq kkc-length-converted 1 | |
210 kkc-current-conversions-width nil | |
211 kkc-current-conversions (cons 0 nil))))))) | |
212 | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
213 (put 'kkc-error 'error-conditions '(kkc-error error)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
214 (defun kkc-error (&rest args) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
215 (signal 'kkc-error (apply 'format args))) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
216 |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
217 (defvar kkc-converting nil) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
218 |
17052 | 219 ;;;###autoload |
30256
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
220 (defvar kkc-after-update-conversion-functions nil |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
221 "Functions to run after a conversion is selected in `japanese' input method. |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
222 With this input method, a user can select a proper conversion from |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
223 candidate list. Each time he changes the selection, functions in this |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
224 list are called with two arguments; starting and ending buffer |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
225 positions that contains the current selection.") |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
226 |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
227 ;;;###autoload |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
228 (defun kkc-region (from to) |
17052 | 229 "Convert Kana string in the current region to Kanji-Kana mixed string. |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
230 Users can select a desirable conversion interactively. |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
231 When called from a program, expects two arguments, |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
232 positions FROM and TO (integers or markers) specifying the target region. |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
233 When it returns, the point is at the tail of the selected conversion, |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
234 and the return value is the length of the conversion." |
17052 | 235 (interactive "r") |
236 (setq kkc-original-kana (buffer-substring from to)) | |
237 (goto-char from) | |
238 | |
239 ;; Setup overlays. | |
240 (if (overlayp kkc-overlay-head) | |
241 (move-overlay kkc-overlay-head from to) | |
242 (setq kkc-overlay-head (make-overlay from to nil nil t)) | |
243 (overlay-put kkc-overlay-head 'face 'highlight)) | |
244 (if (overlayp kkc-overlay-tail) | |
245 (move-overlay kkc-overlay-tail to to) | |
246 (setq kkc-overlay-tail (make-overlay to to nil nil t)) | |
247 (overlay-put kkc-overlay-tail 'face 'underline)) | |
248 | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
249 (setq kkc-current-key (string-to-vector kkc-original-kana)) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
250 (setq kkc-length-head (length kkc-current-key)) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
251 (setq kkc-length-converted 0) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
252 |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
253 (unwind-protect |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
254 ;; At first convert the region to the first candidate. |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
255 (let ((current-input-method-title kkc-input-method-title) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
256 (input-method-function nil) |
29146
ded7fa3de6db
(kkc-region): Don't change modified-p of
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
257 (modified-p (buffer-modified-p)) |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
258 (first t)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
259 (while (not (kkc-lookup-key kkc-length-head nil first)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
260 (setq kkc-length-head (1- kkc-length-head) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
261 first nil)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
262 (goto-char to) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
263 (kkc-update-conversion 'all) |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
264 (setq kkc-next-count 1 kkc-prev-count 0) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
265 (if (and (>= kkc-next-count kkc-show-conversion-list-count) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
266 (>= (length kkc-current-conversions) 3)) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
267 (kkc-show-conversion-list-or-next-group)) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
268 |
23196 | 269 ;; Then, ask users to select a desirable conversion. |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
270 (force-mode-line-update) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
271 (setq kkc-converting t) |
31218
6828c3827297
(kkc-region): Hide "... loaded" message.
Kenichi Handa <handa@m17n.org>
parents:
31165
diff
changeset
|
272 ;; Hide "... loaded" message. |
6828c3827297
(kkc-region): Hide "... loaded" message.
Kenichi Handa <handa@m17n.org>
parents:
31165
diff
changeset
|
273 (message nil) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
274 (while kkc-converting |
29146
ded7fa3de6db
(kkc-region): Don't change modified-p of
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
275 (set-buffer-modified-p modified-p) |
22919
95d147bbdce0
(kkc-region): Don't bind echo-keystrokes.
Kenichi Handa <handa@m17n.org>
parents:
22888
diff
changeset
|
276 (let* ((overriding-terminal-local-map kkc-keymap) |
23032 | 277 (help-char nil) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
278 (keyseq (read-key-sequence nil)) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
279 (cmd (lookup-key kkc-keymap keyseq))) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
280 (if (commandp cmd) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
281 (condition-case err |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
282 (progn |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
283 (cond ((eq cmd 'kkc-next) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
284 (setq kkc-next-count (1+ kkc-next-count) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
285 kkc-prev-count 0)) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
286 ((eq cmd 'kkc-prev) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
287 (setq kkc-prev-count (1+ kkc-prev-count) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
288 kkc-next-count 0)) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
289 (t |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
290 (setq kkc-next-count 0 kkc-prev-count 0))) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
291 (call-interactively cmd)) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
292 (kkc-error (message "%s" (cdr err)) (beep))) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
293 ;; KEYSEQ is not defined in KKC keymap. |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
294 ;; Let's put the event back. |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
295 (setq unread-input-method-events |
73437
150187028263
(kkc-region): When a key sequence is not
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
296 (append (string-to-list (this-single-command-raw-keys)) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
297 unread-input-method-events)) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
298 (kkc-terminate)))) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
299 |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
300 (force-mode-line-update) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
301 (goto-char (overlay-end kkc-overlay-tail)) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
302 (- (overlay-start kkc-overlay-head) from)) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
303 (delete-overlay kkc-overlay-head) |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
304 (delete-overlay kkc-overlay-tail))) |
17052 | 305 |
306 (defun kkc-terminate () | |
307 "Exit from KKC mode by fixing the current conversion." | |
308 (interactive) | |
22794
9ace35333789
(kkc-region): Handled the case that
Kenichi Handa <handa@m17n.org>
parents:
22779
diff
changeset
|
309 (goto-char (overlay-end kkc-overlay-tail)) |
9ace35333789
(kkc-region): Handled the case that
Kenichi Handa <handa@m17n.org>
parents:
22779
diff
changeset
|
310 (move-overlay kkc-overlay-head (point) (point)) |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
311 (setq kkc-converting nil)) |
17052 | 312 |
313 (defun kkc-cancel () | |
314 "Exit from KKC mode by canceling any conversions." | |
315 (interactive) | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
316 (goto-char (overlay-start kkc-overlay-head)) |
17052 | 317 (delete-region (overlay-start kkc-overlay-head) |
318 (overlay-end kkc-overlay-tail)) | |
319 (insert kkc-original-kana) | |
22794
9ace35333789
(kkc-region): Handled the case that
Kenichi Handa <handa@m17n.org>
parents:
22779
diff
changeset
|
320 (setq kkc-converting nil)) |
17052 | 321 |
322 (defun kkc-first-char-only () | |
323 "Select only the first character currently converted." | |
324 (interactive) | |
325 (goto-char (overlay-start kkc-overlay-head)) | |
326 (forward-char 1) | |
327 (delete-region (point) (overlay-end kkc-overlay-tail)) | |
328 (kkc-terminate)) | |
329 | |
330 (defun kkc-next () | |
331 "Select the next candidate of conversion." | |
332 (interactive) | |
333 (let ((idx (1+ (car kkc-current-conversions)))) | |
334 (if (< idx 0) | |
335 (setq idx 1)) | |
336 (if (>= idx (length kkc-current-conversions)) | |
337 (setq idx 0)) | |
338 (setcar kkc-current-conversions idx) | |
339 (if (> idx 1) | |
340 (progn | |
341 (set-nested-alist kkc-current-key kkc-current-conversions | |
342 kkc-lookup-cache kkc-length-converted) | |
343 (setq kkc-init-file-flag 'kkc-lookup-cache))) | |
344 (if (or kkc-current-conversions-width | |
345 (>= kkc-next-count kkc-show-conversion-list-count)) | |
346 (kkc-show-conversion-list-update)) | |
347 (kkc-update-conversion))) | |
348 | |
349 (defun kkc-prev () | |
350 "Select the previous candidate of conversion." | |
351 (interactive) | |
352 (let ((idx (1- (car kkc-current-conversions)))) | |
353 (if (< idx 0) | |
354 (setq idx (1- (length kkc-current-conversions)))) | |
355 (setcar kkc-current-conversions idx) | |
356 (if (> idx 1) | |
357 (progn | |
358 (set-nested-alist kkc-current-key kkc-current-conversions | |
359 kkc-lookup-cache kkc-length-converted) | |
360 (setq kkc-init-file-flag 'kkc-lookup-cache))) | |
361 (if (or kkc-current-conversions-width | |
362 (>= kkc-prev-count kkc-show-conversion-list-count)) | |
363 (kkc-show-conversion-list-update)) | |
364 (kkc-update-conversion))) | |
365 | |
366 (defun kkc-select-from-list () | |
367 "Select one candidate from the list currently shown in echo area." | |
368 (interactive) | |
369 (let (idx) | |
370 (if kkc-current-conversions-width | |
371 (let ((len (length kkc-show-conversion-list-index-chars)) | |
372 (maxlen (- (aref (aref kkc-current-conversions-width 0) 1) | |
373 (aref (aref kkc-current-conversions-width 0) 0))) | |
374 (i 0)) | |
375 (if (> len maxlen) | |
376 (setq len maxlen)) | |
377 (while (< i len) | |
378 (if (= (aref kkc-show-conversion-list-index-chars i) | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
379 last-input-event) |
17052 | 380 (setq idx i i len) |
381 (setq i (1+ i)))))) | |
382 (if idx | |
383 (progn | |
384 (setcar kkc-current-conversions | |
385 (+ (aref (aref kkc-current-conversions-width 0) 0) idx)) | |
386 (kkc-show-conversion-list-update) | |
387 (kkc-update-conversion)) | |
22766
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
388 (setq unread-input-method-events |
a83818674920
(kkc-show-conversion-list-index-chars):
Kenichi Handa <handa@m17n.org>
parents:
20638
diff
changeset
|
389 (cons last-input-event unread-input-method-events)) |
17052 | 390 (kkc-terminate)))) |
391 | |
392 (defun kkc-katakana () | |
393 "Convert to Katakana." | |
394 (interactive) | |
395 (setcar kkc-current-conversions -1) | |
396 (kkc-update-conversion 'all)) | |
397 | |
398 (defun kkc-hiragana () | |
399 "Convert to hiragana." | |
400 (interactive) | |
401 (setcar kkc-current-conversions 0) | |
402 (kkc-update-conversion)) | |
403 | |
404 (defun kkc-shorter () | |
405 "Make the Kana string to be converted shorter." | |
406 (interactive) | |
407 (if (<= kkc-length-head 1) | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
408 (kkc-error "Can't be shorter")) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
409 (setq kkc-length-head (1- kkc-length-head)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
410 (if (> kkc-length-converted kkc-length-head) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
411 (let ((len kkc-length-head)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
412 (setq kkc-length-converted 0) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
413 (while (not (kkc-lookup-key len)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
414 (setq len (1- len))))) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
415 (kkc-update-conversion 'all)) |
17052 | 416 |
417 (defun kkc-longer () | |
418 "Make the Kana string to be converted longer." | |
419 (interactive) | |
420 (if (>= kkc-length-head (length kkc-current-key)) | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
421 (kkc-error "Can't be longer")) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
422 (setq kkc-length-head (1+ kkc-length-head)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
423 ;; This time, try also entries with postfixes. |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
424 (kkc-lookup-key kkc-length-head 'postfix) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
425 (kkc-update-conversion 'all)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
426 |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
427 (defun kkc-shorter-conversion () |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
428 "Make the Kana string to be converted shorter." |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
429 (interactive) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
430 (if (<= kkc-length-converted 1) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
431 (kkc-error "Can't be shorter")) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
432 (let ((len (1- kkc-length-converted))) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
433 (setq kkc-length-converted 0) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
434 (while (not (kkc-lookup-key len)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
435 (setq len (1- len)))) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
436 (kkc-update-conversion 'all)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
437 |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
438 (defun kkc-longer-phrase () |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
439 "Make the current phrase (BUNSETSU) longer without looking up dictionary." |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
440 (interactive) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
441 (if (>= kkc-length-head (length kkc-current-key)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
442 (kkc-error "Can't be longer")) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
443 (setq kkc-length-head (1+ kkc-length-head)) |
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
444 (kkc-update-conversion 'all)) |
17052 | 445 |
446 (defun kkc-next-phrase () | |
447 "Fix the currently converted string and try to convert the remaining string." | |
448 (interactive) | |
449 (if (>= kkc-length-head (length kkc-current-key)) | |
450 (kkc-terminate) | |
451 (setq kkc-length-head (- (length kkc-current-key) kkc-length-head)) | |
452 (goto-char (overlay-end kkc-overlay-head)) | |
453 (while (and (< (point) (overlay-end kkc-overlay-tail)) | |
454 (looking-at "\\CH")) | |
455 (goto-char (match-end 0)) | |
456 (setq kkc-length-head (1- kkc-length-head))) | |
457 (if (= kkc-length-head 0) | |
458 (kkc-terminate) | |
459 (let ((newkey (make-vector kkc-length-head 0)) | |
460 (idx (- (length kkc-current-key) kkc-length-head)) | |
18644
69c91eee7ba1
(kkc-region): Call skkdic-lookup-key with
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
461 (len kkc-length-head) |
17052 | 462 (i 0)) |
463 ;; For the moment, (setq kkc-original-kana (concat newkey)) | |
464 ;; doesn't work. | |
465 (setq kkc-original-kana "") | |
466 (while (< i kkc-length-head) | |
467 (aset newkey i (aref kkc-current-key (+ idx i))) | |
468 (setq kkc-original-kana | |
469 (concat kkc-original-kana (char-to-string (aref newkey i)))) | |
470 (setq i (1+ i))) | |
471 (setq kkc-current-key newkey) | |
472 (setq kkc-length-converted 0) | |
18644
69c91eee7ba1
(kkc-region): Call skkdic-lookup-key with
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
473 (while (and (not (kkc-lookup-key kkc-length-head nil |
69c91eee7ba1
(kkc-region): Call skkdic-lookup-key with
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
474 (< kkc-length-head len))) |
17052 | 475 (> kkc-length-head 1)) |
476 (setq kkc-length-head (1- kkc-length-head))) | |
477 (let ((pos (point)) | |
478 (tail (overlay-end kkc-overlay-tail))) | |
479 (move-overlay kkc-overlay-head pos tail) | |
480 (move-overlay kkc-overlay-tail tail tail)) | |
481 (kkc-update-conversion 'all))))) | |
482 | |
483 ;; We'll show users a list of available conversions in echo area with | |
484 ;; index numbers so that users can select one conversion with the | |
485 ;; number. | |
486 | |
487 ;; Set `kkc-current-conversions-width'. | |
488 (defun kkc-setup-current-conversions-width () | |
489 (let ((convs (cdr kkc-current-conversions)) | |
490 (len (length kkc-current-conversions)) | |
491 (idx 1)) | |
492 (setq kkc-current-conversions-width (make-vector len nil)) | |
493 ;; To tell `kkc-show-conversion-list-update' to generate | |
494 ;; message from scratch. | |
495 (aset kkc-current-conversions-width 0 (vector len -2 nil)) | |
496 ;; Fill the remaining slots. | |
497 (while convs | |
498 (aset kkc-current-conversions-width idx | |
499 (+ (string-width (car convs)) 4)) | |
500 (setq convs (cdr convs) | |
501 idx (1+ idx))))) | |
502 | |
503 (defun kkc-show-conversion-list-or-next-group () | |
504 "Show list of available conversions in echo area with index numbers. | |
505 If the list is already shown, show the next group of conversions, | |
506 and change the current conversion to the first one in the group." | |
507 (interactive) | |
508 (if (< (length kkc-current-conversions) 3) | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
509 (kkc-error "No alternative")) |
17052 | 510 (if kkc-current-conversions-width |
511 (let ((next-idx (aref (aref kkc-current-conversions-width 0) 1))) | |
512 (if (< next-idx (length kkc-current-conversions-width)) | |
513 (setcar kkc-current-conversions next-idx) | |
514 (setcar kkc-current-conversions 1)) | |
515 (kkc-show-conversion-list-update) | |
516 (kkc-update-conversion)) | |
517 (kkc-setup-current-conversions-width) | |
518 (kkc-show-conversion-list-update))) | |
519 | |
520 (defun kkc-show-conversion-list-or-prev-group () | |
521 "Show list of available conversions in echo area with index numbers. | |
522 If the list is already shown, show the previous group of conversions, | |
523 and change the current conversion to the last one in the group." | |
524 (interactive) | |
525 (if (< (length kkc-current-conversions) 3) | |
22888
5bfe86125303
(kkc-lookup-cache): Initialize it to nil.
Kenichi Handa <handa@m17n.org>
parents:
22816
diff
changeset
|
526 (kkc-error "No alternative")) |
17052 | 527 (if kkc-current-conversions-width |
528 (let ((this-idx (aref (aref kkc-current-conversions-width 0) 0))) | |
529 (if (> this-idx 1) | |
530 (setcar kkc-current-conversions (1- this-idx)) | |
531 (setcar kkc-current-conversions | |
532 (1- (length kkc-current-conversions-width)))) | |
533 (kkc-show-conversion-list-update) | |
534 (kkc-update-conversion)) | |
535 (kkc-setup-current-conversions-width) | |
536 (kkc-show-conversion-list-update))) | |
537 | |
538 ;; Update the conversion list shown in echo area. | |
539 (defun kkc-show-conversion-list-update () | |
540 (or kkc-current-conversions-width | |
541 (kkc-setup-current-conversions-width)) | |
542 (let* ((current-idx (car kkc-current-conversions)) | |
543 (first-slot (aref kkc-current-conversions-width 0)) | |
544 (this-idx (aref first-slot 0)) | |
545 (next-idx (aref first-slot 1)) | |
546 (msg (aref first-slot 2))) | |
547 (if (< current-idx this-idx) | |
548 ;; The currently selected conversion is before the list shown | |
549 ;; previously. We must start calculation of message width | |
550 ;; from the start again. | |
551 (setq this-idx 1 msg nil) | |
552 (if (>= current-idx next-idx) | |
553 ;; The currently selected conversion is after the list shown | |
554 ;; previously. We start calculation of message width from | |
555 ;; the conversion next of TO. | |
51959
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
556 (setq this-idx next-idx msg nil))) |
17052 | 557 (if (not msg) |
558 (let ((len (length kkc-current-conversions)) | |
559 (max-width (window-width (minibuffer-window))) | |
560 (width-table kkc-current-conversions-width) | |
561 (width 0) | |
562 (idx this-idx) | |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
563 (max-items (length kkc-show-conversion-list-index-chars)) |
17052 | 564 l) |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
565 ;; Set THIS-IDX to the first index of conversion to be shown |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
566 ;; in MSG, and reflect it in kkc-current-conversions-width. |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
567 (while (<= idx current-idx) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
568 (if (and (<= (+ width (aref width-table idx)) max-width) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
569 (< (- idx this-idx) max-items)) |
17052 | 570 (setq width (+ width (aref width-table idx))) |
571 (setq this-idx idx width (aref width-table idx))) | |
572 (setq idx (1+ idx) | |
573 l (cdr l))) | |
574 (aset first-slot 0 this-idx) | |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
575 ;; Set NEXT-IDX to the next index of the last conversion |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
576 ;; shown in MSG, and reflect it in |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
577 ;; kkc-current-conversions-width. |
17052 | 578 (while (and (< idx len) |
22816
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
579 (<= (+ width (aref width-table idx)) max-width) |
8f9d4edebbdd
(kkc-region): Unwind-protect the conversion
Kenichi Handa <handa@m17n.org>
parents:
22794
diff
changeset
|
580 (< (- idx this-idx) max-items)) |
17052 | 581 (setq width (+ width (aref width-table idx)) |
582 idx (1+ idx) | |
583 l (cdr l))) | |
584 (aset first-slot 1 (setq next-idx idx)) | |
585 (setq l (nthcdr this-idx kkc-current-conversions)) | |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
586 (setq msg (format " %c %s" |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
587 (aref kkc-show-conversion-list-index-chars 0) |
51959
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
588 (propertize (car l) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
589 'kkc-conversion-index this-idx)) |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
590 idx (1+ this-idx) |
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
591 l (cdr l)) |
17052 | 592 (while (< idx next-idx) |
30251
9a4962f4ea62
(kkc-show-conversion-list-count): Customize it.
Kenichi Handa <handa@m17n.org>
parents:
29146
diff
changeset
|
593 (setq msg (format "%s %c %s" |
17052 | 594 msg |
595 (aref kkc-show-conversion-list-index-chars | |
596 (- idx this-idx)) | |
51959
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
597 (propertize (car l) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
598 'kkc-conversion-index idx)) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
599 idx (1+ idx) |
17052 | 600 l (cdr l))) |
601 (aset first-slot 2 msg))) | |
51959
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
602 |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
603 ;; Highlight the current conversion. |
17052 | 604 (if (> current-idx 0) |
51959
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
605 (let ((pos 3) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
606 (limit (length msg))) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
607 (remove-text-properties 0 (length msg) '(face nil) msg) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
608 (while (not (eq (get-text-property pos 'kkc-conversion-index msg) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
609 current-idx)) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
610 (setq pos (next-single-property-change pos 'kkc-conversion-index |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
611 msg limit))) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
612 (put-text-property pos (next-single-property-change |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
613 pos 'kkc-conversion-index msg limit) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
614 'face 'highlight msg))) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
615 (let ((message-log-max nil)) |
cfbd08e9b444
(kkc-show-conversion-list-update):
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
616 (message "%s" msg)))) |
17052 | 617 |
618 ;; Update the conversion area with the latest conversion selected. | |
619 ;; ALL if non nil means to update the whole area, else update only | |
620 ;; inside quail-overlay-head. | |
621 | |
622 (defun kkc-update-conversion (&optional all) | |
623 (goto-char (overlay-start kkc-overlay-head)) | |
624 (cond ((= (car kkc-current-conversions) 0) ; Hiragana | |
625 (let ((i 0)) | |
626 (while (< i kkc-length-converted) | |
627 (insert (aref kkc-current-key i)) | |
628 (setq i (1+ i))))) | |
629 ((= (car kkc-current-conversions) -1) ; Katakana | |
630 (let ((i 0)) | |
631 (while (< i kkc-length-converted) | |
632 (insert (japanese-katakana (aref kkc-current-key i))) | |
633 (setq i (1+ i))))) | |
634 (t | |
635 (insert (nth (car kkc-current-conversions) kkc-current-conversions)))) | |
636 (delete-region (point) (overlay-start kkc-overlay-tail)) | |
637 (if all | |
638 (let ((len (length kkc-current-key)) | |
639 (i kkc-length-converted)) | |
640 (delete-region (overlay-start kkc-overlay-tail) | |
641 (overlay-end kkc-overlay-head)) | |
642 (while (< i kkc-length-head) | |
643 (if (= (car kkc-current-conversions) -1) | |
644 (insert (japanese-katakana (aref kkc-current-key i))) | |
645 (insert (aref kkc-current-key i))) | |
646 (setq i (1+ i))) | |
647 (let ((pos (point))) | |
648 (while (< i len) | |
649 (insert (aref kkc-current-key i)) | |
650 (setq i (1+ i))) | |
651 (move-overlay kkc-overlay-head | |
652 (overlay-start kkc-overlay-head) pos) | |
653 (delete-region (point) (overlay-end kkc-overlay-tail))))) | |
30256
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
654 (unwind-protect |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
655 (run-hook-with-args 'kkc-after-update-conversion-functions |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
656 (overlay-start kkc-overlay-head) |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
657 (overlay-end kkc-overlay-head)) |
e4b4bca5087a
(kkc-after-update-conversion-functions): New variable.
Kenichi Handa <handa@m17n.org>
parents:
30251
diff
changeset
|
658 (goto-char (overlay-end kkc-overlay-tail)))) |
17052 | 659 |
660 ;; | |
661 (provide 'kkc) | |
662 | |
52401 | 663 ;;; arch-tag: 3cbfd56e-74e6-4f60-bb46-ba7c2d366fbf |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37016
diff
changeset
|
664 ;;; kkc.el ends here |