わさっきhb

大学(教育研究)とか ,親馬鹿とか,和歌山とか,とか,とか.

Anthyのローマ字かな変換を充実させる

Emacs22で,かな漢字変換kana-kanji conversionをスムーズにできるよう,~/.emacsに手を加えてみました.
日本語設定,かな漢字変換設定を貼り付けます.
ところで,Emacs22はもともと,UTF-8のファイルをスムーズに編集できるようにとインストールしたのですが,~/.emacsは,utf-8ではなくiso-2022-jp (いわゆるJIS)で保存しないと,うまく日本語が出てくれません.

;; 漢字コード
(set-default-coding-systems 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)
(set-language-environment "Japanese")
(set-keyboard-coding-system 'utf-8)

;; 環境変数 EMACS_IME を調べる。
(setq emacs-ime (getenv "EMACS_IME"))
(if (null emacs-ime)
    (setq emacs-ime "anthy"))

;; Anthyの設定
(if (equal emacs-ime "anthy")
   (progn
      (load-library "anthy")
      (setq default-input-method "japanese-anthy")
      (global-set-key "\C-\\" 'anthy-mode)
      (global-set-key [zenkaku-hankaku] 'anthy-mode)
      (anthy-load-hiragana-map anthy-alt-char-map)

      ; その他のローマ字かな変換
      (anthy-change-hiragana-map   "z1"   "○")
      (anthy-change-hiragana-map   "z!"   "●")
      (anthy-change-hiragana-map   "z2"   "▽")
      (anthy-change-hiragana-map   "z@"   "▼")
      (anthy-change-hiragana-map   "z3"   "△")
      (anthy-change-hiragana-map   "z#"   "▲")
      (anthy-change-hiragana-map   "z4"   "□")
      (anthy-change-hiragana-map   "z$"   "■")
      (anthy-change-hiragana-map   "z5"   "◇")
      (anthy-change-hiragana-map   "z%"   "◆")
      (anthy-change-hiragana-map   "z6"   "☆")
      (anthy-change-hiragana-map   "z^"   "★")
      (anthy-change-hiragana-map   "z7"   "◎")
      (anthy-change-hiragana-map   "z&"   "£")
      (anthy-change-hiragana-map   "z8"   "¢")
      (anthy-change-hiragana-map   "z*"   "×")
      (anthy-change-hiragana-map   "z9"   "♂")
      (anthy-change-hiragana-map   "z("   "【")
      (anthy-change-hiragana-map   "z0"   "♀")
      (anthy-change-hiragana-map   "z)"   "】")
      (anthy-change-hiragana-map   "z-"   "〜")
      (anthy-change-hiragana-map   "z_"   "∴")
      (anthy-change-hiragana-map   "z="   "≠")
      (anthy-change-hiragana-map   "z+"   "±")
      (anthy-change-hiragana-map   "z\\"  "\")
      (anthy-change-hiragana-map   "z|"   "‖")
      (anthy-change-hiragana-map   "z`"   "`")
      (anthy-change-hiragana-map   "z~"   "¨")
      (anthy-change-hiragana-map   "zq"   "《")
      (anthy-change-hiragana-map   "zQ"   "〈")
      (anthy-change-hiragana-map   "zw"   "》")
      (anthy-change-hiragana-map   "zW"   "〉")
      (anthy-change-hiragana-map   "zr"   "々")
      (anthy-change-hiragana-map   "zR"   "仝")
      (anthy-change-hiragana-map   "zt"   "〆")
      (anthy-change-hiragana-map   "zT"   "§")
      (anthy-change-hiragana-map   "zp"   "〒")
      (anthy-change-hiragana-map   "zP"   "↑")
      (anthy-change-hiragana-map   "z["   "『")
      (anthy-change-hiragana-map   "z{"   "〔")
      (anthy-change-hiragana-map   "z]"   "』")
      (anthy-change-hiragana-map   "z}"   "〕")
      (anthy-change-hiragana-map   "zs"   "ヽ")
      (anthy-change-hiragana-map   "zS"   "ヾ")
      (anthy-change-hiragana-map   "zd"   "ゝ")
      (anthy-change-hiragana-map   "zD"   "ゞ")
      (anthy-change-hiragana-map   "zf"   "〃")
      (anthy-change-hiragana-map   "zF"   "→")
      (anthy-change-hiragana-map   "zg"   "‐")
      (anthy-change-hiragana-map   "zG"   "―")
      (anthy-change-hiragana-map   "zh"   "←")
      (anthy-change-hiragana-map   "zj"   "↓")
      (anthy-change-hiragana-map   "zk"   "↑")
      (anthy-change-hiragana-map   "zl"   "→")
      (anthy-change-hiragana-map   "z;"   "゛")
      (anthy-change-hiragana-map   "z:"   "゜")
      (anthy-change-hiragana-map   "z\'"  "‘")
      (anthy-change-hiragana-map   "z\""  "“")
      (anthy-change-hiragana-map   "zx"   ":-")
      (anthy-change-hiragana-map   "zX"   ":-)")
      (anthy-change-hiragana-map   "zc"   "〇")
      (anthy-change-hiragana-map   "zC"   "℃")
      (anthy-change-hiragana-map   "zv"   "※")
      (anthy-change-hiragana-map   "zV"   "÷")
      (anthy-change-hiragana-map   "zb"   "°")
      (anthy-change-hiragana-map   "zB"   "←")
      (anthy-change-hiragana-map   "zn"   "′")
      (anthy-change-hiragana-map   "zN"   "↓")
      (anthy-change-hiragana-map   "zm"   "〃")
      (anthy-change-hiragana-map   "zM"   "〓")
      (anthy-change-hiragana-map   "z,"   "‥")
      (anthy-change-hiragana-map   "z<"   "≦")
      (anthy-change-hiragana-map   "z."   "…")
      (anthy-change-hiragana-map   "z>"   "≧")
      (anthy-change-hiragana-map   "z/"   "・")
      (anthy-change-hiragana-map   "z?"   "∞")

      (anthy-change-hiragana-map "Z0" "0")
      (anthy-change-hiragana-map "Z1" "1")
      (anthy-change-hiragana-map "Z2" "2")
      (anthy-change-hiragana-map "Z3" "3")
      (anthy-change-hiragana-map "Z4" "4")
      (anthy-change-hiragana-map "Z5" "5")
      (anthy-change-hiragana-map "Z6" "6")
      (anthy-change-hiragana-map "Z7" "7")
      (anthy-change-hiragana-map "Z8" "8")
      (anthy-change-hiragana-map "Z9" "9")
      (anthy-change-hiragana-map "Za" "a")
      (anthy-change-hiragana-map "Zb" "b")
      (anthy-change-hiragana-map "Zc" "c")
      (anthy-change-hiragana-map "Zd" "d")
      (anthy-change-hiragana-map "Ze" "e")
      (anthy-change-hiragana-map "Zf" "f")
      (anthy-change-hiragana-map "Zg" "g")
      (anthy-change-hiragana-map "Zh" "h")
      (anthy-change-hiragana-map "Zi" "i")
      (anthy-change-hiragana-map "Zj" "j")
      (anthy-change-hiragana-map "Zk" "k")
      (anthy-change-hiragana-map "Zl" "l")
      (anthy-change-hiragana-map "Zm" "m")
      (anthy-change-hiragana-map "Zn" "n")
      (anthy-change-hiragana-map "Zo" "o")
      (anthy-change-hiragana-map "Zp" "p")
      (anthy-change-hiragana-map "Zq" "q")
      (anthy-change-hiragana-map "Zr" "r")
      (anthy-change-hiragana-map "Zs" "s")
      (anthy-change-hiragana-map "Zt" "t")
      (anthy-change-hiragana-map "Zu" "u")
      (anthy-change-hiragana-map "Zv" "v")
      (anthy-change-hiragana-map "Zw" "w")
      (anthy-change-hiragana-map "Zx" "x")
      (anthy-change-hiragana-map "Zy" "y")
      (anthy-change-hiragana-map "Zz" "z")
      (anthy-change-hiragana-map "ZA" "A")
      (anthy-change-hiragana-map "ZB" "B")
      (anthy-change-hiragana-map "ZC" "C")
      (anthy-change-hiragana-map "ZD" "D")
      (anthy-change-hiragana-map "ZE" "E")
      (anthy-change-hiragana-map "ZF" "F")
      (anthy-change-hiragana-map "ZG" "G")
      (anthy-change-hiragana-map "ZH" "H")
      (anthy-change-hiragana-map "ZI" "I")
      (anthy-change-hiragana-map "ZJ" "J")
      (anthy-change-hiragana-map "ZK" "K")
      (anthy-change-hiragana-map "ZL" "L")
      (anthy-change-hiragana-map "ZM" "M")
      (anthy-change-hiragana-map "ZN" "N")
      (anthy-change-hiragana-map "ZO" "O")
      (anthy-change-hiragana-map "ZP" "P")
      (anthy-change-hiragana-map "ZQ" "Q")
      (anthy-change-hiragana-map "ZR" "R")
      (anthy-change-hiragana-map "ZS" "S")
      (anthy-change-hiragana-map "ZT" "T")
      (anthy-change-hiragana-map "ZU" "U")
      (anthy-change-hiragana-map "ZV" "V")
      (anthy-change-hiragana-map "ZW" "W")
      (anthy-change-hiragana-map "ZX" "X")
      (anthy-change-hiragana-map "ZY" "Y")
      (anthy-change-hiragana-map "ZZ" "Z")
      ))