Anthy Kana with US Keyboard / Backslash problem
Yasushi Shinjo
Anthy をかな打ちで使おうとしています。付属のものでは、キーボー
ドとして JIS 配列を仮定していたので、US 配列で使えるように、
修正してみました。これは、だいたいうまくいったのですが、一部、
うまく行かない所があります。それは、バックスラッシュが絡んだ
あたりです。
(defvar anthy-kana-mode-hiragana-map-us
'(
... ("\\" . "へ") ("\\[" . "べ") ("\\=" . "ぺ") ...
))
「へ」に、「\」を割り当てました。これはうまくいきます。
「べ」に「\[」を割り当てようとしても、うまくいきません。
「ぺ」に「\=」を割り当てようとしても、うまくいきません。
これを解決するための何かヒントはないでしょうか。
とりあえずは、次のような定義を入れてしのいではいます。
("|" . "へ") ("|[" . "べ") ("|=" . "ぺ")
「へ」に「|」を割り当てました。
使っている Anthy は、anthy-9100e です。Emacs は、22.0.91.1
です。よろしくお願いします。
＼＼ 新城 靖 （しんじょう やすし） ＼＼
＼＼ 筑波大学 電子・情報 ＼＼
以下は、anthy-conf.el を少し修正して作った anthy-conf-us.el
というものです。-map というのに -map-us と変更して作りました。
一部もどしたものもあります。使われていない変数もあるかと思い
ます。
----------------------------------------------------------------------
;; anthy-conf-us.el -- Anthy Kana for US layout keyboard
;; Copyright (C) 2002
;; Author: Yusuke Tabata<yus...@kmc.gr.jp>
;; Modified by Yasushi Shinjo <y...@is.tsukuba.ac.jp>
;; 2008/09/02 17:14:20
;;; Commentary:
;;
(defvar anthy-alt-char-map-us
'(("," "，")
("." "．")))
(defvar anthy-kana-mode-hiragana-map-us
'(
("3" . "あ") ("e" . "い") ("4" . "う") ("5" . "え") ("6" . "お")
("#" . "ぁ") ("E" . "ぃ") ("$" . "ぅ") ("%" . "ぇ") ("^" . "ぉ")
("t" . "か") ("g" . "き") ("h" . "く") ("'" . "け") ("b" . "こ")
("t[" . "が") ("g[" . "ぎ") ("h[" . "ぐ") ("'[" . "げ") ("b[" . "ご")
("x" . "さ") ("d" . "し") ("r" . "す") ("p" . "せ") ("c" . "そ")
("x[" . "ざ") ("d[" . "じ") ("r[" . "ず") ("p[" . "ぜ") ("c[" . "ぞ")
("q" . "た") ("a" . "ち") ("z" . "つ") ("w" . "て") ("s" . "と")
("q[" . "だ") ("a[" . "ぢ") ("z[" . "づ") ("w[" . "で") ("s[" . "ど")
("u" . "な") ("i" . "に") ("1" . "ぬ") ("," . "ね") ("k" . "の")
("f" . "は") ("v" . "ひ") ("2" . "ふ") ("\\" . "へ") ("-" . "ほ")
("f[" . "ば") ("v[" . "び") ("2[" . "ぶ") ("\\[" . "べ") ("f[" . "ぼ")
("f=" . "ぱ") ("v=" . "ぴ") ("2=" . "ぷ") ("\\=" . "ぺ") ("-=" . "ぽ")
("j" . "ま") ("n" . "み") ("]" . "む") ("/" . "め") ("m" . "も")
("7" . "や") ("8" . "ゆ") ("9" . "よ")
("&" . "ゃ") ("*" . "ゅ") ("(" . "ょ")
("o" . "ら") ("l" . "り") ("." . "る") (";" . "れ") ("\"" . "ろ")
("0" . "わ") (")" . "を")
;; 困ったことに バックスラッシュと円を区別する方法がわからない
("}" . "ー") ("_" . "ろ") ("<" . "、") (">" . "。") ("?" . "・")
("Z" . "っ") ("y" . "ん")
("!" . "！") ("@" . "＠") ("+" . "「") ("{" . "」") ("`" . "｀")
("~" . "～") ("[" . "゛") ("=" . "゜")
("|" . "へ") ("|[" . "べ") ("|=" . "ぺ") (":" . "れ")
))
(defvar anthy-kana-mode-katakana-map-us
'(
("3" . "ア") ("e" . "イ") ("4" . "ウ") ("5" . "エ") ("6" . "オ")
("#" . "ァ") ("E" . "ィ") ("$" . "ゥ") ("%" . "ェ") ("^" . "ォ")
("t" . "カ") ("g" . "キ") ("h" . "ク") ("'" . "ケ") ("b" . "コ")
("t[" . "ガ") ("g[" . "ギ") ("h[" . "グ") ("'[" . "ゲ") ("b[" . "ゴ")
("x" . "サ") ("d" . "シ") ("r" . "ス") ("p" . "セ") ("c" . "ソ")
("x[" . "ザ") ("d[" . "ジ") ("r[" . "ズ") ("p[" . "ゼ") ("c[" . "ゾ")
("q" . "タ") ("a" . "チ") ("z" . "ツ") ("w" . "テ") ("s" . "ト")
("q[" . "ダ") ("a[" . "ヂ") ("z[" . "ヅ") ("w[" . "デ") ("s[" . "ド")
("u" . "ナ") ("i" . "ニ") ("1" . "ヌ") ("," . "ネ") ("k" . "ノ")
("f" . "ハ") ("v" . "ヒ") ("2" . "フ") ("\\" . "ヘ") ("-" . "ホ")
("f[" . "バ") ("v[" . "ビ") ("2[" . "ブ") ("\\[" . "ベ") ("-[" . "ボ")
("f=" . "パ") ("v=" . "ピ") ("2=" . "プ") ("\\=" . "ペ") ("-=" . "ポ")
("j" . "マ") ("n" . "ミ") ("]" . "ム") ("/" . "メ") ("m" . "モ")
("7" . "ヤ") ("8" . "ユ") ("9" . "ヨ")
("&" . "ャ") ("(" . "ュ") (")" . "ョ")
("o" . "ラ") ("l" . "リ") ("." . "ル") (";" . "レ") ("\"" . "ロ")
("0" . "ワ") (")" . "ヲ")
;; 困ったことに バックスラッシュと円を区別する方法がわからない
("}" . "ー") ("_" . "ロ") ("<" . "、") (">" . "。") ("?" . "・")
("Z" . "ッ") ("y" . "ン")
("!" . "！") ("@" . "＠") ("+" . "「") ("{" . "」") ("`" . "｀")
("~" . "～") ("[" . "゛") ("=" . "゜")
("|" . "ヘ") ("|[" . "ベ") ("|=" . "ペ") (":" . "レ")
))
;;
;; mapの変更
;;
(defun anthy-send-map-us-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-us (key str)
(anthy-send-map-us-edit-command 2 key str))
(defun anthy-change-katakana-map-us (key str)
(anthy-send-map-us-edit-command 3 key str))
(defun anthy-load-hiragana-map-us (map)
(mapcar (lambda (x)
(let ((key (car x))
(str (cadr x)))
(anthy-change-hiragana-map-us key str))) map))
(defun anthy-clear-map-us ()
(anthy-send-recv-command
" MAP_CLEAR 0\n"))
;;
;; toggleの変更
;;
(defun anthy-send-change-toggle-command (str)
(anthy-send-recv-command
(concat " CHANGE_TOGGLE " str "\n")))
;; should disable toggle
;; (ローマ字ではなくて)かなモードにする
(defun anthy-kana-map-us-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-us)
(mapcar (lambda (x)
(anthy-change-hiragana-map-us (car x) (cdr x)))
anthy-kana-mode-hiragana-map-us)
(mapcar (lambda (x)
(anthy-change-katakana-map-us (car x) (cdr x)))
anthy-kana-mode-katakana-map-us))
;;
(defun anthy-set-break-into-roman (flag)
"読みを入力中にバックスペースを打つとローマ字までバラバラにする"
(anthy-send-recv-command
(if flag
" BREAK_INTO_ROMAN 1\n"
" BREAK_INTO_ROMAN 0\n")))
(provide 'anthy-conf-us)