ddskk の mode の絶對的な切り換へ

ddskk でひらがな・カタカナ・英字を toggle ではなく絶對的に切り換へられるやうにした．
init.el 等に以下のやうに記せばよい．肝は，
・カタカナ mode, 英字 mode はそれぞれ skk-katakana, skk-latin-mode といふ變數が t になつてゐる状態と定義できる．
・ひらがな mode は單一の變數では定義できず，skk-j-mode が t かつ skk-katakana が nil の状態と定義される．
の2點．
私は dvorak 排列を使つてゐるので，keybind に登用した o, e, u は左手の home position にある．

init.el

(defun skk-hiragana-set nil
  (interactive)
  (cond (skk-katakana
     (skk-toggle-kana nil))
    (t
     (skk-kakutei))))

(defun skk-katakana-set nil
  (interactive)
  (cond (skk-katakana
     (lambda))
    (skk-j-mode
     (skk-toggle-kana nil))
    (skk-latin-mode
     (dolist (skk-kakutei (skk-toggle-kana nil))))))

(global-unset-key (kbd "C-o"))

(global-set-key (kbd "C-o o") 'skk-hiragana-set)
(global-set-key (kbd "C-o e") 'skk-katakana-set)
(global-set-key (kbd "C-o u") 'skk-latin-mode)