;; 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: sample.canna,v 1.3 2003/09/25 15:24:33 aida_s Exp $

;;	sample.canna ϥޥեΰǤ
;;	ǥեȤ١˥ޥեѹ
;;	   CANNALIBDIR/sample/default.canna 
;;	   (CANNALIBDIR 㤨 /usr/lib/canna Ǥ)
;;	ѤƤ


;;; ޻Ѵ
;
; ޻Ѵơ֥ꤷޤ޻Ѵơ֥
; (1) ȥǥ쥯ȥ
; (2) ۡǥ쥯ȥ
; (3) CANNALIBDIR/dic  (CANNALIBDIR ϡ㤨 /usr/lib/canna Ǥ)
; ν˥ޤ
;

(setq romkana-table "default.cbp")

;;; Ѥ뼭
;
; ñ˽¤٤ƤΤñϿԤʤǥƥ༭ʤɤ
; ޤ
;
; 󼭽˴ؤƤ :bushu ԤƵҤޤ
;
; ñϿ򤷤˴ؤƤ :user ԤƵҤޤñ
; Ͽ򤹤뼭ϥƥȷǤʤФʤޤñϿ
;  mkdic user ͤʥޥɤǤĤȤˤñ˺뤳Ȥ
; Ǥޤ
;
; :katanana ԤƵҤϡʸμưϿ
; ʤޤѴǥʤѴƳꤹȡưŪ˥
; ̾ȤϿޤ
;
(use-dictionary
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 :bushu "bushu"
 :user  "user"
; :katakana "katakana"
 )

;;; ޤޤʥѥ᥿
;
; ͤꤹΤˤĤƤϿˤĤƤ t ˤĤƤ nil 
; ꤷޤ

; ư򤹤ü鱦˹ԤȤȺü˹Ԥ(t)
; nil λϱüˤȤɤޤޤ
(setq cursor-wrap          t)           ; default t

; ɽѤƸ򤹤뤫(t)
; nilλϿɽޤ
(setq numerical-key-select t)           ; default t

; ɽǤäȤ˰ɽλ뤫(t)
; nil λϰɽΤޤޤǤ
(setq select-direct        t)           ; default t

; ɽʸζڤ˶򤤤뤫(t)
; nil λ϶Ƕڤޤ
(setq bunsetsu-kugiri nil)              ; default nil

; ưʸ١ǹԤ(t)
; nilλϥ޻Ѵñ̤ǥưԤޤ
(setq character-based-move t)           ; default t

; ɤΤС뤫(t)
; nil λȿžɽޤ
(setq reverse-widely       nil)         ; default nil

; κǸޤǤäöɽ뤫(t)
; nil λϽλޤ
(setq quit-if-end-of-ichiran nil)       ; default nil

; ɤߤ˥ХåڡǤĤȥ޻ޤǥХХˤ뤫(t)
; nil λʸ١Ǻޤ
(setq break-into-roman     t)           ; default nil

; ٳؽ򤹤뤫(t)
; nil λٳؽԤޤ
(setq gakushu              t)           ; default t

; ƱʸˤȤɤޤ뤫(t)
; nilλϰԤȤҤȤʸ˰ưޤ
(setq stay-after-validate  t)           ; default t

; ʸαüDZư򤹤ΤꤷƤޤ(t)
; nil λϡcursor-wrap  t ǤȺüʸ˰ưޤ
; cursor-wrap  nil ǤȱüʸˤȤɤޤޤ
(setq kakutei-if-end-of-bunsetsu nil)   ; default nil

; ñϿʸˡϢμ򤹤뤫(t)
; nilλϾܺ٤ʻʬԤ鷺ŬʻϿԤޤ
(setq grammatical-question  t)          ; default t

; ѴǰɽԤѴǤ
; ɽˤϰܤޤ󡣤ξˤ C-w Ϥưɽ
; 
(setq n-henkan-for-ichiran 2)           ; default 2

; 䤬Τβܤɽ뤫(t)
; nil λɽޤ
(setq kouho-count t)                    ; default t

; ༡ưѴ򤹤뤫(t)
; nil λ༡ưѴԤޤ
(setq auto nil)                         ; default nil

