[freewnn:00426] Wnn 4.2 on Plamo 2.0

[辰己 丈夫 TATSUMI Takeo<tatsumi@XXXX>]

神戸大学の辰己と申します。

いま、よしだともこさんと直接お話しておりまして、私が Plamo 2.0 の Free
Wnn が、変換パラメータを見てない話、.eggrc を見に行けない話、それを私
が直してみたというお話をしたところ、「その話を直接、このメーリングリス
トに投稿して下さい。」と言われました。

Plamo 2.0 に標準でインストールされる Free Wnn では、例えば

  「おおくぼせんせい」は、「大久保-線-製」

と変換します。これは、「よしだともこの必殺パラメーター」が効いていない
からで、それで昔の .eggrc をそのままおけば良いって単純な話かと思ったら、
そうでもなくて、/usr/local/lib/wnn が /usr/lib/wnn になってたりして、
どうもうまくない。

そこで、先週、いろいろやってみました。Web で検索した材料を基にして作っ
たので、著作権的には難しいのかも知れませんが、これでうまくいてますとい
う .emacs(Wnn部分) と .eggrc の設定です。Linux で FreeWnn を使っている
人はそんなに多くないと効いたので、きれいに書けてないかもしれませんが、
投稿します。 

------------------------------------------------------------------
- .emacs
------------------------------------------------------------------

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Egg (Wnn フロントエンド) の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load "egg")
(if (and (boundp 'WNN) WNN) ; 『Wnn/emacs』であることを確認
    (progn
      (setq egg-default-startup-file "~/.eggrc")
      ;; jserver が動いているホストを指定
      (set-wnn-host-name "localhost")
      ;; "nn" で「ん」を入力
      (setq enable-double-n-syntax t)

      ;; "." で「．」、"," で「，」を入力。 
      ; (setq use-kuten-for-period nil)
      ; (setq use-touten-for-comma nil)

      ;; "." で「。」、"," で「、」を入力。 
      (setq use-kuten-for-period t)
      (setq use-touten-for-comma t)

      ;; 1234567890%#%"' を「半角」で入力"
      (let ((its:*defrule-verbose* nil))
        (its-define-mode "roma-kana")
        (dolist (symbol '("1" "2" "3" "4" "5" 
                          "6" "7" "8" "9" "0"
                          "#" "%" "\"" "'" ))
                (its-defrule symbol symbol)))

      ;; おまけ :-)
      ;;(set-egg-fence-mode-format "♪" "♪" 'highlight)
      
      ;; おまけその２
      ;; egg-mix の設定。egg-mix 本体は contrib/Working にあります
      ;; (require 'egg-mix)

      ))

------------------------------------------------------------------
- .eggrc
------------------------------------------------------------------
;;      .eggrc for Wnn4.2 jserver
;;      s72038@csc.titech.ac.jp
;;      $Id: eggrc.txt,v 1.1 2000/04/27 04:16:00 tnakada Exp $

(defvar wnn-usr-dic-dir (concat "usr/" (user-login-name)))

;; 独断と偏見により逆変換の必要無しとする。
(defvar setup-reverse nil)

;; 正変換用のsetup
(defun wnn4-jserver-setup ()
  (set-wnn-reverse nil)
  (set-wnn-fuzokugo "pubdic/full.fzk")
  (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
  (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
  (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
  (add-wnn-dict "pubdic/chimei.dic" (concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
  (add-wnn-dict "pubdic/jinmei.dic" (concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
  (add-wnn-dict "pubdic/special.dic" (concat wnn-usr-dic-dir "/special.h") 5 nil t)
  (add-wnn-dict "pubdic/computer.dic" (concat wnn-usr-dic-dir "/computer.h") 5 nil t)
  (add-wnn-dict "pubdic/symbol.dic" (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
;  (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
  (add-wnn-dict "pubdic/tankan.dic" (concat wnn-usr-dic-dir "/tankan.h") 1 nil t)
  (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
;  (add-wnn-dict "gerodic/g-jinmei.dic" (concat wnn-usr-dic-dir "/g-jinmei.h") 1 nil t)
;  (add-wnn-dict "misc/supplement.dic" (concat wnn-usr-dic-dir "/supplement.h") 2 nil t)
;  (add-wnn-dict "aic/chibutsu.dic" (concat wnn-usr-dic-dir "/chibutsu.h") 2 nil t)
  (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  (add-wnn-dict "wnncons/tankan2.dic" (concat wnn-usr-dic-dir "/tankan2.h") 1 nil t)
;  (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
)

;; 「よしだともこ必殺パラメータ」
;; http://web.kyoto-inet.or.jp/people/tomoko-y/biwa/wnn/sdkiji.html 参照
(cond 
 ((boundp 'MULE)
  (set-wnn-param  2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200))
 ((string-match "XEmacs" emacs-version)
  (wnn-server-set-param '( wnn_n 2
                           wnn_nsho 10
                           wnn_hindo 2
                           wnn_len 45
                           wnn_jiri 100
                           wnn_flag 200
                           wnn_jisho 5
                           wnn_sbn 1
                           wnn_dbn_len 40
                           wnn_sbn_cnt -100
                           wnn_suuji 200
                           wnn_kana -100
                           wnn_eisuu 200
                           wnn_kigou 80
                           wnn_toji_kakko 200
                           wnn_fuzokogo 200
                           wnn_kaikakko 200))))
(wnn4-jserver-setup)

;; EOF