X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=eggrc;fp=eggrc;h=50f622665a92d2fe25d46db018490ac43826f9e5;hb=f9fd651340223348e2a285a454f7ac11d2b7df23;hp=bcde322d6f1bd6d67941e1844b16579138236ece;hpb=42274ad7a177f9a950d79e3241592c07a0ce725d;p=elisp%2Ftamago.git

diff --git a/eggrc b/eggrc
index bcde322..50f6226 100644
--- a/eggrc
+++ b/eggrc
@@ -107,6 +107,93 @@
   (wnn-add-dict '("ud") "" 15 t t)
   (wnn-set-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200))
 
+(defun wnn7-jserver-setup ()
+  (wnn-define-environment nil)
+  (wnn-set-fuzokugo "system/kougo.fzk")
+  (wnn-add-fisys-dict "system/fisd" '("fisd.h") t)
+  (wnn-add-fiusr-dict '("fiud") nil t nil)
+
+  (wnn-add-dict "system/kihon.dic"        '("kihon.h")       6 nil t)
+  (wnn-add-dict "system/symbol.dic"       '("symbol.h")      1 nil t)
+  (wnn-add-dict "system/symbol_noat.dic"  '("symbol_noat.h") 1 nil t)
+  (wnn-add-dict "system/tel.dic"          '("tel.h")         1 nil t)
+  (wnn-add-dict "system/zip.dic"          '("zip.h")         1 nil t)
+  (wnn-add-dict "system/tankan.dic"       nil                1 nil nil)
+  (wnn-add-dict "system/tankan2.dic"      nil                1 nil nil)
+  (wnn-add-dict "system/ikeiji.dic"       nil                1 nil nil)
+  (wnn-add-dict "system/rensou.dic"       nil                1 nil nil)
+  (wnn-add-dict '("ud")                   nil               15 t   t)
+
+  (wnn-add-dict "option/jinmei.dic"       '("jinmei.h")      1 nil t)
+  (wnn-add-dict "option/chimei.dic"       '("chimei.h")      1 nil t)
+  (wnn-add-dict "option/address.dic"      '("address.h")     1 nil t)
+  (wnn-add-dict "option/station.dic"      '("station.h")     1 nil t)
+  (wnn-add-dict "option/kana_english.dic" '("kana_english.h")1 nil t)
+  (wnn-add-dict "option/enterprise.dic"   '("enterprise.h")  1 nil t)
+  (wnn-add-dict "option/airport.dic"      '("airport.h")     1 nil t)
+  (wnn-add-dict "option/university.dic"   '("university.h")  1 nil t)
+  (wnn-add-dict "option/zoo.dic"          '("zoo.h")         1 nil t)
+  (wnn-add-dict "option/botanical_garden.dic" '("botanical_garden.h") 1 nil t)
+  (wnn-add-dict "option/aquarium.dic"     '("aquarium.h")    1 nil t)
+  (wnn-add-dict "option/conveni.dic"      '("conveni.h")     1 nil t)
+  (wnn-add-dict "option/amusement.dic"    '("amusement.h")   1 nil t)
+
+  (wnn-set-param  5 10 2 45 0  80 5 1 20  0 400 -100 400   80 200 2 200)
+
+  (wnn-add-notrans-dict '("katakana") 15 t)
+  (wnn-add-bmodify-dict '("bunsetsu") 15 t)
+
+  (wnn-set-last-is-first-mode t)
+  (wnn-set-complex-conv-mode nil)
+  ;; (wnn-set-okuri-flag -1)
+  (wnn-set-prefix-flag 0)
+
+  (wnn-set-okuri-learn-mode t)
+  (wnn-set-prefix-learn-mode t)
+  (wnn-set-suffix-learn-mode t)
+  (wnn-set-common-learn-mode t)
+  (wnn-set-yuragi-mode nil)
+
+  (wnn-set-freq-func-mode 4)
+
+;;  (wnn-set-yosoku-learn t)
+;;  (wnn-set-yosoku-max-disp 10)
+;;  (wnn-set-yosoku-last-is-first t)
+
+;;  (wnn-set-boin-kabusoku t)
+;;  (wnn-set-shiin-choka t)
+;;  (wnn-set-n-choka t)
+;;  (wnn-set-nihongo-kosei t)
+
+  ;; (wnn-set-numeric-mode -12)
+  ;; (wnn-set-alphabet-mode -30)
+  ;; (wnn-set-symbol-mode -40)
+
+  (wnn-define-environment t)
+  (wnn-set-fuzokugo "system/kougo.fzk")
+  (wnn-add-dict "system/kihonR.dic" nil 1 nil nil)
+  (wnn-add-dict "system/telR.dic" nil 1 nil nil)
+  (wnn-add-dict "system/zipR.dic" nil 1 nil nil)
+  (wnn-add-dict "system/tankanR.dic" nil 1 nil nil)
+  (wnn-add-dict "system/tankan2R.dic" nil 1 nil nil)
+
+  (wnn-add-dict "option/jinmeiR.dic" nil 1 nil nil)
+  (wnn-add-dict "option/chimeiR.dic" nil 1 nil nil)
+  (wnn-add-dict "option/addressR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/stationR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/kana_englishR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/enterpriseR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/airportR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/universityR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/zooR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/botanical_gardenR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/aquariumR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/conveniR.dic" nil 1 nil nil)
+  ;;(wnn-add-dict "option/amusementR.dic" nil 1 nil nil)
+
+  (wnn-add-dict '("ud") nil 15 t t)
+  (wnn-set-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200))
+
 (cond
  ((eq egg-backend-type 'wnn)
   (cond