;; 『かんな』環境設定ファイル 〜irohaバージョン〜 

(defmode zen-hira-kakutei-mode  "<全あ>" "default.kp" '(hiragana zenkaku kakutei))
(defmode zen-kata-kakutei-mode  "<全ア>" "default.kp" '(katakana zenkaku kakutei))
(defmode zen-alpha-kakutei-mode "<全英>" "default.kp" '(romaji zenkaku kakutei))
(defmode han-kata-kakutei-mode  "<半ア>" "default.kp" '(katakana hankaku kakutei))
(defmode han-alpha-kakutei-mode "<半英>" "default.kp" '(romaji hankaku kakutei))
(defmode zen-kata-henkan-mode   "[全ア]" "default.kp" '(katakana zenkaku))
(defmode zen-alpha-henkan-mode  "[全英]" "default.kp" '(romaji zenkaku))
(defmode han-kata-henkan-mode   "[半ア]" "default.kp" '(katakana hankaku))
(defmode han-alpha-henkan-mode  "[半英]" "default.kp" '(romaji hankaku))

;;

(initialize-function '(alpha-mode))	;; initial mode of IROHA
(setq cursor-wrap t)			;; wrapping arround for cursor movement
(setq numerical-key-select t)	;; enable selecting a candidate by hex key
(setq select-direct t)			;; selecting by hex key quit ICHIRAN mode
(setq bunsetsu-kugiri nil)		;; separate each BUNSETSU by white space
(setq character-based-move t)	;; movement based on KANA characters
(setq reverse-widely nil)		;; reverse whole pre-edit KANA
(setq quit-if-end-of-ichiran t)	;; quit ICHIRAN mode if no candidates exists
(setq break-into-roman t)		;; backspace key breaks ROMAN character or not

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

; FreeBSD 2.1.5-RELEASE
;(setq romkana-table "/usr/local/canna/lib/dic/kana.rdic")
; FreeBSD 2.2.2-RELEASE
(setq romkana-table "/usr/local/lib/canna/dic/kana.rdic")

(use-dictionary "iroha")
(use-dictionary "fuzokugo")
(use-dictionary "hojomwd")
(use-dictionary "hojoswd")
(use-dictionary "yuubin")
;(use-dictionary "necgaiji")

;(use-dictionary "chimei")
;(use-dictionary "katakana")
;(use-dictionary "software")
(use-dictionary :bushu "bushu")

(use-dictionary :user "user")

(let ((mode 'tankouho-mode))
  (set-key mode " " 'kouho-ichiran)
  )

(global-set-key "\F2" 'convert-as-hex)
(global-set-key "\F3" 'bushu-mode)
(global-set-key "\F5" 'zen-kata-kakutei-mode)


(let ((mode 'empty-mode))
  (set-key mode "\F2" 'hex-mode)
  )

(let ((mode 'yomi-mode))
  (set-key mode "\F3" 'convert-as-bushu)
  )

(let ((mode 'zen-kata-kakutei-mode))
  (set-key mode "\F5" 'zen-hira-kakutei-mode)
  )

(let ((mode 'zen-hira-kakutei-mode))
  (set-key mode "\F5" 'han-kata-kakutei-mode)
  )

(let ((mode 'han-kata-kakutei-mode))
  (set-key mode "\F5" 'zen-alpha-kakutei-mode)
  )

(let ((mode 'zen-alpha-kakutei-mode))
  (set-key mode "\F5" 'han-alpha-kakutei-mode)
  )

(let ((mode 'han-alpha-kakutei-mode))
  (set-key mode "\F5" 'henkan-nyuuryoku-mode)
  )
(set-mode-display 'alpha-mode "------")