; ༡Ѵ򤹤˲ĤʸޤǤ̤ݻ뤫
(setq n-kouho-bunsetsu 16)              ; default 16

; ޻Ѵǥ꡼ʥ޻ΤƤ뤫(t)
; nil λʥ޻ǤäƤϤȤƻĤޤ
(setq abandon-illegal-phonogram nil)    ; default nil

; λ˿ʳΥǤĤȼϤ˿ʤफ(t)
; nil λϡ֥ԥáפȤʤꡢϤˤϿʤߤޤ
(setq allow-next-input 		 t)     ; default t

; ʸϤƤ޻ѴǤϾʸȤư(t)
; nil λʸȾʸ̤ޤ default.cbp ѻ
; ʸϤȥե٥åȤΤޤϤޤ
(setq ignore-case 		nil)    ; default nil

; ϥ⡼ɤǵϤȤϥ⡼ɤλ뤫(t)
; nil ΤȤϵϢ³ϤǤޤ
(setq quickly-escape-from-kigo-input nil) ; default nil

; ޻Ѵͥ褹뤫(t)
; nil λϥ˳Ƥ줿ǽͥ褵ޤ
;   㤨С"x" + " "(ڡ) Фơ޻Ѵơ֥
;   ""(ѤΥڡ)ƤƤ硢romaji-yuusen  t λ
;   ѤΥڡɽޤromaji-yuusen  nil λϡڡ
;   Ѵ٤ΰ̣ȤѤޤ
(setq romaji-yuusen nil)                ; default nil

; ñϿ/ľ˼ν񤭽ФԤ(t)
; nil λϽ񤭽ФԤޤ
(setq auto-sync t)                      ; dafault t


; ʸ٥Υ޻Ѵơ֥
(defsymbol ?- "" "-" "" "" )
(defsymbol ?/  "/"  ""  "" )
(defsymbol ?\\ "\\" ""  "" )

(defsymbol
  ?( "(" "" ""
  ?) ")" "" "" )

(defsymbol 
  ?[ "" "" "[" "" ""
  ?] "" "" "]" "" "" )

(defsymbol
  ?{ "{" "" ""
  ?} "}" "" "")

(defsymbol
  ?< "<" "" "" ""
  ?> ">" "" "" "" )

(defsymbol 
  ?. "" "." ""
  ?, "" "," "" )

(defsymbol
  ?? "" "?"
  ?! "" "!" )

(defsymbol 
  ?'  "" "'"
  ?`  "" "`" )

(defsymbol
  ?\"	 ""
	 "\""
	 "")

(defsymbol
  ?; "" ";"
  ?: "" ":" )

(defsymbol ?# "" "#")
(defsymbol ?$ "" "$")
(defsymbol ?% "" "%")
(defsymbol ?& "" "&")
(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" "" "" )


;; delete ХåڡƱ򤵤
(global-set-key "\Delete" 'delete-previous) 

;; Help ʤͤ⤤Τ F10 ǤƱư򤵤롣
(global-set-key "\F10" 'extend-mode)


;; F7 Ҥ餬ϡϤڤ괹롣
(global-set-key	"\F7"	    'base-hiragana-katakana-toggle)

;; F8 ѡȾϤڤ괹롣
(global-set-key	"\F8"	    'base-zenkaku-hankaku-toggle)

;; F9 ʡѿڤ괹롣 
(global-set-key	"\F9"	    'base-kana-eisu-toggle)


;; F1 Ҥ餬Ѵ
;; F2 Ѵ
;; F3 ȾѴ
;; F4 ѿѴ

(let ((mode 'yomi-mode))
  (set-key mode "\F1"  		'hiragana)
  (set-key mode "\F2"  		'katakana)
  (set-key mode "\F3"  		'hankaku)
  (set-key mode "\F4"  		'romaji)
)

(let ((mode 'tankouho-mode))
  (set-key mode "\F1"  		'hiragana)
  (set-key mode "\F2"  		'katakana)
  (set-key mode "\F3"  		'hankaku)
  (set-key mode "\F4"  		'romaji)
)

(let ((mode 'mojishu-mode))
  (set-key mode "\F1"  		'hiragana)
  (set-key mode "\F2"  		'katakana)
  (set-key mode "\F3"  		'hankaku)
  (set-key mode "\F4"  		'romaji)
)