どうしても UIM + Anthy でスペース半角でないとダメなんです その2

以前のエントリで UIM + Anthy の組み合わせでスペースなどを半角で出力するように設定を行いましたが、UIM の新しいバージョンでは設定変更が変更されています。

私が今使っているものを掲載します。
以下、~/.uim です。なお行の開始が「;」になっているものはコメント扱いとなります。


(require-module "skk")
(require "japanese.scm")
(define ja-space '(" " " " " "))
(define ja-alnum-space '(" " " "))


(define ja-rk-rule-basic (append '(
  ((("(") . ()) ("(" "(" "("))
  (((")") . ()) (")" ")" ")"))
  ((("{") . ()) ("{" "{" "{"))
  ((("}") . ()) ("}" "}" "}"))
  ((("|") . ()) ("|" "|" "|"))
  ((("\\") . ()) ("\\" "\\" "\\"))
  ((("@") . ()) ("@" "@" "@"))
  ((("&") . ()) ("&" "&" "&"))
  ((("*") . ()) ("*" "*" "*"))
;  ((("!") . ()) ("!" "!" "!"))
  ((("#") . ()) ("#" "#" "#"))
  ((("+") . ()) ("+" "+" "+"))
  ((("%") . ()) ("%" "%" "%"))
  ((("`") . ()) ("`" "`" "`"))
  ((("'") . ()) ("'" "'" "'"))
  (((":") . ()) (":" ":" ":"))
  (((";") . ()) (";" ";" ";"))
  ((("\"") . ()) ("\"" "\"" "\""))
  ((("/") . ()) ("/" "/" "/"))
  ((("_") . ()) ("_" "_" "_"))
  (((">") . ()) (">" ">" ">"))
  ((("<") . ()) ("<" "<" "<"))
;  ((("?") . ()) ("?" "?" "?"))
  )
ja-rk-rule-basic))
(ja-rk-rule-update)


(define skk-ja-rk-rule (append '(
  ((("(") . ()) ("(" "(" "("))
  (((")") . ()) (")" ")" ")"))
  ((("{") . ()) ("{" "{" "{"))
  ((("}") . ()) ("}" "}" "}"))
  ((("|") . ()) ("|" "|" "|"))
  ((("\\") . ()) ("\\" "\\" "\\"))
  ((("@") . ()) ("@" "@" "@"))
  ((("&") . ()) ("&" "&" "&"))
  ((("*") . ()) ("*" "*" "*"))
;  ((("!") . ()) ("!" "!" "!"))
  ((("#") . ()) ("#" "#" "#"))
  ((("+") . ()) ("+" "+" "+"))
  ((("%") . ()) ("%" "%" "%"))
  ((("`") . ()) ("`" "`" "`"))
  ((("'") . ()) ("'" "'" "'"))
  (((":") . ()) (":" ":" ":"))
  (((";") . ()) (";" ";" ";"))
  ((("\"") . ()) ("\"" "\"" "\""))
  ((("/") . ()) ("/" "/" "/"))
  ((("_") . ()) ("_" "_" "_"))
  (((">") . ()) (">" ">" ">"))
  ((("<") . ()) ("<" "<" "<"))
;  ((("?") . ()) ("?" "?" "?"))
  )
skk-ja-rk-rule))

前回のエントリを参考に編集され、変わらないと思われた方も少数では存在すると思います。失礼しました。