;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Plamo Linux 桼ե륵ץ for canna
;;                           Time-stamp: <2003-07-26 20:28:06 cyamauch>

;;
;; ޻/Ϥ
;;
;; ޻Ϥξ
(setq canna-input-method "roma")
;; Ϥξ
;(setq canna-input-method "kana")

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

;;
;; Хɡܥ
;;
;; ܥ
(if (equal canna-input-method "kana")
  (progn
    ;; Ϥξ
    (setq romkana-table "kana.cbp")
    (defsymbol ?~ "")
    (defsymbol ?[ "" "")
    (defsymbol ?@ "" "")
    (defsymbol ?* "" "")
    (defsymbol ?` "" "" "")
    (defsymbol ?P "" "P")
    (defsymbol ?+ "" "")
    (defsymbol ?= "" "")
    (defsymbol ?? "" "" "" "")
    (defsymbol ?< "" "")
    (defsymbol ?> "" "")
    (defsymbol ?| "" "")
    (defsymbol ?! "" "!")
    (defsymbol ?\" "" "\"")
  ) (progn
    ;; ޻Ϥξ
    (setq romkana-table "default.cbp")
    (defsymbol
      ?[ "" "" "[" "" "" ""
      ?] "" "" "]" "" "" "" )
    (defsymbol
      ?( "(" "" ""
      ?) ")" "" "" )
    (defsymbol
      ?{ "" "" "{"
      ?} "" "" "}" )
    (defsymbol
      ?< "" "<" "" ""
      ?> "" ">" "" "" )
    (defsymbol ?- "" "" "-")
    (defsymbol ?/ "" "/" "" "")
    (defsymbol ?+ "" "+")
    (defsymbol ?* "" "*" "")
    (defsymbol ?= "" "=")
    (defsymbol ?? "" "?")
    (defsymbol ?! "" "!")
    (defsymbol ?\" "" "\"")
    (defsymbol ?# "" "#")
    (defsymbol ?$ "" "$")
    (defsymbol ?% "" "%")
    (defsymbol ?& "" "&")
    (defsymbol ?' "" "'")
    (defsymbol ?` "" "`")
    (defsymbol ?~ "" "~")
    (defsymbol ?^ "" "^")
    (defsymbol ?: "" ":")
    (defsymbol ?; "" ";")
    (defsymbol ?| "" "|")
    ;; ̸(Ľ)
    (defsymbol
      ?. "" "." ""
      ?, "" "," "")
    ;; ̸()
    ;(defsymbol
    ;  ?. "" "." ""
    ;  ?, "" "," "")
    ;; ʸ
    ;(defsymbol
    ;  ?. "" "." ""
    ;  ?, "" "," "")
  )
)

;; Х
(set-key 'empty-mode "\F10"	'kigou-mode)
(set-key 'kigou-mode "\F10"	'quit)
;(set-key 'kigou-mode "\Escape"	'quit)

(set-key 'empty-mode "\F12"	'extend-mode)
(set-key 'ichiran-mode "\F12"	'quit)
;(set-key 'ichiran-mode "\Escape"	'quit)

(set-key 'yomi-mode "\F2" '(zenkaku hiragana henkan))
(set-key 'yomi-mode "\F6" 'hiragana)
(set-key 'yomi-mode "\F7" 'katakana)
(set-key 'yomi-mode "\F8" '(katakana hankaku))
(set-key 'yomi-mode "\F9" '(zenkaku romaji))
(set-key 'yomi-mode "\F10" '(romaji hankaku))
(set-key 'yomi-mode "\Rollup" '(zenkaku hiragana henkan))
(set-key 'yomi-mode "\Rolldown" '(zenkaku hiragana henkan))
(set-key 'tankouho-mode "\F2" 'henkan)
(set-key 'tankouho-mode "\F6" 'hiragana)
(set-key 'tankouho-mode "\F7" 'katakana)
(set-key 'tankouho-mode "\F8" '(katakana hankaku))
(set-key 'tankouho-mode "\F9" '(zenkaku romaji))
(set-key 'tankouho-mode "\F10" '(romaji hankaku))
(set-key 'tankouho-mode "\Rollup" 'henkan)
(set-key 'tankouho-mode "\Rolldown" 'henkan)  
(set-key 'shinshuku-mode "\F2" '(zenkaku hiragana henkan))
(set-key 'shinshuku-mode "\F6" 'hiragana)
(set-key 'shinshuku-mode "\F7" 'katakana)
(set-key 'shinshuku-mode "\F8" '(katakana hankaku))
(set-key 'shinshuku-mode "\F9" '(zenkaku romaji))
(set-key 'shinshuku-mode "\F10" '(romaji hankaku))
(set-key 'mojishu-mode "\F2" '(zenkaku hiragana henkan))
(set-key 'mojishu-mode "\F6" 'hiragana)
(set-key 'mojishu-mode "\F7" 'katakana)
(set-key 'mojishu-mode "\F8" '(katakana hankaku))
(set-key 'mojishu-mode "\F9" '(zenkaku romaji))
(set-key 'mojishu-mode "\F10" '(romaji hankaku))
(set-key 'ichiran-mode "\F2" 'henkan)
(set-key 'ichiran-mode "\F6" 'hiragana)
(set-key 'ichiran-mode "\F7" 'katakana)
(set-key 'ichiran-mode "\F8" '(katakana hankaku))
(set-key 'ichiran-mode "\F9" '(zenkaku romaji))
(set-key 'ichiran-mode "\F10" '(romaji hankaku))
(set-key 'ichiran-mode "\Rollup" 'previous)
(set-key 'ichiran-mode "\Rolldown" 'next)

;; 饤ȤȤ
;; ( Plamo ȼʤΤ)
(cond ((equal (getenv "CONVERSIONCLIENT") "kinput2")
  ;; Key bind for kinput2
  (if (equal canna-input-method "kana")
    (progn
      (defsymbol ?_ "")
      (defsymbol ?\\ "")
    ) (progn
      (defsymbol ?_ "" "_" "" "\\")
      (defsymbol ?\\ "" "" "\\")
    )
  )
  (global-set-key "\Escape" 'quit)
  (global-set-key "\Delete" 'delete-next)
  (set-key 'empty-mode "\F6" '(base-zenkaku base-hiragana))
  (set-key 'empty-mode "\F7" '(base-zenkaku base-katakana))
  (set-key 'empty-mode "\F8" '(base-katakana base-hankaku))
  (set-key 'empty-mode "\Hiragana" 'base-hiragana)
  (set-key 'empty-mode "\Katakana" 'base-katakana)
  (set-key 'empty-mode "\Nfer" 'base-hiragana)
  (set-key 'empty-mode "\S-Nfer" 'base-eisu)
  (set-key 'yomi-mode "\Hiragana" 'hiragana)
  (set-key 'yomi-mode "\Katakana" 'katakana)
  (set-key 'tankouho-mode "\Hiragana" 'hiragana)
  (set-key 'tankouho-mode "\Katakana" 'katakana)
  (set-key 'shinshuku-mode "\Hiragana" 'hiragana)
  (set-key 'shinshuku-mode "\Katakana" 'katakana)
  (set-key 'mojishu-mode "\Hiragana" 'hiragana)
  (set-key 'mojishu-mode "\Katakana" 'katakana)
  (set-key 'ichiran-mode "\Hiragana" 'hiragana)
  (set-key 'ichiran-mode "\Katakana" 'katakana)
  ;; kinput2  Ctrl + o ̵ˤ
  ;(global-unbind-key-function 'japanese-mode)
  ;(global-unbind-key-function 'alpha-mode)
  ; for Exceed
  (global-set-key "\Hankakuzenkaku" 'henkan)
) ((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)
))

;;
;; ư
;;
;; ʸϤϤ᤿鼫ưŪ˳
(setq chikuji-continue nil)
(setq renbun-continue nil)
(setq mojishu-continue nil)

; ɽʸζڤ˶򤤤
;(setq bunsetsu-kugiri t)

; ɤΤСɽ
;(setq reverse-widely t)

; ٳؽ򤷤ʤ
;(setq gakushu nil)

; ʸαüǢΤ
;(setq kakutei-if-end-of-bunsetsu t)

; ϼʸ˰ư
(setq stay-after-validate nil)

; ɤBackSpaceǥ޻˥Х餹
(setq break-into-roman t)

; ѴǸɽԤ
(setq n-henkan-for-ichiran 2)

; ༡Ѵ򤹤
;(setq auto t)

; ༡Ѵ򤹤̤ʸθĿ
(setq n-kouho-bunsetsu 16)

; ޻Ѵǥ꡼ʥ޻ΤƤ
;(setq abandon-illegal-phonogram t)

; λ⼡Ϥǧʤ
;(setq allow-next-input nil)
