tamago v4

(2002.05.04) もう tamago は使っていないので、以下が今でも通用するかど うか分かりません。ごめんなさい。


勝手にソースを読んでホゲった tamago v4 4.0.6 のカスタマイズです。判定 部分(tamago v4 搭載かどうか)ははしょりました。変換前=入力中は its-*, 変換中は egg-* というのがポイントです。

its と egg のフェンス色かえの部分は、普通に face を作っているだけなの で、もっといくらでもいじれるはずです。 (下の例での画面写真) あとフェンスに関しては、両方とも *-fence-invisible を指定してい ますが、 face も何もつけずにこれをやるとフェンスが完全に見えなくなって しまいます。特に terminal-face をサポートしていない Emacs20 で非 X 状 態 (-nw) で立ち上げた時にはまりやすいので、下のように if window-system 判別を入れた方がいいと思います。

;; ------------------------------------------------------------
;; tamago v4
;; ------------------------------------------------------------
;; 全般
(setq wnn-auto-save-dictionaries 1	; 何回変換すると(自動的に)辞書に反映するか
      its-enable-fullwidth-alphabet nil	; nil にすると、alphanumeric が半角入力になるらしい。
      its-delete-by-keystroke t		; Backspace で消すときに、かなを入力したローマ字に展開してローマ字単位で消す?
      egg-mode-preference t)		; 外すと操作方法が変わるみたいです。よく分かりません。
;; egg.el
(setq egg-conversion-wrap-select t	; 候補の最後まで行ったら先頭に戻る
      egg-conversion-auto-candidate-menu 0) ; 候補一覧を表示するまでの変換回数、0で非表示
;; 変換前 (its) フェンス
(if window-system
    (progn
      (setq ; its-fence-open "|"		; フェンスの開き記号
            ; its-fence-close "|"		; フェンスの閉じ記号
            its-fence-invisible t)	; フェンスを見えなくする
      ;; 色変え
      (make-face 'my-its-face)		; 新しい face を作って
      (set-face-foreground 'my-its-face "blue") ; 文字の色
      ;; (set-face-background 'my-its-face "white") ; 背景の色、書かないと背景が透過
      (set-face-underline-p 'my-its-face t) ; アンダーライン
      (setq its-fence-face 'my-its-face) ; its に登録
      ))
;; 変換中 (egg) フェンス
(if window-system
    (progn
      (setq ; egg-conversion-fence-open "|" ; 開き記号
            ; egg-conversion-fence-close "|" ; 閉じ記号
            egg-conversion-fence-invisible t) ; フェンスを見えなくする
      ;; 色変え
      (make-face 'my-egg-face)
      (set-face-foreground 'my-egg-face "blue")
      ;; (set-face-background 'my-egg-face "lightgray") ; 背景の色
      (set-face-underline-p 'my-egg-face t)
      (setq egg-conversion-face 'my-egg-face)
      ))
;; F7 で toroku-region
(global-set-key [f7] 'egg-toroku-region)

;; おまけ・半角カナ入力したい奇特な方
(defun its-japanese-hankaku (obj)
  (japanese-hankaku obj))
;; これを書いて its の関数を上書きして、変換のスペースを押す前(its 状態)に M-< を打つ。
;; its デフォルトでは japanese-hankaku 呼び出しに ascii-only が指定されていて、 
;; alphanumeric しか半角にならないようにされています。

この文書は無保証です。 [XHTML 1.0 Strict]