blob: 3d6fbf72336e4162ee75a6ed1893a8b4d33763f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
;; anthy-conf.el -- Anthy
;; Copyright (C) 2002
;; Author: Yusuke Tabata<yusuke@kmc.gr.jp>
;; This file is part of Anthy
;;; Commentary:
;;
(defvar anthy-alt-char-map
'(("," "$B!$(B")
("." "$B!%(B")))
(defvar anthy-kana-mode-hiragana-map
'(
("3" . "$B$"(B") ("e" . "$B$$(B") ("4" . "$B$&(B") ("5" . "$B$((B") ("6" . "$B$*(B")
("#" . "$B$!(B") ("E" . "$B$#(B") ("$" . "$B$%(B") ("%" . "$B$'(B") ("&" . "$B$)(B")
("t" . "$B$+(B") ("g" . "$B$-(B") ("h" . "$B$/(B") (":" . "$B$1(B") ("b" . "$B$3(B")
("t@" . "$B$,(B") ("g@" . "$B$.(B") ("h@" . "$B$0(B") (":@" . "$B$2(B") ("b@" . "$B$4(B")
("x" . "$B$5(B") ("d" . "$B$7(B") ("r" . "$B$9(B") ("p" . "$B$;(B") ("c" . "$B$=(B")
("x@" . "$B$6(B") ("d@" . "$B$8(B") ("r@" . "$B$:(B") ("p@" . "$B$<(B") ("c@" . "$B$>(B")
("q" . "$B$?(B") ("a" . "$B$A(B") ("z" . "$B$D(B") ("w" . "$B$F(B") ("s" . "$B$H(B")
("q@" . "$B$@(B") ("a@" . "$B$B(B") ("z@" . "$B$E(B") ("w@" . "$B$G(B") ("s@" . "$B$I(B")
("u" . "$B$J(B") ("i" . "$B$K(B") ("1" . "$B$L(B") ("," . "$B$M(B") ("k" . "$B$N(B")
("f" . "$B$O(B") ("v" . "$B$R(B") ("2" . "$B$U(B") ("^" . "$B$X(B") ("-" . "$B$[(B")
("f@" . "$B$P(B") ("v@" . "$B$S(B") ("2@" . "$B$V(B") ("^@" . "$B$Y(B") ("-@" . "$B$\(B")
("f[" . "$B$Q(B") ("v[" . "$B$T(B") ("2[" . "$B$W(B") ("^[" . "$B$Z(B") ("-[" . "$B$](B")
("j" . "$B$^(B") ("n" . "$B$_(B") ("]" . "$B$`(B") ("/" . "$B$a(B") ("m" . "$B$b(B")
("7" . "$B$d(B") ("8" . "$B$f(B") ("9" . "$B$h(B")
("'" . "$B$c(B") ("(" . "$B$e(B") (")" . "$B$g(B")
("o" . "$B$i(B") ("l" . "$B$j(B") ("." . "$B$k(B") (";" . "$B$l(B") ("\\" . "$B$m(B")
("0" . "$B$o(B") ("~" . "$B$r(B")
;; $B:$$C$?$3$H$K(B $B%P%C%/%9%i%C%7%e$H1_$r6hJL$9$kJ}K!$,$o$+$i$J$$(B
("|" . "$B!<(B") ("_" . "$B!<(B") ("<" . "$B!"(B") (">" . "$B!#(B")
("Z" . "$B$C(B") ("y" . "$B$s(B")
))
(defvar anthy-kana-mode-katakana-map
'(
("3" . "$B%"(B") ("e" . "$B%$(B") ("4" . "$B%&(B") ("5" . "$B%((B") ("6" . "$B%*(B")
("#" . "$B%!(B") ("E" . "$B%#(B") ("$" . "$B%%(B") ("%" . "$B%'(B") ("&" . "$B%)(B")
("t" . "$B%+(B") ("g" . "$B%-(B") ("h" . "$B%/(B") (":" . "$B%1(B") ("b" . "$B%3(B")
("t@" . "$B%,(B") ("g@" . "$B%.(B") ("h@" . "$B%0(B") (":@" . "$B%2(B") ("b@" . "$B%4(B")
("x" . "$B%5(B") ("d" . "$B%7(B") ("r" . "$B%9(B") ("p" . "$B%;(B") ("c" . "$B%=(B")
("x@" . "$B%6(B") ("d@" . "$B%8(B") ("r@" . "$B%:(B") ("p@" . "$B%<(B") ("c@" . "$B%>(B")
("q" . "$B%?(B") ("a" . "$B%A(B") ("z" . "$B%D(B") ("w" . "$B%F(B") ("s" . "$B%H(B")
("q@" . "$B%@(B") ("a@" . "$B%B(B") ("z@" . "$B%E(B") ("w@" . "$B%G(B") ("s@" . "$B%I(B")
("u" . "$B%J(B") ("i" . "$B%K(B") ("1" . "$B%L(B") ("," . "$B%M(B") ("k" . "$B%N(B")
("f" . "$B%O(B") ("v" . "$B%R(B") ("2" . "$B%U(B") ("^" . "$B%X(B") ("-" . "$B%[(B")
("f@" . "$B%P(B") ("v@" . "$B%S(B") ("2@" . "$B%V(B") ("^@" . "$B%Y(B") ("-@" . "$B%\(B")
("f[" . "$B%Q(B") ("v[" . "$B%T(B") ("2[" . "$B%W(B") ("^[" . "$B%Z(B") ("-[" . "$B%](B")
("j" . "$B%^(B") ("n" . "$B%_(B") ("]" . "$B%`(B") ("/" . "$B%a(B") ("m" . "$B%b(B")
("7" . "$B%d(B") ("8" . "$B%f(B") ("9" . "$B%h(B")
("'" . "$B%c(B") ("(" . "$B%e(B") (")" . "$B%g(B")
("o" . "$B%i(B") ("l" . "$B%j(B") ("." . "$B%k(B") (";" . "$B%l(B") ("\\" . "$B%m(B")
("0" . "$B%o(B") ("~" . "$B%r(B")
;; $B:$$C$?$3$H$K(B $B%P%C%/%9%i%C%7%e$H1_$r6hJL$9$kJ}K!$,$o$+$i$J$$(B
("|" . "$B!<(B") ("_" . "$B!<(B") ("<" . "$B!"(B") (">" . "$B!#(B")
("Z" . "$B%C(B") ("y" . "$B%s(B")
))
;;
;; map$B$NJQ99(B
;;
(defun anthy-send-map-edit-command (mapno key str)
(if (not (stringp key))
(setq key (char-to-string key)))
(if (not (stringp str))
(setq str (char-to-string str)))
(anthy-send-recv-command
(concat " MAP_EDIT " (int-to-string mapno)
" " key " " str "\n")))
(defun anthy-change-hiragana-map (key str)
(anthy-send-map-edit-command 2 key str))
(defun anthy-change-katakana-map (key str)
(anthy-send-map-edit-command 3 key str))
(defun anthy-load-hiragana-map (map)
(mapcar (lambda (x)
(let ((key (car x))
(str (cadr x)))
(anthy-change-hiragana-map key str))) map))
(defun anthy-clear-map ()
(anthy-send-recv-command
" MAP_CLEAR 0\n"))
;;
;; toggle$B$NJQ99(B
;;
(defun anthy-send-change-toggle-command (str)
(anthy-send-recv-command
(concat " CHANGE_TOGGLE " str "\n")))
;; should disable toggle
;; ($B%m!<%^;z$G$O$J$/$F(B)$B$+$J%b!<%I$K$9$k(B
(defun anthy-kana-map-mode ()
(setq anthy-rkmap-keybind
'(
;; \C-p
(("hiragana" . 16) . "katakana")
(("katakana" . 16) . "hiragana")))
(define-key anthy-mode-map (char-to-string 16) 'anthy-insert)
(anthy-send-recv-command " SET_PREEDIT_MODE 1\n")
(anthy-send-change-toggle-command "!")
(anthy-clear-map)
(mapcar (lambda (x)
(anthy-change-hiragana-map (car x) (cdr x)))
anthy-kana-mode-hiragana-map)
(mapcar (lambda (x)
(anthy-change-katakana-map (car x) (cdr x)))
anthy-kana-mode-katakana-map))
;;
(defun anthy-set-break-into-roman (flag)
"$BFI$_$rF~NOCf$K%P%C%/%9%Z!<%9$rBG$D$H%m!<%^;z$^$G%P%i%P%i$K$9$k(B"
(anthy-send-recv-command
(if flag
" BREAK_INTO_ROMAN 1\n"
" BREAK_INTO_ROMAN 0\n")))
(provide 'anthy-conf)
|
