;; Copyright 1992 NEC Corporation, Tokyo, Japan.
;;
;; Permission to use, copy, modify, distribute and sell this software
;; and its documentation for any purpose is hereby granted without
;; fee, provided that the above copyright notice appear in all copies
;; and that both that copyright notice and this permission notice
;; appear in supporting documentation, and that the name of NEC
;; Corporation not be used in advertising or publicity pertaining to
;; distribution of the software without specific, written prior
;; permission.  NEC Corporation makes no representations about the
;; suitability of this software for any purpose.  It is provided "as
;; is" without express or implied warranty.
;;
;; NEC CORPORATION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
;; INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN 
;; NO EVENT SHALL NEC CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF 
;; USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR 
;; OTHER TORTUOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 
;; PERFORMANCE OF THIS SOFTWARE. 

;;  $Id: dot-canna,v 1.1 2005/09/26 09:29:14 tagoh Exp $

;; 記号置き換え変換を利用するか。

(setq use-symbolic-definition t)

;;; ローマ字かな変換の設定
;
; ローマ字かな変換テーブルを指定します。ローマ字かな変換テーブルは
; (1) カレントディレクトリ
; (2) ホームディレクトリ
; (3) /usr/lib/canna/dic
; の順にサーチされます。
;

;(setq romkana-table "unix.cbp")
(setq romkana-table "default.cbp")

;; 外来語変換
;(setq english-table "canna/english.cbp")


;;; 利用する辞書
;
; ただ単に書き並べているのは単語登録を行わない辞書でシステム辞書などが
; これに当たります。
;
; 部首辞書に関しては :bushu を先行させて記述します。
;
; 単語登録をしたい辞書に関しては :user を先行させて記述します。単語登
; 録をする辞書はテキスト形式辞書でなければなりません。単語登録させたい
; 辞書は mkdic user の様なコマンドを打つことでで簡単に作成することがで
; きます。
;
(use-dictionary
 "gcanna"
 "gcannaf"
 "chimei"
; "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 "software"
 "keishiki"
 "zipcode"
 "geo"
; "zip99"
 "basho"
 "keisan"
 "pub"
 "scien"
 "sup"
 "bonobo"
 :bushu "bushu"
 :user  "user"
 )

;;; さまざまなパラメタの設定
;
; 真理値を設定するものについては真については t 、偽については nil を設
; 定します。

; 一番右で右に行こうとすると左端にいくようにするか
(setq cursor-wrap          t)	; default t

; 一覧表示で数字を打ったときにカーソル移動に留める(nil)か選択までして
; しまうか(t)
(setq select-direct        t)	; default t

; 一覧表示で数字で選択するか(t)。nilの時は数字が表示されません
(setq numerical-key-select t)	; default t

; 候補表示時に文節の区切りに空白をいれるか
(setq bunsetsu-kugiri nil)      ; default nil

; 文字ベースの移動をするか(t)。 nilの時はローマ字かな変換の単位でカー
; ソル移動が行われます。
(setq character-based-move t)	; default t

; 入力中の読み全体をリバースするか
(setq reverse-widely       nil)	; default nil

; 頻度学習をするか
(setq gakushu              t)	; default t

; 一覧の最後までいったら一旦一覧表示をやめるか
(setq quit-if-end-of-ichiran nil); default nil

; 文節の右端で右移動をすると全体が確定してしまうか
(setq kakutei-if-end-of-bunsetsu nil) ; default nil

; 一覧選択後同じ文節にとどまるか(t)。nilの時は一覧選択を行うとひとつ先
; の文節に移動します。
(setq stay-after-validate  t)	; default t

; 読みを入力中にバックスペースを打つとローマ字までバラバラにするか
(setq break-into-roman     t)	; default nil

; 何回の変換キーで一覧表示を行うか。０を入れると変換キーだけでは
; 一覧表示には移りません。その場合には C-w を入力して一覧表示して
; 下さい。
(setq n-henkan-for-ichiran 2)	; default 2

; 単語登録時に文法関連の質問をするか(t)。nilの時は適当な品詞を付けてし
; まいます。
(setq gramatical-question  t)	; default t

; 候補が全体の何番目かを表示するか
(setq kouho-count t)            ; default t

; 逐次変換をするか
(setq auto nil)                 ; default nil

; 逐次変換をする時に何個の文節までを未確定で保持するか
(setq n-kouho-bunsetsu 16)      ; default 16

; ローマ字かな変換でイリーガルなローマ字を捨てるか
(setq abandon-illegal-phonogram nil)              ; default nil

; 一覧の時も次の入力を認めるか
(setq allow-next-input 		 t)	; default t

; 一文字レベルのローマ字かな変換の補助テーブル
(if use-symbolic-definition
    (progn
      (defsymbol ?-  "ー" "-" "−" "‐")
      (defsymbol ?/  "/"  "／"  "・")
      (defsymbol ?\\ "\\" "＼"  "￥")
      (defsymbol
	?( "(" "（" "【"
	?) ")" "）" "】" )
      (defsymbol 
	?[ "「" "『" "［" "〔" "["
	?] "」" "』" "］" "〕" "]")
      (defsymbol 
	?. "。" "．" "."
	?, "、" "，" "," )
      (defsymbol
	?0 "0" "０" "〇" "零"
	?1 "1" "１" "一" "壱"
	?2 "2" "２" "二" "弐"
	?3 "3" "３" "三" "参"
	?4 "4" "４" "四" "四"
	?5 "5" "５" "五" "伍"
	?6 "6" "６" "六" "六"
	?7 "7" "７" "七" "七"
	?8 "8" "８" "八" "八"
	?9 "9" "９" "九" "九" )
      (defsymbol
	?? "?" "？"
	?! "!" "！")
      (defsymbol ?# "#" "＃")
      (defsymbol ?$ "$" "＄")
      (defsymbol ?% "%" "％")
      (defsymbol ?& "&" "＆")
      (defsymbol ?+ "+" "＋")
      (defsymbol ?* "*" "＊" "×")
      (defsymbol ?_ "_" "＿")
      (defsymbol ?' "'" "’")
      (defsymbol ?` "`" "‘")
      (defsymbol ?\" "\"" "”")
      ))

;; delete キーもバックスペースと同じ処理をさせる
(global-set-key "\Delete" 'delete-previous) ; necessary in using Emacs

;; Help がない人もいるので F1 でも同じ動作をさせる。
(global-set-key "\F1" 'extend-mode)

;; Escape key should escape from the mode.
(global-set-key "\Escape" 'quit)

;; Ctrl-o の抑制
(global-unbind-key-function 'japanese-mode)
