|
219
|
1 ;; SKK tutorial for SKK version 9.4 and later versions
|
|
|
2 ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997
|
|
|
3 ;; Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
|
|
|
4
|
|
|
5 ;; Author: Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp>
|
|
|
6 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
|
|
|
7 ;; Version: $Id: skk-tut.el,v 1.1 1997/12/02 08:48:39 steve Exp $
|
|
|
8 ;; Keywords: japanese
|
|
|
9 ;; Last Modified: $Date: 1997/12/02 08:48:39 $
|
|
|
10
|
|
|
11 ;; This program is free software; you can redistribute it and/or modify
|
|
|
12 ;; it under the terms of the GNU General Public License as published by
|
|
|
13 ;; the Free Software Foundation; either versions 2, or (at your option)
|
|
|
14 ;; any later version.
|
|
|
15
|
|
|
16 ;; This program is distributed in the hope that it will be useful
|
|
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
19 ;; GNU General Public License for more details.
|
|
|
20
|
|
|
21 ;; You should have received a copy of the GNU General Public License
|
|
|
22 ;; along with SKK, see the file COPYING. If not, write to the Free
|
|
|
23 ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
|
|
|
24 ;; MA 02111-1307, USA.
|
|
|
25
|
|
|
26 ;;; Commentary:
|
|
|
27
|
|
|
28 ;; Following people contributed modifications to skk-tut.el
|
|
|
29 ;; (Alphabetical order):
|
|
|
30 ;; Haru'yasu Ueda <hal@sics.se>
|
|
|
31 ;; Hideki Sakurada <sakurada@kusm.kyoto-u.ac.jp>
|
|
|
32 ;; Hitoshi SUZUKI <h-suzuki@ael.fujitsu.co.jp>
|
|
|
33 ;; IIDA Yosiaki <iida@sayla.secom-sis.co.jp>
|
|
|
34 ;; Koji Uchida <uchida@cfd.tytlabs.co.jp>
|
|
|
35 ;; Mikio Nakajima <minakaji@osaka.email.ne.jp>
|
|
|
36 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
|
|
|
37 ;; Toyonobu Yoshida <toyono-y@is.aist-nara.ac.jp>
|
|
|
38 ;; Wataru Matsui <matsui@gf.hm.rd.sanyo.co.jp>
|
|
|
39 ;; $BD@;VM&(B <jshen@cas.org>
|
|
|
40
|
|
|
41 ;;; Change log:
|
|
|
42 ;; version 4.10 released 1997.2.4
|
|
|
43 ;; version 3.9 released 1996.2.7
|
|
|
44 ;; version 3.8 released 1995.5.13
|
|
|
45 ;; version 3.7 released 1993.5.20
|
|
|
46 ;; version 3.6 released 1992.9.19
|
|
|
47 ;; version 3.5 released 1992.5.31
|
|
|
48 ;; version 3.4 released 1992.4.12
|
|
|
49 ;; version 3.3 released 1991.4.20
|
|
|
50 ;; version 3.2 released 1990.4.15
|
|
|
51 ;; version 2.2 released 1989.4.15
|
|
|
52
|
|
|
53 ;;; Code:
|
|
|
54 (require 'skk-foreword)
|
|
|
55 (require 'skk-vars)
|
|
|
56 (require 'advice)
|
|
|
57
|
|
|
58 ;#SJT# This should be adjusted to XEmacs convention.
|
|
|
59 ; And patches to Murata-san should be SKK convention.
|
|
|
60 (defvar skk-tut-file-alist
|
|
|
61 '(("Japanese" . (expand-file-name "skk/SKK.tut" data-directory))
|
|
|
62 ("English" . (expand-file-name "skk/SKK.tut.E" data-directory)))
|
|
|
63 "*
|
|
|
64 Alist of `(LANGUAGE . TUTORIAL-FILE)' pairs."
|
|
|
65 )
|
|
|
66
|
|
|
67 (defvar skk-tut-file "/usr/local/share/skk/SKK.tut"
|
|
|
68 "*SKK $B%A%e!<%H%j%"%k$N%U%!%$%kL>!#(B
|
|
|
69 The English version is SKK.tut.E." )
|
|
|
70
|
|
|
71 (defvar skktut-japanese-tut
|
|
|
72 (string= (file-name-nondirectory skk-tut-file) "SKK.tut")
|
|
|
73 "Non-nil $B$G$"$l$P!"%A%e!<%H%j%"%k$,F|K\8l$G$"$k$3$H$r<($9!#(B" )
|
|
|
74
|
|
|
75 (defvar skktut-use-face t
|
|
|
76 "*Non-nil $B$G$"$l$P!"%A%e!<%H%j%"%k$G(B face $B$rMxMQ$7$?I=<($r9T$J$&!#(B" )
|
|
|
77
|
|
|
78 (defvar skktut-section-face
|
|
|
79 (and skktut-use-face
|
|
|
80 (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
|
|
|
81 'bold-italic )
|
|
|
82 ((eq skk-background-mode 'light)
|
|
|
83 (skk-make-face 'yellow/dodgerblue) )
|
|
|
84 (t (skk-make-face 'yellow/slateblue)) ))
|
|
|
85 "*$B%A%e!<%H%j%"%kCf$N%;%/%7%g%s$NI=<(ItJ,$N(B face$B!#(B" )
|
|
|
86
|
|
|
87 (defvar skktut-do-it-face
|
|
|
88 (and skktut-use-face
|
|
|
89 (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
|
|
|
90 'bold )
|
|
|
91 ((eq skk-background-mode 'light)
|
|
|
92 (skk-make-face 'DarkGoldenrod) )
|
|
|
93 (t (skk-make-face 'LightGoldenrod)) ))
|
|
|
94 "*$B%A%e!<%H%j%"%kCf$N;X<(9`L\$NI=<(ItJ,$N(B face$B!#(B" )
|
|
|
95
|
|
|
96 (defvar skktut-question-face
|
|
|
97 (and skktut-use-face
|
|
|
98 (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
|
|
|
99 'underline )
|
|
|
100 ((eq skk-background-mode 'light)
|
|
|
101 (skk-make-face 'Blue) )
|
|
|
102 (t (skk-make-face 'LightSkyBlue)) ))
|
|
|
103 "*$B%A%e!<%H%j%"%kCf$NLdBj$NI=<(ItJ,$N(B face$B!#(B" )
|
|
|
104
|
|
|
105 (defvar skktut-key-bind-face
|
|
|
106 (and skktut-use-face
|
|
|
107 (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
|
|
|
108 'bold )
|
|
|
109 ((eq skk-background-mode 'light)
|
|
|
110 (skk-make-face 'Firebrick) )
|
|
|
111 (t (skk-make-face 'OrangeRed)) ))
|
|
|
112 "*$B%A%e!<%H%j%"%kCf$N%-!<%P%$%s%I$NI=<(ItJ,$N(B face$B!#(B" )
|
|
|
113
|
|
|
114 (defvar skktut-hint-face
|
|
|
115 (and skktut-use-face
|
|
|
116 (cond ((and (eq skk-background-mode 'mono) (skk-terminal-face-p))
|
|
|
117 'italic )
|
|
|
118 ((eq skk-background-mode 'light)
|
|
|
119 (skk-make-face 'CadetBlue) )
|
|
|
120 (t (skk-make-face 'Aquamarine)) ))
|
|
|
121 "*$B%A%e!<%H%j%"%kCf$N%R%s%H$NI=<(ItJ,$N(B face$B!#(B
|
|
|
122 $B8=:_$N$H$3$m!"(BSKK.tut.E $B$G$7$+;HMQ$5$l$F$$$J$$!#(B" )
|
|
|
123
|
|
|
124 (defconst skktut-problem-numbers 37 "SKK $B%A%e!<%H%j%"%k$NLdBj?t!#(B")
|
|
|
125
|
|
|
126 (defconst skktut-tut-jisyo "~/skk-tut-jisyo"
|
|
|
127 "SKK $B%A%e!<%H%j%"%kMQ$N%@%_!<<-=q!#(B" )
|
|
|
128
|
|
|
129 (defconst skktut-init-variables-alist
|
|
|
130 '((skk-init-file . "")
|
|
|
131 (skk-special-midashi-char-list . (?> ?< ??))
|
|
|
132 (skk-mode-hook . nil)
|
|
|
133 (skk-auto-fill-mode-hook . nil)
|
|
|
134 (skk-load-hook . nil)
|
|
|
135 (skk-search-prog-list . ((skk-search-jisyo-file skktut-tut-jisyo 0 t)))
|
|
|
136 (skk-jisyo . "~/skk-tut-jisyo")
|
|
|
137 (skk-keep-record . nil)
|
|
|
138 (skk-kakutei-key . "\C-j")
|
|
|
139 (skk-use-vip . nil)
|
|
|
140 (skk-use-viper . nil)
|
|
|
141 (skk-henkan-okuri-strictly . nil)
|
|
|
142 (skk-henkan-strict-okuri-precedence . nil)
|
|
|
143 (skk-auto-okuri-process . nil)
|
|
|
144 (skk-process-okuri-early . nil)
|
|
|
145 (skk-egg-like-newline . nil)
|
|
|
146 (skk-kakutei-early . t)
|
|
|
147 (skk-delete-implies-kakutei . t)
|
|
|
148 (skk-allow-spaces-newlines-and-tabs . t)
|
|
|
149 (skk-convert-okurigana-into-katakana . nil)
|
|
|
150 (skk-delete-okuri-when-quit . nil)
|
|
|
151 (skk-henkan-show-candidates-keys . (?a ?s ?d ?f ?j ?k ?l))
|
|
|
152 (skk-ascii-mode-string . " SKK")
|
|
|
153 (skk-hirakana-mode-string . " $B$+$J(B")
|
|
|
154 (skk-katakana-mode-string . " $B%+%J(B")
|
|
|
155 (skk-zenkaku-mode-string . " $BA41Q(B")
|
|
|
156 (skk-abbrev-mode-string . " a$B$"(B")
|
|
|
157 (skk-echo . t)
|
|
|
158 (skk-use-numeric-conversion . t)
|
|
|
159 ;;(skk-char-type-vector . nil)
|
|
|
160 ;;(skk-standard-rom-kana-rule-list . nil)
|
|
|
161 (skk-rom-kana-rule-list . nil)
|
|
|
162 (skk-postfix-rule-alist . (("oh" "$B%*(B" . "$B$*(B")))
|
|
|
163 (skk-previous-candidate-char . nil)
|
|
|
164 ;;(skk-input-vector . nil)
|
|
|
165 ;;(skk-zenkaku-vector . nil)
|
|
|
166 ;;(skk-use-face . t)
|
|
|
167 ;;(skk-henkan-face)
|
|
|
168 ;;(skk-use-color-cursor . t)
|
|
|
169 ;;(skk-default-cursor-color . "Black")
|
|
|
170 ;;(skk-hirakana-cursor-color . t)
|
|
|
171 ;;(skk-katakana-cursor-color . t)
|
|
|
172 (skk-zenkaku-cursor-color . "gold")
|
|
|
173 (skk-ascii-cursor-color . "ivory4")
|
|
|
174 (skk-abbrev-cursor-color . "royalblue")
|
|
|
175 (skk-report-set-cursor-error . t)
|
|
|
176 (skk-auto-insert-paren . nil)
|
|
|
177 (skk-japanese-message-and-error . nil)
|
|
|
178 (skk-ascii-mode-map . nil)
|
|
|
179 (skk-j-mode-map . nil)
|
|
|
180 (skk-zenkaku-mode-map . nil)
|
|
|
181 (skk-abbrev-mode-map . nil)
|
|
|
182 (skk-jisyo-save-count . nil)
|
|
|
183 (skk-byte-compile-init-file . nil)
|
|
|
184 (skk-count-private-jisyo-candidates-exactly . nil)
|
|
|
185 (skk-compare-jisyo-size-when-saving . nil)
|
|
|
186 (skk-auto-start-henkan . nil)
|
|
|
187 (skk-insert-new-word-function . nil)
|
|
|
188
|
|
|
189 (skk-date-ad . 1)
|
|
|
190 (skk-number-style . 1)
|
|
|
191 (skk-gadget-load-hook . nil)
|
|
|
192
|
|
|
193 (skk-input-by-code-menu-keys1 . (?a ?s ?d ?f ?g ?h ?q ?w ?e ?r ?t ?y))
|
|
|
194 (skk-input-by-code-menu-keys2 . (?a ?s ?d ?f ?g ?h ?j ?k ?l ?q ?w ?e ?r ?t ?y ?u))
|
|
|
195 (skk-kcode-load-hook . nil)
|
|
|
196
|
|
|
197 ;;(skk-num-type-list . nil)
|
|
|
198 (skk-numeric-conversion-float-num . nil)
|
|
|
199 (skk-uniq-numerals . t)
|
|
|
200 (skk-num-load-hook . nil)
|
|
|
201
|
|
|
202 (skk-dabbrev-like-completion . nil)
|
|
|
203 (skk-comp-load-hook . nil))
|
|
|
204 "skk.el $B$N%f!<%6!<JQ?t$N%j%9%H!#(B" )
|
|
|
205
|
|
|
206 (defvar skktut-right-answer nil "$BLdBj$N@52r$NJ8;zNs!#(B")
|
|
|
207 (defvar skktut-problem-count 0 "SKK $B%A%e!<%H%j%"%k$N8=:_$NLdBjHV9f!#(B")
|
|
|
208 (defvar skktut-tutorial-end nil "SKK $B%A%e!<%H%j%"%k$N=*N;$r<($9%U%i%0!#(B")
|
|
|
209 (defvar skktut-tutorial-map nil "SKK $B%A%e!<%H%j%"%k$N$?$a$N%-!<%^%C%W!#(B")
|
|
|
210
|
|
|
211 (defvar skktut-original-buffer nil
|
|
|
212 "skk-tutorial $B$r8F$s$@$H$-$N%P%C%U%!L>!#(B" )
|
|
|
213
|
|
|
214 (defvar skktut-skk-on nil
|
|
|
215 "Non-nil $B$G$"$l$P!"(Bskk-tutorial $B$r5/F0$7$?$H$-$K(B SKK $B$,4{$K5/F0$5$l$F$$$?$3$H$r<($9!#(B" )
|
|
|
216
|
|
|
217 ;; -- macros
|
|
|
218 (defmacro skktut-message (japanese english &rest arg)
|
|
|
219 ;; skktut-japanese-tut $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l$P(B ENGLISH
|
|
|
220 ;; $B$r%(%3!<%(%j%"$KI=<($9$k!#(B
|
|
|
221 ;; ARG $B$O(B message $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B
|
|
|
222 (append (list 'message (list 'if 'skktut-japanese-tut japanese english))
|
|
|
223 arg ))
|
|
|
224
|
|
|
225 (defmacro skktut-error (japanese english &rest arg)
|
|
|
226 ;; skktut-japanese-tut $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l$P(B ENGLISH
|
|
|
227 ;; $B$r%(%3!<%(%j%"$KI=<($7!"%(%i!<$rH/@8$5$;$k!#(B
|
|
|
228 ;; ARG $B$O(B error $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B
|
|
|
229 (append (list 'error (list 'if 'skktut-japanese-tut japanese english))
|
|
|
230 arg ))
|
|
|
231
|
|
|
232 (defmacro skktut-yes-or-no-p (japanese english)
|
|
|
233 (list 'yes-or-no-p (list 'if 'skktut-japanese-tut japanese english)) )
|
|
|
234
|
|
|
235 ;;;###autoload
|
|
|
236 (defun skk-tutorial (&optional query-language)
|
|
|
237 "SKK $B%A%e!<%H%j%"%k$r5/F0$9$k!#(B"
|
|
|
238 (interactive "P")
|
|
|
239 (if query-language
|
|
|
240 (let ((lang
|
|
|
241 (completing-read "Language: " skk-tut-file-alist)))
|
|
|
242 (setq skk-tut-file (cdr (assoc lang skk-tut-file-alist)))
|
|
|
243 (message "SKK tutorial language set to %s until you exit Emacs."
|
|
|
244 lang)))
|
|
|
245 (let ((inhibit-quit t))
|
|
|
246 (if (not (< 9.4 (string-to-number (skk-version))))
|
|
|
247 (error "skk.el version 9.4 or later is required")
|
|
|
248 (skktut-pre-setup-tutorial)
|
|
|
249 (skktut-setup-jisyo-buffer)
|
|
|
250 (skktut-setup-working-buffer)
|
|
|
251 (skktut-setup-problem-buffer)
|
|
|
252 (skktut-setup-answer-buffer) )))
|
|
|
253
|
|
|
254 (defun skktut-save-buffers-kill-emacs (&optional query)
|
|
|
255 (interactive "P")
|
|
|
256 (if (skktut-yes-or-no-p "Tutorial $B$b(B Emacs $B$b=*N;$7$^$9!#$h$m$7$$$G$9$M!)(B "
|
|
|
257 "Quit tutorial and kill emacs? " )
|
|
|
258 (progn (skktut-quit-tutorial 'now)
|
|
|
259 (save-buffers-kill-emacs query) )))
|
|
|
260
|
|
|
261 (defun skktut-tutorial-again ()
|
|
|
262 (interactive)
|
|
|
263 (if (skktut-yes-or-no-p "$B:G=i$+$i(B Tutorial $B$r$d$jD>$7$^$9!#$h$m$7$$$G$9$M!)(B "
|
|
|
264 "Quit tutorial and start from question 1 again? " )
|
|
|
265 (progn (skktut-quit-tutorial 'now)
|
|
|
266 (skk-tutorial) )))
|
|
|
267
|
|
|
268 (defun skktut-mode ()
|
|
|
269 (interactive)
|
|
|
270 (if (eq skktut-problem-count 1)
|
|
|
271 (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
|
|
|
272 "Cannot use this key yet" )
|
|
|
273 (if skk-mode
|
|
|
274 (skk-j-mode-on)
|
|
|
275 (add-hook 'before-make-frame-hook 'skktut-before-move-to-other-frame)
|
|
|
276 (skk-j-mode-on)
|
|
|
277 (define-key minibuffer-local-map "\C-j" 'skk-mode)
|
|
|
278 ;;(define-key minibuffer-local-map "\C-m" 'skk-newline)
|
|
|
279 )))
|
|
|
280
|
|
|
281 (defun skktut-kakutei (&optional word)
|
|
|
282 (interactive)
|
|
|
283 (if (eq skktut-problem-count 1)
|
|
|
284 (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
|
|
|
285 "Cannot use this key yet" )
|
|
|
286 (skk-kakutei word) ))
|
|
|
287
|
|
|
288 (defun skktut-error-command ()
|
|
|
289 (interactive)
|
|
|
290 (switch-to-buffer-other-window "*$BEz(B*") )
|
|
|
291
|
|
|
292 (defun skktut-quit-tutorial (&optional now)
|
|
|
293 (interactive)
|
|
|
294 (if (or now (skktut-yes-or-no-p "$BK\Ev$K%A%e!<%H%j%"%k$r$d$a$^$9$+(B? "
|
|
|
295 "Quit tutorial? " ))
|
|
|
296 (let ((inhibit-quit t))
|
|
|
297 (delete-other-windows)
|
|
|
298 ;; $B:FEY%A%e!<%H%j%"%k$r;H$($k$h$&$K!"FbItJQ?t$r=i4|2=$7$F$*$/!#(B
|
|
|
299 (setq skktut-japanese-tut nil
|
|
|
300 skktut-problem-count 0
|
|
|
301 skktut-right-answer nil
|
|
|
302 skktut-tutorial-end nil
|
|
|
303 skktut-tutorial-map nil )
|
|
|
304 (remove-hook 'minibuffer-setup-hook 'skktut-localize-and-init-variables)
|
|
|
305 (remove-hook 'before-make-frame-hook
|
|
|
306 'skktut-before-move-to-other-frame )
|
|
|
307 (ad-remove-advice 'other-frame 'before 'skktut-ad)
|
|
|
308 (ad-remove-advice 'select-frame 'before 'skktut-ad)
|
|
|
309 (ad-activate 'other-frame)
|
|
|
310 (ad-activate 'select-frame)
|
|
|
311 (if (featurep 'mule)
|
|
|
312 (if (fboundp 'skktut-save-set-henkan-point)
|
|
|
313 (skktut-change-func-def 'skk-set-henkan-point
|
|
|
314 'skktut-save-set-henkan-point ))
|
|
|
315 (if (fboundp 'skktut-nemacs-set-henkan-point)
|
|
|
316 (skktut-change-func-def 'skk-set-henkan-point
|
|
|
317 'skktut-nemacs-set-henkan-point )))
|
|
|
318 (if (fboundp 'skktut-save-abbrev-mode)
|
|
|
319 (skktut-change-func-def 'skk-abbrev-mode
|
|
|
320 'skktut-save-abbrev-mode ))
|
|
|
321 (fmakunbound 'skktut-save-set-henkan-point)
|
|
|
322 (fmakunbound 'skktut-save-abbrev-mode)
|
|
|
323 (fmakunbound 'skktut-nemacs-set-henkan-point)
|
|
|
324 ;; skk-jisyo ;; for debugging
|
|
|
325 (let ((buff (get-file-buffer skktut-tut-jisyo)))
|
|
|
326 (if buff
|
|
|
327 (progn
|
|
|
328 (set-buffer buff)
|
|
|
329 (set-buffer-modified-p nil)
|
|
|
330 (kill-buffer buff))))
|
|
|
331 (kill-buffer " *skk-tutorial*")
|
|
|
332 (kill-buffer "*$BEz(B*")
|
|
|
333 (kill-buffer "*$BLd(B*")
|
|
|
334 ;;(skk-kill-local-variables)
|
|
|
335 (switch-to-buffer skktut-original-buffer)
|
|
|
336 ;; SKK $B$r5/F0$;$:$K$$$-$J$j(B
|
|
|
337 ;; skk-tutorial $B$r<B9T$7$?$H$-$K(B skk-jisyo $B%P%C%U%!$,:n$i$l$J$$$N$G(B
|
|
|
338 ;; skk-setup-jisyo-buffer $B$G%(%i!<$H$J$j!"(BEmacs $B$N=*N;$,$G$-$J$/(B
|
|
|
339 ;; $B$J$k$N$G(B SKK $B%b!<%I$r0lEY5/$3$7$F$*$/!#(B
|
|
|
340 (skk-mode 1)
|
|
|
341 ;; $B%A%e!<%H%j%"%k5/F0D>A0$K3+$$$F$$$?%P%C%U%!$G!"(Bskk-mode $B$r5/F0$7$F(B
|
|
|
342 ;; $B$$$?$i!"$=$N>uBV$K$7$F!"%A%e!<%H%j%"%k$r=*N;$9$k!#(B
|
|
|
343 ;; skk-jisyo ;; for debugging
|
|
|
344 (or skktut-skk-on
|
|
|
345 (skk-mode -1) ))))
|
|
|
346
|
|
|
347 (defun skktut-answer-window ()
|
|
|
348 (interactive)
|
|
|
349 (let (p)
|
|
|
350 (save-match-data
|
|
|
351 (goto-char (point-max))
|
|
|
352 (search-backward "\n>>")
|
|
|
353 (forward-char 1)
|
|
|
354 (setq skktut-right-answer
|
|
|
355 (skk-buffer-substring (+ 3 (point))
|
|
|
356 (skk-save-point (end-of-line) (point)) ))
|
|
|
357 (switch-to-buffer-other-window "*$BEz(B*")
|
|
|
358 (insert ">> \n\n")
|
|
|
359 (setq p (point))
|
|
|
360 (if skktut-japanese-tut
|
|
|
361 (insert "* $BEz$,$G$-$?$i!X(BC-x n$B!Y(B; $BESCf$G$d$a$k$K$O!X(BC-x q$B!Y(B; "
|
|
|
362 "$B%9%-%C%W$9$k$K$O!X(BC-x s$B!Y(B *" )
|
|
|
363 (insert "* For next question `C-x n'; to quit `C-x q'; "
|
|
|
364 "to skip this question `C-x s' *" ))
|
|
|
365 (if skktut-use-face
|
|
|
366 (put-text-property p (point) 'face skktut-key-bind-face) )
|
|
|
367 (put-text-property p (point) 'read-only t)
|
|
|
368 (goto-char (+ (point-min) 3)) )))
|
|
|
369
|
|
|
370 (defun skktut-next-window ()
|
|
|
371 (interactive)
|
|
|
372 (save-match-data
|
|
|
373 (let (user-ans)
|
|
|
374 (skk-save-point
|
|
|
375 (goto-char (point-min))
|
|
|
376 (end-of-line)
|
|
|
377 (skip-chars-backward " \t")
|
|
|
378 (setq user-ans (skk-buffer-substring (+ 3 (point-min)) (point))) )
|
|
|
379 (if (not (string= skktut-right-answer user-ans))
|
|
|
380 (progn
|
|
|
381 (skktut-message "$BEz$,0c$$$^$9!#$b$&0lEY$d$C$F$_$F2<$5$$(B"
|
|
|
382 "Wrong. Try again")
|
|
|
383 (ding) )
|
|
|
384 (skktut-erase-buffer)
|
|
|
385 (message "")
|
|
|
386 (other-window 1)
|
|
|
387 (setq skktut-problem-count (1+ skktut-problem-count))
|
|
|
388 (skktut-get-page skktut-problem-count)
|
|
|
389 (if (>= skktut-problem-count (1+ skktut-problem-numbers))
|
|
|
390 (skktut-quit-tutorial t)
|
|
|
391 (skktut-answer-window) )))))
|
|
|
392
|
|
|
393 (defun skktut-skip-problem (arg)
|
|
|
394 (interactive "p")
|
|
|
395 (skktut-erase-buffer)
|
|
|
396 (setq skktut-problem-count (+ skktut-problem-count arg))
|
|
|
397 (if (< skktut-problem-count 1) (setq skktut-problem-count 1))
|
|
|
398 (if (> skktut-problem-count skktut-problem-numbers)
|
|
|
399 (setq skktut-problem-count skktut-problem-numbers))
|
|
|
400 (if (and (>= skktut-problem-count 3) (not skk-j-mode))
|
|
|
401 (skktut-mode) )
|
|
|
402 (other-window 1)
|
|
|
403 (skktut-get-page skktut-problem-count)
|
|
|
404 (if skktut-tutorial-end (skktut-quit-tutorial 'now) (skktut-answer-window)) )
|
|
|
405
|
|
|
406 (defun skktut-set-henkan-point-tmp ()
|
|
|
407 (interactive)
|
|
|
408 (if skk-j-mode
|
|
|
409 (skktut-error "$B$+$J(B/$B%+%J%b!<%I$G$O!"1QBgJ8;z$O$^$@;H$($^$;$s(B"
|
|
|
410 "Cannot use upper case character in kana/katakana mode" )
|
|
|
411 (insert (if skk-zenkaku-mode
|
|
|
412 (concat (char-to-string 163)
|
|
|
413 (char-to-string (+ last-command-char 128)))
|
|
|
414 last-command-char))))
|
|
|
415
|
|
|
416 (defun skktut-abbrev-mode-tmp ()
|
|
|
417 (interactive)
|
|
|
418 (if skk-j-mode
|
|
|
419 (skktut-error "$B$3$N%-!<$O$^$@;H$($^$;$s(B"
|
|
|
420 "Cannot use this key yet" )
|
|
|
421 (insert last-command-char)))
|
|
|
422
|
|
|
423 (defun skktut-get-page (page)
|
|
|
424 (save-match-data
|
|
|
425 (with-current-buffer " *skk-tutorial*"
|
|
|
426 (let (pos)
|
|
|
427 (goto-char (point-min))
|
|
|
428 (search-forward "--\n" nil t page)
|
|
|
429 (if (looking-at ";")
|
|
|
430 (progn (forward-char 3)
|
|
|
431 (setq pos (point))
|
|
|
432 (end-of-line)
|
|
|
433 (save-excursion
|
|
|
434 (eval-region pos (point) nil) )
|
|
|
435 (forward-char 1) ))
|
|
|
436 (if (not skktut-tutorial-end)
|
|
|
437 (progn
|
|
|
438 (setq pos (point))
|
|
|
439 (search-forward "\n>>")
|
|
|
440 (end-of-line)
|
|
|
441 (copy-to-buffer "*$BLd(B*" pos (point)) ))))
|
|
|
442 (if (>= page 12)
|
|
|
443 (skktut-enable) )
|
|
|
444 (setq mode-line-buffer-identification
|
|
|
445 (concat "$B#S#K#K%A%e!<%H%j%"%k(B: $B!NLd(B "
|
|
|
446 (int-to-string page)
|
|
|
447 "$B!O(B $B!J;D$j(B "
|
|
|
448 (int-to-string (- skktut-problem-numbers page))
|
|
|
449 "$BLd!K(B"))
|
|
|
450 (set-buffer-modified-p nil)
|
|
|
451 (sit-for 0) ))
|
|
|
452
|
|
|
453 (defun skktut-disable ()
|
|
|
454 (if (not (fboundp 'skktut-save-set-henkan-point))
|
|
|
455 (progn
|
|
|
456 (skktut-change-func-def 'skktut-save-set-henkan-point
|
|
|
457 'skk-set-henkan-point )
|
|
|
458 (skktut-change-func-def 'skk-set-henkan-point
|
|
|
459 'skktut-set-henkan-point-tmp )))
|
|
|
460 (if (not (fboundp 'skktut-save-abbrev-mode))
|
|
|
461 (progn
|
|
|
462 (skktut-change-func-def 'skktut-save-abbrev-mode 'skk-abbrev-mode)
|
|
|
463 (skktut-change-func-def 'skk-abbrev-mode 'skktut-abbrev-mode-tmp) )))
|
|
|
464
|
|
|
465 (defun skktut-enable ()
|
|
|
466 (if (fboundp 'skktut-save-abbrev-mode)
|
|
|
467 (progn (skktut-change-func-def 'skk-abbrev-mode 'skktut-save-abbrev-mode)
|
|
|
468 (fmakunbound 'skktut-save-abbrev-mode) ))
|
|
|
469 (if (fboundp 'skktut-save-set-henkan-point)
|
|
|
470 (progn (skktut-change-func-def 'skk-set-henkan-point
|
|
|
471 'skktut-save-set-henkan-point )
|
|
|
472 (fmakunbound 'skktut-save-set-henkan-point) )))
|
|
|
473
|
|
|
474 (defun skktut-pre-setup-tutorial ()
|
|
|
475 (setq skktut-original-buffer (current-buffer)
|
|
|
476 skktut-skk-on skk-mode
|
|
|
477 skktut-problem-count 1 ))
|
|
|
478
|
|
|
479 (defadvice other-frame (before skktut-ad activate)
|
|
|
480 (skktut-before-move-to-other-frame) )
|
|
|
481
|
|
|
482 (defadvice select-frame (before skktut-ad activate)
|
|
|
483 (skktut-before-move-to-other-frame) )
|
|
|
484
|
|
|
485 (add-hook 'minibuffer-setup-hook 'skktut-localize-and-init-variables)
|
|
|
486
|
|
|
487 (defun skktut-setup-jisyo-buffer ()
|
|
|
488 ;; setup skktut-tut-jisyo buffer.
|
|
|
489 (set-buffer (get-buffer-create " *skk-tut-jisyo*"))
|
|
|
490 (setq case-fold-search nil
|
|
|
491 buffer-file-name (expand-file-name skktut-tut-jisyo) )
|
|
|
492 (buffer-disable-undo (current-buffer))
|
|
|
493 (insert (concat ";; okuri-ari entries.\n"
|
|
|
494 "$B$[$C(Bs /$BM_(B/\n"
|
|
|
495 "$B$D$+(Bt /$B;H(B/\n"
|
|
|
496 "$B$?$C(Bs /$BC#(B/\n"
|
|
|
497 "$B$7(Bt /$BCN(B/\n"
|
|
|
498 "$B$&$4(Bk /$BF0(B/\n"
|
|
|
499 ";; okuri-nasi entries.\n"
|
|
|
500 "Greek /$B&!(B/$B&"(B/$B&#(B/$B&$(B/$B&%(B/$B&&(B/$B&'(B/$B&((B/$B&)(B/$B&*(B/$B&+(B/$B&,(B/$B&-(B/$B&.(B/$B&/(B/$B&0(B/"
|
|
|
501 "$B&1(B/$B&2(B/$B&3(B/$B&4(B/$B&5(B/$B&6(B/$B&7(B/$B&8(B/\n"
|
|
|
502 "Russia /$B'!(B/$B'"(B/$B'#(B/$B'$(B/$B'%(B/$B'&(B/$B''(B/$B'((B/$B')(B/$B'*(B/$B'+(B/$B',(B/$B'-(B/$B'.(B/$B'/(B/$B'0(B/"
|
|
|
503 "$B'1(B/$B'2(B/$B'3(B/$B'4(B/$B'5(B/$B'6(B/$B'7(B/$B'8(B/$B'9(B/$B':(B/$B';(B/$B'<(B/$B'=(B/$B'>(B/$B'?(B/$B'@(B/$B'A(B/\n"
|
|
|
504 "greek /$B&A(B/$B&B(B/$B&C(B/$B&D(B/$B&E(B/$B&F(B/$B&G(B/$B&H(B/$B&I(B/$B&J(B/$B&K(B/$B&L(B/$B&M(B/$B&N(B/$B&O(B/$B&P(B/"
|
|
|
505 "$B&Q(B/$B&R(B/$B&S(B/$B&T(B/$B&U(B/$B&V(B/$B&W(B/$B&X(B/\n"
|
|
|
506 "russia /$B'Q(B/$B'R(B/$B'S(B/$B'T(B/$B'U(B/$B'V(B/$B'W(B/$B'X(B/$B'Y(B/$B'Z(B/$B'[(B/$B'\(B/$B'](B/$B'^(B/$B'_(B/$B'`(B/"
|
|
|
507 "$B'a(B/$B'b(B/$B'c(B/$B'd(B/$B'e(B/$B'f(B/$B'g(B/$B'h(B/$B'i(B/$B'j(B/$B'k(B/$B'l(B/$B'm(B/$B'n(B/$B'o(B/$B'p(B/$B'q(B/\n"
|
|
|
508 "$B$$$A$*$/(B /$B0l2/(B/\n"
|
|
|
509 "$B$*$*$5$+(B /$BBg:e(B/\n"
|
|
|
510 "$B$+$J(B /$B2>L>(B/\n"
|
|
|
511 "$B$+$s$8(B /$B4A;z(B/$B44;v(B/$B4F;v(B/\n"
|
|
|
512 "$B$,$/$7$e$&(B /$B3X=,(B/\n"
|
|
|
513 "$B$-(B /$B4p(B/$B5-(B/$B5$(B/$BLZ(B/$B5"(B/\n"
|
|
|
514 "$B$-$4$&(B /$B5-9f(B/$B!"(B/$B!#(B/$B!$(B/$B!%(B/$B!&(B/$B!'(B/$B!((B/$B!)(B/$B!*(B/$B!+(B/$B!,(B/$B!-(B/$B!.(B/$B!/(B/"
|
|
|
515 "$B!0(B/$B!1(B/$B!2(B/$B!3(B/$B!4(B/$B!5(B/$B!6(B/$B!7(B/$B!8(B/$B!9(B/$B!:(B/$B!;(B/$B!<(B/$B!=(B/$B!>(B/$B!?(B/$B!@(B/$B!A(B/"
|
|
|
516 "$B!B(B/$B!C(B/$B!D(B/$B!E(B/$B!F(B/$B!G(B/$B!H(B/$B!I(B/$B!J(B/$B!K(B/$B!L(B/$B!M(B/$B!N(B/$B!O(B/$B!P(B/$B!Q(B/$B!R(B/$B!S(B/"
|
|
|
517 "$B!T(B/$B!U(B/$B!V(B/$B![(B/$B!X(B/$B!Y(B/$B!Z(B/$B![(B/$B!\(B/$B!](B/$B!^(B/$B!_(B/$B!`(B/$B!a(B/$B!b(B/$B!c(B/$B!d(B/$B!e(B/$B!f(B/"
|
|
|
518 "$B!g(B/$B!h(B/$B!i(B/$B!j(B/$B!k(B/$B!l(B/$B!m(B/$B!n(B/$B!o(B/$B!p(B/$B!q(B/$B!r(B/$B!s(B/$B!t(B/$B!u(B/$B!v(B/$B!w(B/$B!x(B/$B!y(B/"
|
|
|
519 "$B!z(B/$B!{(B/$B!|(B/$B!}(B/$B!~(B/$B"!(B/$B""(B/$B"#(B/$B"$(B/$B"%(B/$B"&(B/$B"'(B/$B"((B/$B")(B/$B"*(B/$B"+(B/$B",(B/$B"-(B/"
|
|
|
520 "$B".(B/\n"
|
|
|
521 "$B$-$g$&$H(B /$B5~ET(B/\n"
|
|
|
522 "$B$3$&$Y(B /$B?@8M(B/\n"
|
|
|
523 "$B$4(B /$B8^(B/$B8_(B/$B8`(B/$B8a(B/$B8b(B/$B8c(B/$B8d(B/$B8e(B/$B8f(B/$B8g(B/$B8h(B/$B8i(B/$B8j(B/$B8k(B/$B8l(B/$B8m(B/$B8n(B/"
|
|
|
524 "$B8o(B/\n"
|
|
|
525 "$B$5$$(B /$B:Y(B/$B:G(B/$B:F(B/\n"
|
|
|
526 "$B$5$$$7$g(B /$B:G=i(B/\n"
|
|
|
527 "$B$5$$$H$&(B /$B:XF#(B/\n"
|
|
|
528 "$B$5$H$&(B /$B:4F#(B/\n"
|
|
|
529 "$B$7$e$&$j$g$&(B /$B=*N;(B/\n"
|
|
|
530 "$B$8$7$g(B /$B<-=q(B/$BCO=j(B/\n"
|
|
|
531 "$B$8$s$3$&(B /$B?M8}(B/\n"
|
|
|
532 "$B$;$s$?$/(B /$BA*Br(B/$B@vBu(B/\n"
|
|
|
533 "$B$=$&(B /$BAv(B/\n"
|
|
|
534 "$B$@$$(B /$BBg(B/$BBh(B/$BBe(B/\n"
|
|
|
535 "$B$F$-(B /$BE*(B/$BE((B/$BE)(B/$BE,(B/$BE&(B/\n"
|
|
|
536 "$B$H$&(B /$BEl(B/\n"
|
|
|
537 "$B$H$&$[$/(B /$BElKL(B/\n"
|
|
|
538 "$B$H$&$m$/(B /$BEPO?(B/\n"
|
|
|
539 "$B$H$&$m$/(B /$BEPO?(B/\n"
|
|
|
540 "$B$I$&(B /$BF0(B/\n"
|
|
|
541 "$B$K$e$&$j$g$/(B /$BF~NO(B/\n"
|
|
|
542 "$B$R$3$&$-(B /$BHt9T5!(B/\n"
|
|
|
543 "$B$X$s$+$s(B /$BJQ49(B/\n"
|
|
|
544 "$B$[$/(B /$BKL(B/\n"
|
|
|
545 "$B$_$g$&$8(B /$BL>;z(B/\n"
|
|
|
546 "$B$h$&$$(B /$BMF0W(B/$BMQ0U(B/\n" ))
|
|
|
547 (skk-setup-jisyo-buffer)
|
|
|
548 (skktut-localize-and-init-variables) )
|
|
|
549
|
|
|
550 (defun skktut-setup-working-buffer ()
|
|
|
551 (save-match-data
|
|
|
552 (let (sexp)
|
|
|
553 (set-buffer (get-buffer-create " *skk-tutorial*"))
|
|
|
554 ;; " *skk-tut-jisyo*" $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"(B
|
|
|
555 ;; $B=i4|2=$9$k!#(B
|
|
|
556 (skktut-localize-and-init-variables)
|
|
|
557 (erase-buffer)
|
|
|
558 (insert-file-contents skk-tut-file)
|
|
|
559 (goto-char (point-min))
|
|
|
560 ;; $B%A%e!<%H%j%"%k$,F|K\8l$+1Q8l$+$r%A%'%C%/!#(B
|
|
|
561 (setq skktut-japanese-tut (looking-at ";; SKK Japanese"))
|
|
|
562 (while (re-search-forward "^>> \\((.+)\\)$" nil t nil)
|
|
|
563 (setq sexp (skk-buffer-substring (match-beginning 1) (match-end 1)))
|
|
|
564 (delete-region (match-beginning 1) (match-end 1))
|
|
|
565 (insert (eval (car (read-from-string sexp)))) )
|
|
|
566 (goto-char (point-min))
|
|
|
567 (if skktut-use-face
|
|
|
568 (skktut-colored) ))))
|
|
|
569
|
|
|
570 (defun skktut-setup-problem-buffer ()
|
|
|
571 (switch-to-buffer (get-buffer-create "*$BLd(B*"))
|
|
|
572 (erase-buffer)
|
|
|
573 (setq skktut-tutorial-map (make-keymap))
|
|
|
574 (if (featurep 'xemacs)
|
|
|
575 (map-keymap
|
|
|
576 #'(lambda (key ignored)
|
|
|
577 (define-key skktut-tutorial-map key 'skktut-error-command))
|
|
|
578 skktut-tutorial-map)
|
|
|
579 (fillarray (nth 1 skktut-tutorial-map) 'skktut-error-command))
|
|
|
580 (use-local-map skktut-tutorial-map)
|
|
|
581 (skktut-get-page skktut-problem-count)
|
|
|
582 (delete-other-windows)
|
|
|
583 (split-window-vertically nil)
|
|
|
584 (other-window 1)
|
|
|
585 (enlarge-window (- (window-height (selected-window)) 20)) )
|
|
|
586
|
|
|
587 (defun skktut-setup-answer-buffer ()
|
|
|
588 (switch-to-buffer (get-buffer-create "*$BEz(B*"))
|
|
|
589 ;; "*$BEz(B*" $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"=i4|2=$9$k!#(B
|
|
|
590 (skktut-localize-and-init-variables)
|
|
|
591 (local-set-key "\C-j" 'skktut-kakutei)
|
|
|
592 (local-set-key "\C-x\C-c" 'skktut-save-buffers-kill-emacs)
|
|
|
593 (local-set-key "\C-x\C-j" 'skktut-mode)
|
|
|
594 (local-set-key "\C-xj" 'skktut-error-command)
|
|
|
595 (local-set-key "\C-xn" 'skktut-next-window)
|
|
|
596 (local-set-key "\C-xq" 'skktut-quit-tutorial)
|
|
|
597 (local-set-key "\C-xs" 'skktut-skip-problem)
|
|
|
598 (local-set-key "\C-xt" 'skktut-tutorial-again)
|
|
|
599 (skktut-disable)
|
|
|
600 (auto-fill-mode -1)
|
|
|
601 (switch-to-buffer-other-window "*$BLd(B*")
|
|
|
602 (goto-char (point-max))
|
|
|
603 (beginning-of-line)
|
|
|
604 (skktut-answer-window)
|
|
|
605 (message "") )
|
|
|
606
|
|
|
607 (defun skktut-localize-and-init-variables ()
|
|
|
608 ;; $B%f!<%6!<$,(B skk.el $B$NJQ?t$r%+%9%?%^%$%:$7$F$$$k2DG=@-$,$"$k$N$G!"%+%l%s%H(B
|
|
|
609 ;; $B%P%C%U%!$N(B skk.el $B$NJQ?t$r%P%C%U%!%m!<%+%k2=$7!"=i4|2=$9$k!#(B
|
|
|
610 (mapcar
|
|
|
611 (function
|
|
|
612 (lambda (alist)
|
|
|
613 (let ((v (car alist)))
|
|
|
614 (make-local-variable v)
|
|
|
615 (set v (cdr alist)))))
|
|
|
616 skktut-init-variables-alist)
|
|
|
617 (if (string= (buffer-name) "*$BEz(B*")
|
|
|
618 (load-library "skk"))
|
|
|
619 (make-local-variable 'skk-mode-invoked)
|
|
|
620 (setq skk-mode-invoked 'invoked))
|
|
|
621
|
|
|
622 (defun skktut-erase-buffer ()
|
|
|
623 (let ((inhibit-read-only t))
|
|
|
624 (set-text-properties (point-min) (point-max) nil) )
|
|
|
625 (erase-buffer) )
|
|
|
626
|
|
|
627 (defun skktut-before-move-to-other-frame ()
|
|
|
628 (if (skktut-yes-or-no-p "Tutorial $B$r=*N;$7$^$9!#$h$m$7$$$G$9$M!)(B "
|
|
|
629 "Quit tutorial?" )
|
|
|
630 (skktut-quit-tutorial 'now)
|
|
|
631 (skktut-error "Tutorial $B$r=*N;$;$:$KB>$N%U%l!<%`$K0\$k$3$H$O$G$-$^$;$s!#(B"
|
|
|
632 "Quit tutorial or you cannot move to other frame" )))
|
|
|
633
|
|
|
634 (defun skktut-colored ()
|
|
|
635 (while (re-search-forward "$B"'(B\\([^$B![(B $B$!(B-$B$s%!(B-$B%s(B]+\\)" nil t nil)
|
|
|
636 (put-text-property (match-beginning 1) (match-end 1) 'face
|
|
|
637 'highlight ))
|
|
|
638 (goto-char (point-min))
|
|
|
639 (while (re-search-forward "^==.+==$" nil t nil)
|
|
|
640 (put-text-property (match-beginning 0) (match-end 0)
|
|
|
641 'face skktut-section-face ))
|
|
|
642 (goto-char (point-min))
|
|
|
643 (while (re-search-forward "^!!.+" nil t nil)
|
|
|
644 (put-text-property (match-beginning 0) (match-end 0)
|
|
|
645 'face skktut-do-it-face ))
|
|
|
646 (goto-char (point-min))
|
|
|
647 (while (re-search-forward "^>> \\(.+\\)$" nil t nil)
|
|
|
648 (put-text-property (match-beginning 1) (match-end 1)
|
|
|
649 'face skktut-question-face ))
|
|
|
650 (if skktut-japanese-tut
|
|
|
651 nil
|
|
|
652 (goto-char (point-min))
|
|
|
653 (while (re-search-forward "Hint: .*$" nil t nil)
|
|
|
654 (put-text-property (match-beginning 0) (match-end 0)
|
|
|
655 'face skktut-hint-face ))))
|
|
|
656
|
|
|
657 (defun skktut-change-func-def (old new &optional save)
|
|
|
658 ;; $B4X?t(B OLD $B$NDj5A$r(B NEW $B$GCV$-JQ$($k!#(B
|
|
|
659 ;; $B%*%W%7%g%J%k0z?t$N(B SAVE $B$r;XDj$9$k$H!"(BOLD $B$NDj5A$r(B SAVE $B$KJ]B8$9$k!#(B
|
|
|
660 (if save (defalias save (symbol-function old)))
|
|
|
661 (defalias old (symbol-function new)) )
|
|
|
662
|
|
|
663 ;; The following function is tricky, since they are executed by "eval-region".
|
|
|
664
|
|
|
665 (defun skktut-today ()
|
|
|
666 (save-match-data
|
|
|
667 (let (str p)
|
|
|
668 (widen)
|
|
|
669 (search-forward "\n>> ")
|
|
|
670 (if (re-search-forward "$B!V(B.*$B!W(B" (skk-save-point (end-of-line) (point)) t)
|
|
|
671 (delete-region (match-beginning 0) (match-end 0)) )
|
|
|
672 (setq p (point)
|
|
|
673 str (concat "$B!V$-$g$&$O!"(B" (skk-date) "$B$G$9!#!W(B") )
|
|
|
674 (insert str)
|
|
|
675 (narrow-to-region (point-min) (point))
|
|
|
676 (if skktut-use-face
|
|
|
677 (put-text-property p (point) 'face skktut-question-face) ))))
|
|
|
678
|
|
|
679 (defun skktut-end-tutorial ()
|
|
|
680 (message "")
|
|
|
681 (switch-to-buffer "*$BLd(B*")
|
|
|
682 (delete-other-windows)
|
|
|
683 (erase-buffer)
|
|
|
684 (goto-char (point-min))
|
|
|
685 (if skktut-japanese-tut
|
|
|
686 (insert
|
|
|
687 (concat "SKK $B%A%e!<%H%j%"%k$O$3$l$G=*$j$G$9!#(B\n\n"
|
|
|
688 "SKK $B$K4X$9$k<ALd!"%3%a%s%H!"(Bbug report $BEy$O(B\n\n"
|
|
|
689 "\tskk@kuis.kyoto-u.ac.jp\n\n"
|
|
|
690 "$BKx$*Aw$j2<$5$$!#$J$*!"$3$N%"%I%l%9$O(B SKK $B%a%$%j%s%0%j%9%H$N(B"
|
|
|
691 "$B%"%I%l%9$G$9!#(B\n"
|
|
|
692 "$B2sEz$ODL>o$3$N%"%I%l%9$KBP$7$F$J$5$l$k$N$G!"%a%s%P!<$G$J$$(B"
|
|
|
693 "$BJ}$O$=$N;]$rL@(B\n"
|
|
|
694 "$B5-$7$F%a!<%k$r$*Aw$j$/$@$5$$!#(B SKK $B%a%$%j%s%0%j%9%H$X;22C4u(B"
|
|
|
695 "$BK>$N>l9g$O(B\n\n"
|
|
|
696 "\tskk-join@kuis.kyoto-u.ac.jp\n\n"
|
|
|
697 "$B$X%a!<%k$r$*Aw$j$/$@$5$$(B\n\n"
|
|
|
698 "!! $B:G8e$K(B <return> $B%-!<$r2!$7$F$/$@$5$$!#(B" ))
|
|
|
699 (insert
|
|
|
700 (concat "Now we end the SKK tutorial.\n\n"
|
|
|
701 "Please send comments, questions and bug reports on SKK to:\n\n"
|
|
|
702 "\tskk@kuis.kyoto-u.ac.jp\n\n"
|
|
|
703 "This is the address of the SKK mailing list, and normally the "
|
|
|
704 "responces\n"
|
|
|
705 "will be sent only to the ML members. So, if you are not a ML "
|
|
|
706 "member,\n"
|
|
|
707 "please say so in your mail. If you are interested in joining "
|
|
|
708 "the SKK ML,\n"
|
|
|
709 "send a mail to:\n\n"
|
|
|
710 "\tskk-join@kuis.kyoto-u.ac.jp\n\n"
|
|
|
711 "!! Hit <return> key when you are ready." )))
|
|
|
712 (if skktut-use-face
|
|
|
713 (save-match-data
|
|
|
714 (goto-char (point-min))
|
|
|
715 (re-search-forward "^!!.+" nil t nil)
|
|
|
716 (put-text-property (match-beginning 0) (match-end 0)
|
|
|
717 'face skktut-do-it-face )))
|
|
|
718 (while (not (= ?\C-m (read-char)))
|
|
|
719 (skktut-message "<return> $B%-!<$r2!$7$F$/$@$5$$(B" "Hit <return> key")
|
|
|
720 (ding) )
|
|
|
721 (setq skktut-tutorial-end t) )
|
|
|
722
|
|
|
723 (provide 'skk-tut)
|
|
|
724 ;;; skk-tut.el ends here
|
