1
;; Wnn7Egg is Egg modified for Wnn7, and the current maintainer
2
;; is OMRON SOFTWARE Co., Ltd. <wnn-info@omronsoft.co.jp>
4
;; This file is part of Wnn7Egg. (base code is eggrc)
6
;;; ------------------------------------------------------------------
8
;;; Wnn7Egg ��Wnn "�ʤ�"���ޤ���--- Wnn7 Emacs Client
10
;;; Wnn7Egg �ϡ��֤��ޤ��裳�ǡ�v3.09 ��١����� �֤��ޤ��裴�ǡפ��̿���
11
;;; �饤�֥�������Ȥ߹������Wnn7 �ΰ٤����ѥ��饤����ȤǤ���
13
;;; ���٤ƤΥ������� Emacs Lisp �ǵ��Ҥ���Ƥ���Τǡ�Wnn SDK/Library ��ɬ��
14
;;; �Ȥ�����GNU Emacs �ڤ� XEmacs �Ķ��ǻ��Ѥ��뤳�Ȥ��Ǥ��ޤ������ѵ������
17
;;; GNU Emacs 20.3 �ʹߡ�XEmacs 21.x �ʹߤ�ư���ǧ���Ƥ��ޤ���
20
;;; Wnn7Egg �� Wnn7 �ε�ǽ�Ǥ���ڡ����ϡ�����ͽ¬�ˡ�Ϣ���Ѵ��ݡ���
23
;;; �֤��ޤ��פ���Ω����¸�Ǥ���褦�ˡ��ƶ�������פʴؿ����ѿ�̾��
24
;;; "wnn7..." �Ȥ��������ѹ����Ƥ��ޤ���
26
;;; ------------------------------------------------------------------
29
;; Standard Start Up File for EGG
30
;; Copyright (C) 1992 Free Software Foundation, Inc.
31
;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
33
;; Mule is free software distributed in the form of patches to GNU Emacs.
34
;; You can redistribute it and/or modify
35
;; it under the terms of the GNU General Public License as published by
36
;; the Free Software Foundation; either version 1, or (at your option)
39
;; Mule is distributed in the hope that it will be useful,
40
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
41
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
42
;; GNU General Public License for more details.
44
;; You should have received a copy of the GNU General Public License
45
;; along with GNU Emacs; see the file COPYING. If not, write to
46
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
49
;;; Written by Satoru.Tomura@etl.jp 1988
50
;;; modified for LUNA'default ryuji@nfa.ncl.omron.junet
52
;;; modified for Wnn V4 - Use compatible library of Wnn v3
53
;;; Copyright 1989 OMRON Tateisi Electronics, Co.
54
;;; 1989 7/12 by H.Kuribayashi kuri@frf.oron.junet
56
;;; 92.5.19 modified for Wnn V4 by T.Shingu <shingu@cpr.canon.co.jp>
57
;;; Use non compatible library.
58
;;; 93.1.8 file names of frequency and private dictionary ware adjusted
59
;;; to Wnn version 4.1.
60
;;; 93.4.2 dictianary, frequency files are set up on normal/reverse
61
;;; environment individually.
62
;;; 93.6.30 specifying default user directory to make customize easily
63
;;; suggested by K.Sakai <ksakai@mtl.t.u-tokyo.ac.jp>
66
(defvar wnn-usr-dic-dir (concat "usr/" (user-login-name)))
68
(defun wnn7-jserver-setup ()
69
(wnn7-set-reverse nil)
70
(wnn7-set-fuzokugo "system/kougo.fzk")
71
(wnn7-add-fisys-dict "system/fisd"
72
(concat wnn-usr-dic-dir "/fisd.h") t)
73
(wnn7-add-fiusr-dict (concat wnn-usr-dic-dir "/fiud") "" t nil)
74
(wnn7-add-dict "system/kihon.dic"
75
(concat wnn-usr-dic-dir "/kihon.h") 6 nil t)
76
(wnn7-add-dict "system/symbol.dic"
77
(concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
78
;; (wnn7-add-dict "system/symbol_noat.dic"
79
;; (concat wnn-usr-dic-dir "/symbol_noat.h") 1 nil t)
80
(wnn7-add-dict "system/tel.dic"
81
(concat wnn-usr-dic-dir "/tel.h") 1 nil t)
82
(wnn7-add-dict "system/zip.dic"
83
(concat wnn-usr-dic-dir "/zip.h") 1 nil t)
84
(wnn7-add-dict "system/tankan.dic" "" 1 nil nil)
85
(wnn7-add-dict "system/tankan2.dic" "" 1 nil nil)
86
(wnn7-add-dict "system/ikeiji.dic" "" 1 nil nil)
87
(wnn7-add-dict "system/rensou.dic" "" 1 nil nil)
88
(wnn7-add-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
90
(wnn7-add-dict "option/jinmei.dic"
91
(concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
92
(wnn7-add-dict "option/chimei.dic"
93
(concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
94
(wnn7-add-dict "option/address.dic"
95
(concat wnn-usr-dic-dir "/address.h") 1 nil t)
96
(wnn7-add-dict "option/station.dic"
97
(concat wnn-usr-dic-dir "/station.h") 1 nil t)
98
(wnn7-add-dict "option/kana_english.dic"
99
(concat wnn-usr-dic-dir "/kana_english.h") 1 nil t)
100
(wnn7-add-dict "option/enterprise.dic"
101
(concat wnn-usr-dic-dir "/enterprise.h") 1 nil t)
102
(wnn7-add-dict "option/airport.dic"
103
(concat wnn-usr-dic-dir "/airport.h") 1 nil t)
104
(wnn7-add-dict "option/university.dic"
105
(concat wnn-usr-dic-dir "/university.h") 1 nil t)
106
(wnn7-add-dict "option/zoo.dic"
107
(concat wnn-usr-dic-dir "/zoo.h") 1 nil t)
108
(wnn7-add-dict "option/botanical_garden.dic"
109
(concat wnn-usr-dic-dir "/botanical_garden.h") 1 nil t)
110
(wnn7-add-dict "option/aquarium.dic"
111
(concat wnn-usr-dic-dir "/aquarium.h") 1 nil t)
112
(wnn7-add-dict "option/conveni.dic"
113
(concat wnn-usr-dic-dir "/conveni.h") 1 nil t)
114
(wnn7-add-dict "option/amusement.dic"
115
(concat wnn-usr-dic-dir "/amusement.h") 1 nil t)
117
(wnn7-set-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200)
119
(wnn7-add-notrans-dict (concat wnn-usr-dic-dir "/katakana") 15 t)
120
(wnn7-add-bmodify-dict (concat wnn-usr-dic-dir "/bunsetsu") 15 t)
122
(wnn7-set-last-is-first-mode t)
123
(wnn7-set-complex-conv-mode nil)
124
;; (wnn7-set-okuri-flag -1)
125
(wnn7-set-prefix-flag 0)
127
(wnn7-set-okuri-learn-mode t)
128
(wnn7-set-prefix-learn-mode t)
129
(wnn7-set-suffix-learn-mode t)
130
(wnn7-set-common-learn-mode t)
131
(wnn7-set-yuragi-mode nil)
133
(wnn7-set-freq-func-mode 4)
135
(wnn7-set-yosoku-learn t)
136
(wnn7-set-yosoku-max-disp 10)
137
(wnn7-set-yosoku-last-is-first t)
139
(wnn7-set-boin-kabusoku t)
140
(wnn7-set-shiin-choka t)
142
(wnn7-set-nihongo-kosei t)
144
;; (wnn7-set-numeric-mode -12)
145
;; (wnn7-set-alphabet-mode -30)
146
;; (wnn7-set-symbol-mode -40)
149
(wnn7-set-fuzokugo "system/kougo.fzk")
150
(wnn7-add-dict "system/kihonR.dic" "" 1 nil nil)
151
(wnn7-add-dict "system/telR.dic" "" 1 nil nil)
152
(wnn7-add-dict "system/zipR.dic" "" 1 nil nil)
153
(wnn7-add-dict "system/tankanR.dic" "" 1 nil nil)
154
(wnn7-add-dict "system/tankan2R.dic" "" 1 nil nil)
156
(wnn7-add-dict "option/jinmeiR.dic" "" 1 nil nil)
157
(wnn7-add-dict "option/chimeiR.dic" "" 1 nil nil)
158
(wnn7-add-dict "option/addressR.dic" "" 1 nil nil)
159
;;(wnn7-add-dict "option/stationR.dic" "" 1 nil nil)
160
;;(wnn7-add-dict "option/kana_englishR.dic" "" 1 nil nil)
161
;;(wnn7-add-dict "option/enterpriseR.dic" "" 1 nil nil)
162
;;(wnn7-add-dict "option/airportR.dic" "" 1 nil nil)
163
;;(wnn7-add-dict "option/universityR.dic" "" 1 nil nil)
164
;;(wnn7-add-dict "option/zooR.dic" "" 1 nil nil)
165
;;(wnn7-add-dict "option/botanical_gardenR.dic" "" 1 nil nil)
166
;;(wnn7-add-dict "option/aquariumR.dic" "" 1 nil nil)
167
;;(wnn7-add-dict "option/conveniR.dic" "" 1 nil nil)
168
;;(wnn7-add-dict "option/amusementR.dic" "" 1 nil nil)
170
(wnn7-add-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
171
(wnn7-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200))
175
;; N nsho hindo len jiri flag jisho sbn dbn_len sbn_cnt suuji kana eisuu kigou toji_kakko fuzokogo kaikakko
added
removed
elisp/emacs20/eggrc-wnn7
