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)