[plamo:14417] Re: emacsでの漢字変換

[Chisato Yamauchi]

  山内です．

  Emacs の Canna の設定の続きです．もうちょっと調べてみたので，
報告しておきます．

・[一覧] 表示について．

======== .emacs ========
;; 従来の環境から Tamago-4 に移行する場合は、
;; ~/.eggrc を削除してください．

;; 変換時に下部に候補を表示する．
(defcustom egg-conversion-auto-candidate-menu 1
  "*Automatically enter the candidate selection mode at N times
next/previous-candidate, if positive number N."
  :group 'egg-conv :type 'integer)

========================
  のように，egg-con…e-menu を 1 にしてください．

  このあたりのカスタマイズは，/usr/share/emacs/site-lisp/egg/
にある，egg-cnv.el の defcuston の部分を .emacs に貼り付け
ればOK．他にもいろいろあるようです．

・キー設定の拡張．

  以下によって，
  - キー割り当て
    [Ctrl]+[N], [f7], [↓], [カタカナひらがな]  -> カタカナ
    [f6], [↑], [無変換]                        -> ひらがな
    [変換] [space]                              -> 変換
  - BackSpace Delete キーまわりの調整
の設定をします．

======== .emacs ========
          (define-key map "\C-m" 'its-exit-mode)      ; RET
          (define-key map "\C-n" 'its-katakana)
          (define-key map [return] 'its-exit-mode)
          (define-key map "\C-t" 'its-transpose-chars)
          (define-key map "\C-w" 'its-kick-convert-region)
          (define-key map "\C-y" 'its-yank)
          (define-key map "\M-y" 'its-yank-pop)
          (define-key map [M-backspace] 'its-delete-backward-SYL-by-keystroke)
          (define-key map [M-delete] 'its-delete-backward-SYL-by-keystroke)
          (define-key map [right] 'its-forward-SYL)
          (define-key map [left] 'its-backward-SYL)
          (define-key map [up] 'its-hiragana)
          (define-key map [down] 'its-katakana)
          (while (< i 127)
            (define-key map (vector i) 'its-self-insert-char)
            (setq i (1+ i)))
          (define-key map " "    'its-kick-convert-region-or-self-insert)
          (cond ((eq window-system 'x)
                 (define-key map [henkan] 'its-kick-convert-region-or-self-insert)
                 (define-key map [hiragana-katakana] 'its-katakana)
                 (define-key map [muhenkan] 'its-hiragana)
                 (define-key map [f6] 'its-hiragana)
                 (define-key map [f7] 'its-katakana)
                 (define-key map [f8] 'its-half-width)
                 (define-key map [backspace] 'its-delete-backward-SYL)
                 (define-key map [delete] 'its-delete-SYL))
                ((null window-system)
                 (define-key map "\e[17~" 'its-hiragana)
                 (define-key map "\e[18~" 'its-katakana)
                 (define-key map "\e[19~" 'its-half-width)
                 (define-key map "\177" 'its-delete-backward-SYL)
                 (define-key map [8] 'its-delete-backward-SYL)
                 (define-key map "\e[3~" 'its-delete-SYL)
                 (if (or (equal (getenv "TERM" ) "xterm")
                         (equal (getenv "TERM" ) "kterm")
                         (equal (getenv "TERM" ) "sun")
                         ;; TeraTermで DEL by Delete key の場合は有効にする
;                        (equal (substring (getenv "TERM") 0 2) "vt")
                         )
                     (define-key map [8] 'its-delete-SYL)
                   )))
          ;;
          (define-key map "\M-p" 'its-previous-map)
========================

・Canna辞書学習については，
  http://cgi18.plala.or.jp/nyy/canna/#use
  にありますが，.eggrc を設定する必要があるようです．

==  Chisato Yamauchi  =================================
    Mail: cyamauch@hst.phyas.aichi-edu.ac.jp
          cyamauch@a.phys.nagoya-u.ac.jp
    URL: http://phe.phyas.aichi-edu.ac.jp/~cyamauch/