某 wiki で知る。ちょっといじってみたら、割と思いどおりに動いてくれたので、 スペーシングのルールだけ貼ってみる。って、そこしかいじってないです。
(defvar text-adjust-rule-space '( (("[[{(<]" "" "\\cj") "") (("\\cj" "" "[]})>]") "") (("[、。「」『』]" "" "\\ca") "") (("\\ca" "" "[、。「」『』]") "") (("\\cj" " ?" "\\ca") " ") (("\\ca" " ?" "\\cj") " ") (("\\cj\\|)" "" "[[(0-9a-zA-Z+]") " ") (("[])/!?0-9a-zA-Z+]" "" "(\\|\\cj") " ")) "置換する空白の変換ルール.")
もう一息かな。
くまくまーさんにファイナルアンサー?を頂いたので、 前に考えてたやつでチケットを切ろうかと。 test を書くのに、おぉ!というようなお題はないですかねぇ。