;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Plamo Linux 桼ե륵ץ for canna
;;                           Time-stamp: <2002-08-04 18:47:07 cyamauch>

(setq romkana-table "default.cbp")

(use-dictionary
 "gcanna"
 "gcannaf"
;; "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 "keishiki"
 :bushu "bushu"
 :user "user"
 )

;; ɽ֤顢ʸ̤Ԥ
(set-key 'ichiran-mode "\C-o" '(quit extend))
(set-key 'ichiran-mode "\C-i" '(quit shrink))

(set-key 'yomi-mode "\F6" 'hiragana)
(set-key 'yomi-mode "\F7" 'katakana)
(set-key 'yomi-mode "\F8" 'hankaku)
(set-key 'yomi-mode "\F9" 'romaji)
(set-key 'tankouho-mode "\F6" 'hiragana)
(set-key 'tankouho-mode "\F7" 'katakana)
(set-key 'tankouho-mode "\F8" 'hankaku)
(set-key 'tankouho-mode "\F9" 'romaji)
(set-key 'mojishu-mode "\F6" 'hiragana)
(set-key 'mojishu-mode "\F7" 'katakana)
(set-key 'mojishu-mode "\F8" 'hankaku)
(set-key 'mojishu-mode "\F9" 'romaji)
(set-key 'shinshuku-mode "\F6" 'hiragana)
(set-key 'shinshuku-mode "\F7" 'katakana)
(set-key 'shinshuku-mode "\F8" 'hankaku)
(set-key 'shinshuku-mode "\F9" 'romaji)

;; Setting for some clients
(cond ( (equal (getenv "CONVERSIONCLIENT") "kinput2")
	;; Key bind for kinput2
	(global-set-key "\Delete"    'delete-next)
       )
      ( (equal (getenv "CONVERSIONCLIENT") "nicolatter")
	;; Key bind for nicolatter
	(global-set-key ":" 'delete-previous)
	(global-set-key "]" 'quit)
	(set-mode-display 'alpha-mode "[ѿ]")
	(set-key 'henkan-nyuuryoku-mode "\C-n" 'zen-alpha-kakutei-mode)
	(set-key 'zen-alpha-kakutei-mode "\C-n" 'henkan-nyuuryoku-mode)
      )
;	ʲ.emacsǲǽ
;      ( (equal (getenv "CONVERSIONCLIENT") "mule_on_x")
;	;; Key bind for emacs on X
;	(global-set-key "\Delete"    'delete-previous)
;	(global-set-key "\Backspace" 'delete-next)
;      )
      ( (equal (getenv "CONVERSIONCLIENT") "mule_on_term")
	;; Key bind for emacs on terminal
	(global-set-key "\Delete"    'delete-next)
	(global-set-key "\C-d"       'delete-next)
	(global-set-key "\Backspace" 'delete-previous)
	(global-set-key "\C-h"	   'delete-previous)
	(global-set-key "\C-r"	   'delete-previous)
	; Delete key
	(global-set-key "\Escape[3~" 'delete-next)
	;(global-set-key "\Escape[4~" 'delete-next)
	; Cursor key
	(global-set-key "\Escape[D"   'backward)
	(global-set-key "\Escape[C"   'forward)
	(global-set-key "\Escape[A"   'previous)
	(global-set-key "\Escape[B"   'next)
	(global-set-key "\EscapeOD"   'backward)
	(global-set-key "\EscapeOC"   'forward)
	(global-set-key "\EscapeOA"   'previous)
	(global-set-key "\EscapeOB"   'next)
	; PageUp, PageDown key
	(global-set-key "\Escape[5~"  'previous)
	(global-set-key "\Escape[6~"  'next)
      )
)

;; ܥ
(defsymbol 
  ?[ "" "" "[" "" ""
  ?] "" "" "]" "" "" )

;; ̸
(defsymbol 
  ?. "" "." "" 
  ?, "" "," "" )

;; ϸ
;(defsymbol 
;  ?. "" "." ""
;  ?, "" "," "" )

