Hatena::ブログ(Diary)

HM weblog

 | 

2005-11-16

正かなづかひ用の ~/.skk サンプル

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