;; -*- mode: emacs-lisp; indent-tabs-mdoe: nil; -*-
;; .skk --- SKK ユーザ設定 (正かなづかひ用)
;;;; 自動變換機能
;; デフォルトで有效。無效にしたい時は nil にする
(setq skk-auto-start-henkan t)
;; 正かなづかひでは "を" は助詞以外にも用ゐるので
;; skk-auto-start-henkan-keyword-list から "を" を取除く
(setq skk-auto-start-henkan-keyword-list
(delete "を" skk-auto-start-henkan-keyword-list))
;;;; ローマ字入力の設定
;; 大書きと小書きの設定分岐用變數(SKKが提供する變數ではない)。
;; 大書き(「datta」→「だつた」等)にする場合は nil の代りに
;; t を設定する
(setq my-skk-rom-seikana-rule-ohogaki-p nil)
;; ローマ字かな變換テーブル
(setq skk-rom-kana-rule-list
(append
(append
(if my-skk-rom-seikana-rule-ohogaki-p
;; 正かな 大書き
'(("tt" "t" ("ツ" . "つ"))
("wi" nil ("ヰ" . "ゐ"))
("we" nil ("ヱ" . "ゑ"))
("kwa" nil ("クワ" . "くわ"))
("kwe" nil ("クヱ" . "くゑ"))
("gwa" nil ("グワ" . "ぐわ"))
("gwe" nil ("グヱ" . "ぐゑ"))
("kya" nil ("キヤ" . "きや"))
("kyu" nil ("キユ" . "きゆ"))
("kyo" nil ("キヨ" . "きよ"))
("gya" nil ("ギヤ" . "ぎや"))
("gyu" nil ("ギユ" . "ぎゆ"))
("gyo" nil ("ギヨ" . "ぎよ"))
("sya" nil ("シヤ" . "しや"))
("syu" nil ("シユ" . "しゆ"))
("syo" nil ("シヨ" . "しよ"))
("sha" nil ("シヤ" . "しや"))
("shu" nil ("シユ" . "しゆ"))
("sho" nil ("シヨ" . "しよ"))
("jya" nil ("ジヤ" . "じや"))
("jyu" nil ("ジユ" . "じゆ"))
("jyo" nil ("ジヨ" . "じよ"))
("ja" nil ("ジヤ" . "じや"))
("ju" nil ("ジユ" . "じゆ"))
("jo" nil ("ジヨ" . "じよ"))
("nya" nil ("ニヤ" . "にや"))
("nyu" nil ("ニユ" . "にゆ"))
("nyo" nil ("ニヨ" . "によ"))
("hya" nil ("ヒヤ" . "ひや"))
("hyu" nil ("ヒユ" . "ひゆ"))
("hyo" nil ("ヒヨ" . "ひよ"))
("bya" nil ("ビヤ" . "びや"))
("byu" nil ("ビユ" . "びゆ"))
("byo" nil ("ビヨ" . "びよ"))
("pya" nil ("ピヤ" . "ぴや"))
("pyu" nil ("ピユ" . "ぴゆ"))
("pyo" nil ("ピヨ" . "ぴよ"))
("mya" nil ("ミヤ" . "みや"))
("myu" nil ("ミユ" . "みゆ"))
("myo" nil ("ミヨ" . "みよ"))
("rya" nil ("リヤ" . "りや"))
("ryu" nil ("リユ" . "りゆ"))
("ryo" nil ("リヨ" . "りよ")))
;; 正かな 小書き
'(("wi" nil ("ヰ" . "ゐ"))
("we" nil ("ヱ" . "ゑ"))
("kwa" nil ("クヮ" . "くゎ"))
("gwa" nil ("グヮ" . "ぐゎ"))
("kwe" nil ("クヱ" . "くゑ"))
("gwe" nil ("グヱ" . "ぐゑ"))))
;; 正かな以外の設定
'(("{" nil "『") ; デフォルトでも `z[' で出せる
("}" nil "』")
;; 常に半角
("!" nil "!")
(":" nil ":")
(";" nil ";")
("?" nil "?")
;; 全角
("z!" nil "!")
("z;" nil ";")
("z:" nil ":")
("z?" nil "?")
;; 三點リーダ
;;("_" nil "…") ; デフォルトは `z.'
))
skk-rom-kana-rule-list))
;; 「UWe」で「植ゑ」などと變換出來るやうにする爲、「ゑ」に對
;; 應する「ローマ字プレフィックス」を變更する。ついでに「ゐ」
;; に對應する物も變更。なほ skk-kana-rom-vector は
;; skk-vars.el で定義されてゐる。
(setq skk-kana-rom-vector
;; ぁ あ ぃ い ぅ う ぇ え ぉ お か が き ぎ く ぐ
["x" "a" "x" "i" "x" "u" "x" "e" "x" "o" "k" "g" "k" "g" "k" "g"
;; け げ こ ご さ ざ し じ す ず せ ぜ そ ぞ た だ
"k" "g" "k" "g" "s" "z" "s" "j" "s" "z" "s" "z" "s" "z" "t" "d"
;; ち ぢ っ つ づ て で と ど な に ぬ ね の は ば
"t" "d" "t" "t" "d" "t" "d" "t" "d" "n" "n" "n" "n" "n" "h" "b"
;; ぱ ひ び ぴ ふ ぶ ぷ へ べ ぺ ほ ぼ ぽ ま み む
"p" "h" "b" "p" "h" "b" "p" "h" "b" "p" "h" "b" "p" "m" "m" "m"
;; め も ゃ や ゅ ゆ ょ よ ら り る れ ろ ゎ わ ゐ
"m" "m" "x" "y" "x" "y" "x" "y" "r" "r" "r" "r" "r" "x" "w" "w"
;; ゑ を ん
"w" "w" "n"])
