eggrc

   1 ;;; eggrc --- EGG Input Method Startup File -*- emacs-lisp -*-
   2
   3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
   4
   5 ;; Author: KATAYAMA Yoshio <kate@pfu.co.jp>
   6
   7 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
   8
   9 ;; Keywords: mule, multilingual, input method
  10
  11 ;; This file is part of EGG.
  12
  13 ;; EGG is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 2, or (at your option)
  16 ;; any later version.
  17
  18 ;; EGG is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 ;; Boston, MA 02111-1307, USA.
  27
  28 ;;; Commentary:
  29
  30 ;;; Code:
  31
  32 (defun wnn4-jserver-setup ()
  33   (wnn-define-environment nil)
  34   (wnn-set-fuzokugo "pubdic/full.fzk")
  35   (wnn-add-dict "pubdic/kihon.dic"     '("kihon.h")    5 nil t)
  36   (wnn-add-dict "pubdic/setsuji.dic"   '("setsuji.h")  5 nil t)
  37   (wnn-add-dict "pubdic/koyuu.dic"     '("koyuu.h")    1 nil t)
  38   (wnn-add-dict "pubdic/chimei.dic"    '("chimei.h")   1 nil t)
  39   (wnn-add-dict "pubdic/jinmei.dic"    '("jinmei.h")   1 nil t)
  40   (wnn-add-dict "pubdic/special.dic"   '("special.h")  5 nil t)
  41   (wnn-add-dict "pubdic/computer.dic"  '("computer.h") 5 nil t)
  42   (wnn-add-dict "pubdic/symbol.dic"    '("symbol.h")   1 nil t)
  43   (wnn-add-dict "pubdic/tankan.dic"    nil             1 nil nil)
  44   (wnn-add-dict "pubdic/bio.dic"       '("bio.h")      1 nil t)
  45   (wnn-add-dict '("ud")                nil             5 t   t)
  46   (wnn-add-dict "wnncons/tankan2.dic"  nil             1 nil nil)
  47   (wnn-add-dict "wnncons/tankan3.dic"  nil             1 nil nil)
  48 ;  (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t)
  49   (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200)
  50
  51   (wnn-define-environment t)
  52   (wnn-set-fuzokugo "pubdic/full.fzk")
  53   (wnn-add-dict "pubdic/kihon.dic"     '("kihon.h")    5 nil t)
  54   (wnn-add-dict "pubdic/setsuji.dic"   '("setsuji.h")  5 nil t)
  55   (wnn-add-dict "pubdic/koyuu.dic"     '("koyuu.h")    1 nil t)
  56   (wnn-add-dict "pubdic/chimei.dic"    '("chimei.h")   1 nil t)
  57   (wnn-add-dict "pubdic/jinmei.dic"    '("jinmei.h")   1 nil t)
  58   (wnn-add-dict "pubdic/special.dic"   '("special.h")  5 nil t)
  59   (wnn-add-dict "pubdic/computer.dic"  '("computer.h") 5 nil t)
  60   (wnn-add-dict "pubdic/symbol.dic"    '("symbol.h")   1 nil t)
  61   (wnn-add-dict "pubdic/tankan.dic"    nil             1 nil nil)
  62   (wnn-add-dict "pubdic/bio.dic"       '("bio.h")      1 nil t)
  63   (wnn-add-dict '("ud")                nil             5 t   t)
  64   (wnn-add-dict "wnncons/tankan2.dic"  nil             1 nil nil)
  65   (wnn-add-dict "wnncons/tankan3.dic"  nil             1 nil nil)
  66 ;  (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t)
  67   (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200))
  68
  69 (defun wnn6-jserver-setup ()
  70   (wnn-define-environment nil)
  71   (wnn-set-fuzokugo "iwanami/kougo.fzk")
  72   (wnn-add-fisys-dict "iwanami/fisd"   '("fisd.h")       t)
  73   (wnn-add-fiusr-dict '("fiud")        nil               t   nil)
  74   (wnn-add-dict "iwanami/kihon.dic"    '("kihon.h")    6 nil t)
  75   (wnn-add-dict "iwanami/symbol.dic"   '("symbol.h")   1 nil t)
  76   (wnn-add-dict "iwanami/tankan.dic"   nil             1 nil nil)
  77   (wnn-add-dict "iwanami/tankan2.dic"  nil             1 nil nil)
  78   (wnn-add-dict "iwanami/tel.dic"      nil             1 nil nil)
  79   (wnn-add-dict "iwanami/zip.dic"      nil             1 nil nil)
  80   (wnn-add-dict '("ud")                nil            15 t   t)
  81 ;  (wnn-add-dict "wnncons/tankan2.dic"  nil            1 nil nil)
  82 ;  (wnn-add-dict "wnncons/tankan3.dic"  nil            1 nil nil)
  83   (wnn-set-param  5 10 2 45 0  80 5 1 20  0 400 -100 400   80 200 2 200)
  84
  85   (wnn-add-notrans-dict '("katakana") 15 t)
  86   (wnn-add-bmodify-dict '("bunsetsu") 15 t)
  87
  88   (wnn-set-last-is-first-mode t)
  89   (wnn-set-complex-conv-mode nil)
  90 ;  (wnn-set-okuri-flag -1)
  91   (wnn-set-prefix-flag 0)
  92
  93   (wnn-set-okuri-learn-mode t)
  94   (wnn-set-prefix-learn-mode t)
  95   (wnn-set-suffix-learn-mode t)
  96   (wnn-set-common-learn-mode t)
  97   (wnn-set-yuragi-mode nil)
  98
  99   (wnn-set-freq-func-mode 4)
 100
 101 ;  (wnn-set-numeric-mode -12)
 102 ;  (wnn-set-alphabet-mode -30)
 103 ;  (wnn-set-symbol-mode -40)
 104
 105   (wnn-define-environment t)
 106   (wnn-set-fuzokugo "iwanami/kougo.fzk")
 107   (wnn-add-dict '("ud") "" 15 t t)
 108   (wnn-set-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200))
 109
 110 (defun wnn7-jserver-setup ()
 111   (wnn-define-environment nil)
 112   (wnn-set-fuzokugo "system/kougo.fzk")
 113   (wnn-add-fisys-dict "system/fisd" '("fisd.h") t)
 114   (wnn-add-fiusr-dict '("fiud") nil t nil)
 115
 116   (wnn-add-dict "system/kihon.dic"        '("kihon.h")       6 nil t)
 117   (wnn-add-dict "system/symbol.dic"       '("symbol.h")      1 nil t)
 118   (wnn-add-dict "system/symbol_noat.dic"  '("symbol_noat.h") 1 nil t)
 119   (wnn-add-dict "system/tel.dic"          '("tel.h")         1 nil t)
 120   (wnn-add-dict "system/zip.dic"          '("zip.h")         1 nil t)
 121   (wnn-add-dict "system/tankan.dic"       nil                1 nil nil)
 122   (wnn-add-dict "system/tankan2.dic"      nil                1 nil nil)
 123   (wnn-add-dict "system/ikeiji.dic"       nil                1 nil nil)
 124   (wnn-add-dict "system/rensou.dic"       nil                1 nil nil)
 125   (wnn-add-dict '("ud")                   nil               15 t   t)
 126
 127   (wnn-add-dict "option/jinmei.dic"       '("jinmei.h")      1 nil t)
 128   (wnn-add-dict "option/chimei.dic"       '("chimei.h")      1 nil t)
 129   (wnn-add-dict "option/address.dic"      '("address.h")     1 nil t)
 130   (wnn-add-dict "option/station.dic"      '("station.h")     1 nil t)
 131   (wnn-add-dict "option/kana_english.dic" '("kana_english.h")1 nil t)
 132   (wnn-add-dict "option/enterprise.dic"   '("enterprise.h")  1 nil t)
 133   (wnn-add-dict "option/airport.dic"      '("airport.h")     1 nil t)
 134   (wnn-add-dict "option/university.dic"   '("university.h")  1 nil t)
 135   (wnn-add-dict "option/zoo.dic"          '("zoo.h")         1 nil t)
 136   (wnn-add-dict "option/botanical_garden.dic" '("botanical_garden.h") 1 nil t)
 137   (wnn-add-dict "option/aquarium.dic"     '("aquarium.h")    1 nil t)
 138   (wnn-add-dict "option/conveni.dic"      '("conveni.h")     1 nil t)
 139   (wnn-add-dict "option/amusement.dic"    '("amusement.h")   1 nil t)
 140
 141   (wnn-set-param  5 10 2 45 0  80 5 1 20  0 400 -100 400   80 200 2 200)
 142
 143   (wnn-add-notrans-dict '("katakana") 15 t)
 144   (wnn-add-bmodify-dict '("bunsetsu") 15 t)
 145
 146   (wnn-set-last-is-first-mode t)
 147   (wnn-set-complex-conv-mode nil)
 148   ;; (wnn-set-okuri-flag -1)
 149   (wnn-set-prefix-flag 0)
 150
 151   (wnn-set-okuri-learn-mode t)
 152   (wnn-set-prefix-learn-mode t)
 153   (wnn-set-suffix-learn-mode t)
 154   (wnn-set-common-learn-mode t)
 155   (wnn-set-yuragi-mode nil)
 156
 157   (wnn-set-freq-func-mode 4)
 158
 159 ;;  (wnn-set-yosoku-learn t)
 160 ;;  (wnn-set-yosoku-max-disp 10)
 161 ;;  (wnn-set-yosoku-last-is-first t)
 162
 163 ;;  (wnn-set-boin-kabusoku t)
 164 ;;  (wnn-set-shiin-choka t)
 165 ;;  (wnn-set-n-choka t)
 166 ;;  (wnn-set-nihongo-kosei t)
 167
 168   ;; (wnn-set-numeric-mode -12)
 169   ;; (wnn-set-alphabet-mode -30)
 170   ;; (wnn-set-symbol-mode -40)
 171
 172   (wnn-define-environment t)
 173   (wnn-set-fuzokugo "system/kougo.fzk")
 174   (wnn-add-dict "system/kihonR.dic" nil 1 nil nil)
 175   (wnn-add-dict "system/telR.dic" nil 1 nil nil)
 176   (wnn-add-dict "system/zipR.dic" nil 1 nil nil)
 177   (wnn-add-dict "system/tankanR.dic" nil 1 nil nil)
 178   (wnn-add-dict "system/tankan2R.dic" nil 1 nil nil)
 179
 180   (wnn-add-dict "option/jinmeiR.dic" nil 1 nil nil)
 181   (wnn-add-dict "option/chimeiR.dic" nil 1 nil nil)
 182   (wnn-add-dict "option/addressR.dic" nil 1 nil nil)
 183   ;;(wnn-add-dict "option/stationR.dic" nil 1 nil nil)
 184   ;;(wnn-add-dict "option/kana_englishR.dic" nil 1 nil nil)
 185   ;;(wnn-add-dict "option/enterpriseR.dic" nil 1 nil nil)
 186   ;;(wnn-add-dict "option/airportR.dic" nil 1 nil nil)
 187   ;;(wnn-add-dict "option/universityR.dic" nil 1 nil nil)
 188   ;;(wnn-add-dict "option/zooR.dic" nil 1 nil nil)
 189   ;;(wnn-add-dict "option/botanical_gardenR.dic" nil 1 nil nil)
 190   ;;(wnn-add-dict "option/aquariumR.dic" nil 1 nil nil)
 191   ;;(wnn-add-dict "option/conveniR.dic" nil 1 nil nil)
 192   ;;(wnn-add-dict "option/amusementR.dic" nil 1 nil nil)
 193
 194   (wnn-add-dict '("ud") nil 15 t t)
 195   (wnn-set-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200))
 196
 197 (cond
 198  ((eq egg-backend-type 'wnn)
 199   (cond
 200    ((eq wnn-server-type 'jserver)
 201     (if wnn-wnn6-server
 202         (wnn6-jserver-setup)
 203       (wnn4-jserver-setup)))
 204
 205    ((eq wnn-server-type 'cserver)
 206     (if wnn-use-bixing
 207         (progn
 208           (wnn-define-environment nil "Q")
 209           (wnn-set-fuzokugo "sys/full.con")
 210           (wnn-add-dict "sys/QianMa.dic"     nil         1 nil nil)
 211
 212           (wnn-define-environment nil "W")
 213           (wnn-set-fuzokugo "sys/full.con")
 214           (wnn-add-dict "sys/WuBi.dic"       nil         1 nil nil)))
 215
 216     (wnn-define-environment nil "PZ")
 217     (wnn-set-fuzokugo "sys/full.con")
 218     (wnn-add-dict "sys/level_1.dic"      '("level_1.h")  4 nil t)
 219     (wnn-add-dict "sys/level_2.dic"      '("level_2.h")  1 nil t)
 220     (wnn-add-dict "sys/basic.dic"        '("basic.h")    7 nil t)
 221     (wnn-add-dict "sys/computer.dic"     '("computer.h") 4 nil t)
 222     (wnn-add-dict "sys/cwnn.dic"         '("cwnn.h")     4 nil t)
 223     (wnn-add-dict '("ud")                nil             5 t   t)
 224     (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
 225
 226     (if wnn-use-bixing
 227         (progn
 228           (wnn-define-environment t "Q")
 229           (wnn-set-fuzokugo "sys/full.conR")
 230           (wnn-add-dict "sys/QianMa.dic"     nil         1 nil nil)
 231
 232           (wnn-define-environment t "W")
 233           (wnn-set-fuzokugo "sys/full.conR")
 234           (wnn-add-dict "sys/WuBi.dic"       nil         1 nil nil)))
 235
 236     (wnn-define-environment t "PZ")
 237     (wnn-set-fuzokugo "sys/full.conR")
 238     (wnn-add-dict "sys/level_1.dic"      '("level_1.h")  4 nil t)
 239     (wnn-add-dict "sys/level_2.dic"      '("level_2.h")  1 nil t)
 240     (wnn-add-dict "sys/basic.dic"        '("basic.h")    7 nil t)
 241     (wnn-add-dict "sys/computer.dic"     '("computer.h") 4 nil t)
 242     (wnn-add-dict "sys/cwnn.dic"         '("cwnn.h")     4 nil t)
 243     (wnn-add-dict '("ud")                nil             5 t   t)
 244     (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0))
 245
 246    ((eq wnn-server-type 'tserver)
 247     (wnn-define-environment nil "PZ")
 248     (wnn-set-fuzokugo "sys/full.con")
 249     (wnn-add-dict "sys/cns_ch.dic"       '("cns_ch.h")   4 nil t)
 250     (wnn-add-dict "sys/cns_wd.dic"       '("cns_wd.h")   1 nil t)
 251     (wnn-add-dict '("ud")                nil             5 t   t)
 252     (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
 253
 254     (wnn-define-environment t "PZ")
 255     (wnn-set-fuzokugo "sys/full.conR")
 256     (wnn-add-dict "sys/cns_ch.dic"       '("cns_ch.h")   4 nil t)
 257     (wnn-add-dict "sys/cns_wd.dic"       '("cns_wd.h")   1 nil t)
 258     (wnn-add-dict '("ud")                nil             5 t   t)
 259     (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0))
 260
 261    ((eq wnn-server-type 'kserver)
 262     (wnn-define-environment nil)
 263     (wnn-set-fuzokugo "sys/full.fzk")
 264     (wnn-add-dict "sys/hword.dic"        '("hword.h")    5 nil t)
 265     (wnn-add-dict "sys/single.dic"       '("single.h")   1 nil t)
 266     (wnn-add-dict '("ud")                nil             2 t   t)
 267     (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200)
 268
 269     (wnn-define-environment t)
 270     (wnn-set-fuzokugo "sys/full.fzk")
 271     (wnn-add-dict "sys/hword.dic"        '("hword.h")    5 nil t)
 272     (wnn-add-dict "sys/single.dic"       '("single.h")   1 nil t)
 273     (wnn-add-dict '("ud")                nil             2 t   t)
 274     (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200))))
 275
 276  ((eq egg-backend-type 'canna)
 277
 278   (canna-define-environment)
 279   (canna-add-dict "iroha" nil)
 280   (canna-add-dict "fuzokugo" nil)
 281   (canna-add-dict "hojomwd" nil)
 282   (canna-add-dict "hojoswd" nil)
 283   (canna-add-dict "user" t)
 284
 285   (canna-define-environment "Bushu" 0 t)
 286   (canna-add-dict "bushu" nil))
 287  )