|
219
|
1 ;;; skk-menu.el --- SKK Menul related functions.
|
|
|
2 ;; Copyright (C) 1996, 1997 Mikio Nakajima <minakaji@osaka.email.ne.jp>
|
|
|
3
|
|
|
4 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
|
|
|
5 ;; Version: $Id: skk-menu.el,v 1.1 1997/12/02 08:48:38 steve Exp $
|
|
|
6 ;; Keywords: japanese
|
|
|
7 ;; Last Modified: $Date: 1997/12/02 08:48:38 $
|
|
|
8
|
|
|
9 ;; This program is free software; you can redistribute it and/or modify
|
|
|
10 ;; it under the terms of the GNU General Public License as published by
|
|
|
11 ;; the Free Software Foundation; either versions 2, or (at your option)
|
|
|
12 ;; any later version.
|
|
|
13
|
|
|
14 ;; This program is distributed in the hope that it will be useful
|
|
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
17 ;; GNU General Public License for more details.
|
|
|
18
|
|
|
19 ;; You should have received a copy of the GNU General Public License
|
|
|
20 ;; along with SKK, see the file COPYING. If not, write to the Free
|
|
|
21 ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
|
|
|
22 ;; MA 02111-1307, USA.
|
|
|
23
|
|
|
24 ;;; Commentary:
|
|
|
25
|
|
|
26 ;; Following people contributed modifications to skk.el (Alphabetical order):
|
|
|
27
|
|
|
28 ;;; Change log:
|
|
|
29 ;;; derived from skk.el 9.6.
|
|
|
30
|
|
|
31 ;;; Code:
|
|
|
32 (require 'skk-foreword)
|
|
|
33 (require 'skk-vars)
|
|
|
34
|
|
|
35 (defvar skk-menu-annotation-buffer "*SKK Menu Annotation*"
|
|
|
36 "SKK $B%a%K%e!<$N$?$a$NCp<a$rI=<($9$k%P%C%U%!!#(B" )
|
|
|
37
|
|
|
38 (defun skk-menu-setup-annotation-buffer (annotation)
|
|
|
39 ;; skk-menu-annotation-buffer $B$r:n$j!"(BANNOTATION $B$rI=<($9$k!#(B
|
|
|
40 (if (and annotation (not (string= annotation "")))
|
|
|
41 (save-current-buffer
|
|
|
42 (delete-other-windows)
|
|
|
43 (switch-to-buffer (get-buffer-create skk-menu-annotation-buffer))
|
|
|
44 (delete-region (point-min) (point-max))
|
|
|
45 (insert annotation)
|
|
|
46 (goto-char (point-min)) )))
|
|
|
47
|
|
|
48 (defun skk-menu-change-user-option (var on-alist off-alist)
|
|
|
49 ;; VAR $B$N%I%-%e%a%s%H$rI=<($7$F%f!<%6!<$N;X<($K=>$$$=$NCM$K(B non-nil/nil $B$rBe(B
|
|
|
50 ;; $BF~$9$k!#(B
|
|
|
51 ;; ON-ALIST $B$K$O!"%*%W%7%g%s(B VAR $B$NCM$r(B non-nil $B$K$9$k$H$-$K@_Dj$9$kJQ?t$r!"(B
|
|
|
52 ;; OFF-ALIST $B$O(B VAR $B$NCM$r(B nil $B$K$9$k>l9g$N@_Dj$r(B
|
|
|
53 ;; '(($BJQ?tL>(B0 . $BCM(B0) ($BJQ?tL>(B1 . $BCM(B1) ... ($BJQ?tL>(Bn . $BCM(Bn))
|
|
|
54 ;; $B$N7A$GO"A[%j%9%H$G;XDj$9$k!#(BON-ALIST, OFF-ALIST $B$K$O(B VAR $B<+?H$N@_Dj$b;XDj(B
|
|
|
55 ;; $B$9$kI,MW$,$"$k!#(B
|
|
|
56 (let (
|
|
|
57 ;; $B%@%$%"%m%0%\%C%/%9$,%U%l!<%`$NCf1{$K=P$F(B annotation $B%P%C%U%!$,FI$a(B
|
|
|
58 ;; $B$J$$$N$G!"%@%$%"%m%0%\%C%/%9$r=P$5$J$$$h$&$K$9$k!#(B
|
|
|
59 (last-nonmenu-event t)
|
|
|
60 (on (symbol-value var))
|
|
|
61 answer )
|
|
|
62 (save-window-excursion
|
|
|
63 (skk-menu-setup-annotation-buffer
|
|
|
64 (concat (format "$B8=:_$N(B %S $B$NCM$O!"(B%S $B$G$9!#(B\n\n" var on)
|
|
|
65 (documentation-property var 'variable-documentation) ))
|
|
|
66 ;; y-or-n-p $B$G$bNI$$$N$@$,!"(By-or-n-p $B$O%_%K%P%C%U%!$rMxMQ$7$F$$$F%_%K%P%C(B
|
|
|
67 ;; $B%U%!$r;H$C$F$J$$$N$G!"(Bannotation buffer $B$K%+!<%=%k$r0\$7!"J8;zNs$r%3(B
|
|
|
68 ;; $B%T!<$7$?$j$G$-$J$/$J$C$F$7$^$&!#(B
|
|
|
69 (setq answer (yes-or-no-p (format
|
|
|
70 (if skk-japanese-message-and-error
|
|
|
71 "$B$3$N%*%W%7%g%s$r(B %S $B$K$7$^$9$+!)(B"
|
|
|
72 "Turn %S this option?" )
|
|
|
73 (if on "off" "on") )))
|
|
|
74 (if answer
|
|
|
75 (if on
|
|
|
76 ;; turn off
|
|
|
77 (skk-menu-change-user-option-1 off-alist)
|
|
|
78 ;; turn on
|
|
|
79 (skk-menu-change-user-option-1 on-alist) )))))
|
|
|
80
|
|
|
81 (defun skk-menu-change-user-option-1 (alist)
|
|
|
82 ;; ALIST $B$r(B skk-menu-modified-user-option $B$N:G8eJ}$KO"7k$7!"(BALIST $B$NCM$NMWAG(B
|
|
|
83 ;; $B$N(B car $B$K(B cdr $B$NCM$rBeF~$9$k!#(B
|
|
|
84 (let ((n 0)
|
|
|
85 cell modified )
|
|
|
86 (while (setq cell (nth n alist))
|
|
|
87 (setq n (1+ n)
|
|
|
88 modified (assq (car cell) skk-menu-modified-user-option) )
|
|
|
89 (if modified
|
|
|
90 (setq skk-menu-modified-user-option
|
|
|
91 ;; $B4{$KF1$8JQ?t$r%b%G%#%U%!%$$7$F$$$?$i!"8E$$$b$N$r:o=|$9$k!#(B
|
|
|
92 (delq modified skk-menu-modified-user-option) ))
|
|
|
93 (set (car cell) (cdr cell)) )
|
|
|
94 (setq skk-menu-modified-user-option
|
|
|
95 (nconc skk-menu-modified-user-option alist) )))
|
|
|
96
|
|
|
97 ;;;###skk-autoload
|
|
|
98 (defun skk-menu-save-modified-user-option ()
|
|
|
99 ;; SKK $B$N%a%K%e!<$GJQ99$5$l$?%f!<%6!<%*%W%7%g%s$r(B skk-init-file $B$NKvHx$KJ]B8(B
|
|
|
100 ;; $B$9$k!#(B
|
|
|
101 (if (and
|
|
|
102 skk-menu-modified-user-option
|
|
|
103 (skk-yes-or-no-p
|
|
|
104 "SKK $B%*%W%7%g%s$,5/F08eJQ99$5$l$F$$$^$9!#$3$NCM$rJ]B8$7$^$9$+!)(B"
|
|
|
105 "Changed user options after SKK invoked. Save the variables?" ))
|
|
|
106 (progn
|
|
|
107 (skk-menu-save-modified-user-option-1)
|
|
|
108 (skk-message
|
|
|
109 "SKK $B$N%*%W%7%g%s@_Dj$r(B %s $B$KJ]B8$7$^$7$?(B"
|
|
|
110 "Save user options of SKK in %s"
|
|
|
111 skk-init-file )
|
|
|
112 (sit-for 1) )))
|
|
|
113
|
|
|
114 (defun skk-menu-save-modified-user-option-1 ()
|
|
|
115 ;; skk-menu-save-modified-user-option-1 $B$N%5%V%k!<%A%s!#(B~/.skk $B$K(B
|
|
|
116 ;; skk-menu-modified-user-option $B$NCM$r=q$-9~$_<!$K(B skk.el $B$,5/F0$5$l$?$H$-(B
|
|
|
117 ;; $B$G$bJQ99$5$l$?CM$rM-8z$K$9$k!#(B
|
|
|
118 ;; $B2a5n$K4{$K$3$N4X?t$K$h$j<0$,=q$-9~$^$l$F$$$?$i!"4{DjCM$H$ND4@0$b9T$J$&!#(B
|
|
|
119 (save-match-data
|
|
|
120 (with-current-buffer (find-file-noselect (expand-file-name skk-init-file))
|
|
|
121 (let (
|
|
|
122 ;; $B%G%3%l!<%7%g%s$J$7!#(B
|
|
|
123 (hilit-auto-highlight-maxout 0)
|
|
|
124 (font-lock-maximum-size 0)
|
|
|
125 (require-final-newline t)
|
|
|
126 buffer-read-only
|
|
|
127 start first-kiss cell )
|
|
|
128 (goto-char (point-min))
|
|
|
129 (setq first-kiss
|
|
|
130 (not
|
|
|
131 (re-search-forward
|
|
|
132 "^;; $B2<5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B$"
|
|
|
133 nil t )))
|
|
|
134 (if first-kiss
|
|
|
135 (progn
|
|
|
136 (setq start (goto-char (point-max)))
|
|
|
137 (insert
|
|
|
138 ";; $B2<5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B\n"
|
|
|
139 ))
|
|
|
140 (let ((alist skk-menu-modified-user-option)
|
|
|
141 var)
|
|
|
142 (setq start (point))
|
|
|
143 (re-search-forward
|
|
|
144 "^;; $B>e5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B$"
|
|
|
145 nil )
|
|
|
146 (while (setq var (car (car alist)))
|
|
|
147 (skk-save-point
|
|
|
148 (and (re-search-backward (prin1-to-string var) start t)
|
|
|
149 (delete-region (progn (beginning-of-line) (point))
|
|
|
150 (progn (forward-line 1) (point)) )))
|
|
|
151 (setq alist (cdr alist)) )
|
|
|
152 (beginning-of-line) ))
|
|
|
153 ;; $B$5$F!"$3$3$+$i$O6&DL$N=hM}$G$9!#(B
|
|
|
154 (while skk-menu-modified-user-option
|
|
|
155 (setq cell (car skk-menu-modified-user-option)
|
|
|
156 skk-menu-modified-user-option
|
|
|
157 (cdr skk-menu-modified-user-option) )
|
|
|
158 (insert "(setq " (prin1-to-string (car cell)) " "
|
|
|
159 (prin1-to-string (cdr cell)) ")\n" ))
|
|
|
160 ;;(delete-char -1)
|
|
|
161 (if first-kiss
|
|
|
162 (insert
|
|
|
163 ";; $B>e5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B\n"
|
|
|
164 ))
|
|
|
165 (save-buffer)
|
|
|
166 (kill-buffer (current-buffer)) ))))
|
|
|
167
|
|
|
168 ;;;###skk-autoload
|
|
|
169 (defun skk-menu-process-okuri-early ()
|
|
|
170 "skk-process-okuri-early $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
|
|
|
171 $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
|
|
|
172 (interactive)
|
|
|
173 (skk-menu-change-user-option
|
|
|
174 'skk-process-okuri-early
|
|
|
175 ;; on-alist
|
|
|
176 '((skk-process-okuri-early . t)
|
|
|
177 (skk-auto-okuri-process . nil)
|
|
|
178 (skk-henkan-okuri-strictly . nil)
|
|
|
179 (skk-henkan-strict-okuri-precedence . nil)
|
|
|
180 (skk-kakutei-early . nil) )
|
|
|
181 ;; off-alist
|
|
|
182 '((skk-process-okuri-early . nil)) )
|
|
|
183 (skk-set-cursor-properly) )
|
|
|
184
|
|
|
185 ;;;###skk-autoload
|
|
|
186 (defun skk-menu-henkan-okuri-strictly ()
|
|
|
187 "skk-henkan-okuri-strictly $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
|
|
|
188 $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
|
|
|
189 (interactive)
|
|
|
190 (skk-menu-change-user-option
|
|
|
191 'skk-henkan-okuri-strictly
|
|
|
192 ;; on-alist
|
|
|
193 '((skk-henkan-okuri-strictly . t)
|
|
|
194 (skk-process-okuri-early . nil) )
|
|
|
195 ;; off-alist
|
|
|
196 '((skk-henkan-okuri-strictly . nil)) )
|
|
|
197 (skk-set-cursor-properly) )
|
|
|
198
|
|
|
199 ;;;###skk-autoload
|
|
|
200 (defun skk-menu-henkan-strict-okuri-precedence ()
|
|
|
201 "skk-henkan-strict-okuri-precedence $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
|
|
|
202 $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
|
|
|
203 (interactive)
|
|
|
204 (skk-menu-change-user-option
|
|
|
205 'skk-henkan-strict-okuri-precedence
|
|
|
206 ;; on-alist
|
|
|
207 '((skk-henkan-strict-okuri-precedence . t)
|
|
|
208 (skk-henkan-okuri-strictly . nil)
|
|
|
209 (skk-process-okuri-early . nil) )
|
|
|
210 ;; off-alist
|
|
|
211 '((skk-henkan-strict-okuri-precedence . nil)) )
|
|
|
212 (skk-set-cursor-properly) )
|
|
|
213
|
|
|
214 ;;;###skk-autoload
|
|
|
215 (defun skk-menu-auto-okuri-process ()
|
|
|
216 "skk-auto-okuri-process $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
|
|
|
217 $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
|
|
|
218 (interactive)
|
|
|
219 (skk-menu-change-user-option
|
|
|
220 'skk-auto-okuri-process
|
|
|
221 ;; on-alist
|
|
|
222 '((skk-auto-okuri-process . t)
|
|
|
223 (skk-process-okuri-early . nil) )
|
|
|
224 ;; off-alist
|
|
|
225 '((skk-auto-okuri-process . nil)) )
|
|
|
226 (skk-set-cursor-properly) )
|
|
|
227
|
|
|
228 ;;;###skk-autoload
|
|
|
229 (defun skk-menu-kakutei-early ()
|
|
|
230 "skk-kakutei-early $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
|
|
|
231 $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
|
|
|
232 (interactive)
|
|
|
233 (skk-menu-change-user-option
|
|
|
234 'skk-kakutei-early
|
|
|
235 ;; on-alist
|
|
|
236 '((skk-kakutei-early . t)
|
|
|
237 (skk-process-okuri-early . nil) )
|
|
|
238 ;; off-alist
|
|
|
239 '((skk-kakutei-early . nil)) )
|
|
|
240 (skk-set-cursor-properly) )
|
|
|
241
|
|
|
242 ;;;###skk-autoload
|
|
|
243 (defun skk-menu-egg-like-newline ()
|
|
|
244 "skk-egg-like-newline $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
245 (interactive)
|
|
|
246 (skk-menu-change-user-option
|
|
|
247 'skk-egg-like-newline
|
|
|
248 '((skk-egg-like-newline . t))
|
|
|
249 '((skk-egg-like-newline . nil)) )
|
|
|
250 (skk-set-cursor-properly) )
|
|
|
251
|
|
|
252 ;;;###skk-autoload
|
|
|
253 (defun skk-menu-delete-implies-kakutei ()
|
|
|
254 "skk-delete-implies-kakutei $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
255 (interactive)
|
|
|
256 (skk-menu-change-user-option
|
|
|
257 'skk-delete-implies-kakutei
|
|
|
258 '((skk-delete-implies-kakutei . t))
|
|
|
259 '((skk-delete-implies-kakutei . nil)) )
|
|
|
260 (skk-set-cursor-properly) )
|
|
|
261
|
|
|
262 ;;;###skk-autoload
|
|
|
263 (defun skk-menu-allow-spaces-newlines-and-tabs ()
|
|
|
264 "skk-allow-spaces-newlines-and-tabs $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
265 (interactive)
|
|
|
266 (skk-menu-change-user-option
|
|
|
267 'skk-allow-spaces-newlines-and-tabs
|
|
|
268 '((skk-allow-spaces-newlines-and-tabs . t))
|
|
|
269 '((skk-allow-spaces-newlines-and-tabs . nil)) )
|
|
|
270 (skk-set-cursor-properly) )
|
|
|
271
|
|
|
272 ;;;###skk-autoload
|
|
|
273 (defun skk-menu-convert-okurigana-into-katakana ()
|
|
|
274 "skk-convert-okurigana-into-katakana $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
275 (interactive)
|
|
|
276 (skk-menu-change-user-option
|
|
|
277 'skk-convert-okurigana-into-katakana
|
|
|
278 '((skk-convert-okurigana-into-katakana . t))
|
|
|
279 '((skk-convert-okurigana-into-katakana . nil)) )
|
|
|
280 (skk-set-cursor-properly) )
|
|
|
281
|
|
|
282 ;;;###skk-autoload
|
|
|
283 (defun skk-menu-delete-okuri-when-quit ()
|
|
|
284 "skk-delete-okuri-when-quit $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
285 (interactive)
|
|
|
286 (skk-menu-change-user-option
|
|
|
287 'skk-delete-okuri-when-quit
|
|
|
288 '((skk-delete-okuri-when-quit . t))
|
|
|
289 '((skk-delete-okuri-when-quit . nil)) )
|
|
|
290 (skk-set-cursor-properly) )
|
|
|
291
|
|
|
292 ;;;###skk-autoload
|
|
|
293 (defun skk-menu-echo ()
|
|
|
294 "skk-echo $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
295 (interactive)
|
|
|
296 (skk-menu-change-user-option
|
|
|
297 'skk-echo
|
|
|
298 '((skk-echo . t))
|
|
|
299 '((skk-echo . nil)) )
|
|
|
300 (skk-set-cursor-properly) )
|
|
|
301
|
|
|
302 ;;;###skk-autoload
|
|
|
303 (defun skk-menu-use-numeric-conversion ()
|
|
|
304 "skk-use-numeric-conversion $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
305 (interactive)
|
|
|
306 (skk-menu-change-user-option
|
|
|
307 'skk-use-numeric-conversion
|
|
|
308 '((skk-use-numeric-conversion . t))
|
|
|
309 '((skk-use-numeric-conversion . nil)) )
|
|
|
310 (skk-set-cursor-properly) )
|
|
|
311
|
|
|
312 ;;;###skk-autoload
|
|
|
313 (defun skk-menu-use-overlay ()
|
|
|
314 "skk-use-face $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
315 (interactive)
|
|
|
316 (skk-menu-change-user-option
|
|
|
317 'skk-use-face
|
|
|
318 '((skk-use-face . t))
|
|
|
319 '((skk-use-face . nil)) )
|
|
|
320 (skk-set-cursor-properly) )
|
|
|
321
|
|
|
322 ;;;###skk-autoload
|
|
|
323 (defun skk-menu-auto-insert-paren ()
|
|
|
324 "skk-auto-insert-paren $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
325 (interactive)
|
|
|
326 (skk-menu-change-user-option
|
|
|
327 'skk-auto-insert-paren
|
|
|
328 '((skk-auto-insert-paren . t))
|
|
|
329 '((skk-auto-insert-paren . nil)) )
|
|
|
330 (skk-set-cursor-properly) )
|
|
|
331
|
|
|
332 ;;;###skk-autoload
|
|
|
333 (defun skk-menu-japanese-message-and-error ()
|
|
|
334 "skk-japanese-message-and-error $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
335 (interactive)
|
|
|
336 (skk-menu-change-user-option
|
|
|
337 'skk-japanese-message-and-error
|
|
|
338 '((skk-japanese-message-and-error . t))
|
|
|
339 '((skk-japanese-message-and-error . nil)) )
|
|
|
340 (skk-set-cursor-properly) )
|
|
|
341
|
|
|
342 ;;;###skk-autoload
|
|
|
343 ;;(defun skk-menu-byte-compile-init-file ()
|
|
|
344 ;; "skk-byte-compile-init-file $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
345 ;; (interactive)
|
|
|
346 ;; (skk-menu-change-user-option
|
|
|
347 ;; 'skk-byte-compile-init-file
|
|
|
348 ;; '((skk-byte-compile-init-file . t))
|
|
|
349 ;; '((skk-byte-compile-init-file . nil)) )
|
|
|
350 ;; (skk-set-cursor-properly) )
|
|
|
351
|
|
|
352 ;;;###skk-autoload
|
|
|
353 (defun skk-menu-count-private-jisyo-entries-exactly ()
|
|
|
354 "skk-count-private-jisyo-candidates-exactly $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
355 (interactive)
|
|
|
356 (skk-menu-change-user-option
|
|
|
357 'skk-count-private-jisyo-candidates-exactly
|
|
|
358 '((skk-count-private-jisyo-candidates-exactly . t))
|
|
|
359 '((skk-count-private-jisyo-candidates-exactly . nil)) )
|
|
|
360 (skk-set-cursor-properly) )
|
|
|
361
|
|
|
362 ;;;###skk-autoload
|
|
|
363 (defun skk-menu-auto-henkan ()
|
|
|
364 "skk-auto-start-henkan $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
365 (interactive)
|
|
|
366 (skk-menu-change-user-option
|
|
|
367 'skk-auto-start-henkan
|
|
|
368 '((skk-auto-start-henkan . t)
|
|
|
369 (skk-auto-okuri-process . t) )
|
|
|
370 '((skk-auto-start-henkan . nil)) )
|
|
|
371 (skk-set-cursor-properly) )
|
|
|
372
|
|
|
373 ;; for skk-comp.el
|
|
|
374 ;;;###skk-autoload
|
|
|
375 (defun skk-menu-dabbrev-like-completion ()
|
|
|
376 "skk-dabbrev-like-completion $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
377 (interactive)
|
|
|
378 (require 'skk-comp)
|
|
|
379 (skk-menu-change-user-option
|
|
|
380 'skk-dabbrev-like-completion
|
|
|
381 '((skk-dabbrev-like-completion . t))
|
|
|
382 '((skk-dabbrev-like-completion . nil)) )
|
|
|
383 (skk-set-cursor-properly) )
|
|
|
384
|
|
|
385 ;; for skk-gadget.el
|
|
|
386 ;;;###skk-autoload
|
|
|
387 (defun skk-menu-date-ad ()
|
|
|
388 "skk-date-ad $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
389 (interactive)
|
|
|
390 (require 'skk-gadget)
|
|
|
391 (skk-menu-change-user-option
|
|
|
392 'skk-date-ad
|
|
|
393 '((skk-date-ad . t))
|
|
|
394 '((skk-date-ad . nil)) )
|
|
|
395 (skk-set-cursor-properly) )
|
|
|
396
|
|
|
397 ;; for skk-kakasi.el
|
|
|
398 ;;;###skk-autoload
|
|
|
399 (defun skk-menu-romaji-*-by-hepburn ()
|
|
|
400 "skk-romaji-*-by-hepburn $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
401 (interactive)
|
|
|
402 (require 'skk-kakasi)
|
|
|
403 (skk-menu-change-user-option
|
|
|
404 'skk-romaji-*-by-hepburn
|
|
|
405 '((skk-romaji-*-by-hepburn . t))
|
|
|
406 '((skk-romaji-*-by-hepburn . nil)) )
|
|
|
407 (skk-set-cursor-properly) )
|
|
|
408
|
|
|
409 ;;;###skk-autoload
|
|
|
410 (defun skk-menu-use-kakasi ()
|
|
|
411 "skk-use-kakasi $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
412 (interactive)
|
|
|
413 (require 'skk-kakasi)
|
|
|
414 (skk-menu-change-user-option
|
|
|
415 'skk-use-kakasi
|
|
|
416 '((skk-use-kakasi . t))
|
|
|
417 '((skk-use-kakasi . nil)) )
|
|
|
418 (skk-set-cursor-properly) )
|
|
|
419
|
|
|
420 ;; for skk-num.el
|
|
|
421 ;;;###skk-autoload
|
|
|
422 (defun skk-menu-numeric-conversion-float-num ()
|
|
|
423 "skk-numeric-conversion-float-num $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
424 (interactive)
|
|
|
425 (require 'skk-num)
|
|
|
426 (skk-menu-change-user-option
|
|
|
427 'skk-numeric-conversion-float-num
|
|
|
428 '((skk-numeric-conversion-float-num . t))
|
|
|
429 '((skk-numeric-conversion-float-num . nil)) )
|
|
|
430 (skk-set-cursor-properly) )
|
|
|
431
|
|
|
432 ;; for skk-server.el
|
|
|
433 ;;;###skk-autoload
|
|
|
434 (defun skk-menu-report-server-response ()
|
|
|
435 "skk-report-server-response $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
436 (interactive)
|
|
|
437 (require 'skk-server)
|
|
|
438 (skk-menu-change-user-option
|
|
|
439 'skk-report-server-response
|
|
|
440 '((skk-report-server-response . t))
|
|
|
441 '((skk-report-server-response . nil)) )
|
|
|
442 (skk-set-cursor-properly) )
|
|
|
443
|
|
|
444 ;;;###skk-autoload
|
|
|
445 (defun skk-menu-server-debug ()
|
|
|
446 "skk-server-debug $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
447 (interactive)
|
|
|
448 (require 'skk-server)
|
|
|
449 (skk-menu-change-user-option
|
|
|
450 'skk-server-debug
|
|
|
451 '((skk-server-debug . t))
|
|
|
452 '((skk-server-debug . nil)) )
|
|
|
453 (skk-set-cursor-properly) )
|
|
|
454
|
|
|
455 ;;;###skk-autoload
|
|
|
456 (defun skk-menu-compare-jisyo-size-when-saving ()
|
|
|
457 "skk-compare-jisyo-size-when-saving $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
458 (interactive)
|
|
|
459 (skk-menu-change-user-option
|
|
|
460 'skk-compare-jisyo-size-when-saving
|
|
|
461 '((skk-compare-jisyo-size-when-saving . t))
|
|
|
462 '((skk-compare-jisyo-size-when-saving . nil)) )
|
|
|
463 (skk-set-cursor-properly) )
|
|
|
464
|
|
|
465 ;;;###skk-autoload
|
|
|
466 (defun skk-menu-use-color-cursor ()
|
|
|
467 "skk-use-color-cursor $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
468 (interactive)
|
|
|
469 (skk-menu-change-user-option
|
|
|
470 'skk-use-color-cursor
|
|
|
471 '((skk-use-color-cursor . t))
|
|
|
472 '((skk-use-color-cursor . nil)) )
|
|
|
473 (skk-set-cursor-properly) )
|
|
|
474
|
|
|
475 (defun skk-menu-uniq-numerals ()
|
|
|
476 "skk-uniq-numerals $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
477 (interactive)
|
|
|
478 (skk-menu-change-user-option
|
|
|
479 'skk-uniq-numerals
|
|
|
480 '((skk-uniq-numerals . t))
|
|
|
481 '((skk-uniq-numerals . nil)) ))
|
|
|
482
|
|
|
483 ;;(defun skk-menu- ()
|
|
|
484 ;; "skk- $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
|
|
|
485 ;; (interactive)
|
|
|
486 ;; (skk-menu-change-user-option
|
|
|
487 ;; 'skk-
|
|
|
488 ;; '((skk- . t))
|
|
|
489 ;; '((skk- . nil)) ))
|
|
|
490
|
|
|
491 ;;; skk-menu.el ends here
|
