;; -*- 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"])