某 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 を書くのに、おぉ!というようなお題はないですかねぇ。