;; -*- Emacs-lisp -*-
(setq skk-server-host "clotho")
(setq skk-server-prog "/usr/local/libexec/skkserv")
(setq skk-server-jisyo "/usr/local/share/skk/SKK-JISYO.L")
(setq skk-server-portnum 1178)

(setq skk-byte-compile-init-file nil)
(setq skk-background-mode 'dark)
(setq skk-delete-implies-kakutei nil)	;BS で戻す
(setq skk-auto-okuri-process t)		;送り仮名を自動変換
(setq skk-auto-insert-paren t)		;対になる文字を挿入
(setq skk-convert-okurigana-into-katakana t)
					;カナ漢字まじり文を書く
(setq skk-henkan-strict-okuri-precedence t)
					;カナを一致した順に出す
(setq skk-egg-like-newline t)		;エンターで確定（改行しない）
(setq skk-japanese-message-and-error t)	;エラーを日本語で

;(aset skk-input-vector 42 "※")
;(aset skk-input-vector 126 "￣")
;(aset skk-input-vector 94 "〜")
;(aset skk-input-vector 40 "（")
;(aset skk-input-vector 41 "）")
;(aset skk-input-vector 59 "　")
;(aset skk-input-vector 60 "＜")
;(aset skk-input-vector 62 "＞")
;(aset skk-input-vector 44 "，")
;(aset skk-input-vector 39 "‘’")
;(aset skk-input-vector 34 "“”")

(setq skk-rom-kana-rule-list
      '(
	("*" nil "※")
        ("," nil "，")
	("^" nil "〜")
	("!" nil "！")
	("(" nil "（")
	(")" nil "）")
	("<" nil "＜")
	(">" nil "＞")
	(";" nil "　")
	("xsi" nil ("ι" . "ι"))
	("hh" "h" ("ッ" . "っ"))
        ))