メモ帳日記

text-adjust.el

Created Date

2007-04-04T02:50:05+09:00

Modified Date

2007-06-12T23:33:25+09:00

Category

• PC

PermaLink

http://bsakatu.s201.xrea.com/mt/2007/04/04/02-50-05

Comment

0 件

最近は全角文字と半角文字の間には半角スペースを入れるようにしている (例外もある) が、この作業はかなり面倒くさい。例えば、1にちと入力して変換すると 1日となるが、変換確定後にわざわざ戻ってから入力モードを直接入力にして、半角スペースを打ち込まなければならない。他にも、小括弧とかの非全角文字を打つときも同様だ。こんな作業は自動でできないものかと思っていたら、それを実現してくれる拡張 ELisp があった。text-adjust.el というものだ。主な機能を引用してみる。

text-adjust.el

• 半角カナ, 規格外文字を「〓」に置き換える
• 全角英数を半角にする
• 句読点を置き換える
• 全角文字と半角文字の間に空白を入れる

この拡張 ELisp、特に問題はなさそうだが、実は結構重大な問題があった。それは、句読点と小括弧などが隣接しているときにも半角スペースを挿入してしまうというものと、全角文字と半角文字が HTML タグに挟まれている場合に空白がうまく入らないというものだ。というわけで、いろいろいじくり回して実現してみた。いやあ、Emacs の正規表現は見にくくてたいへんだった。とりあえず、設定ファイルに書いた内容を書いておく。

1. ;; text-adjust
2. (load "text-adjust")
3. (setq adaptive-fill-regexp "[ \t]*")
4. (setq adaptive-fill-mode t)
5. (setq text-adjust-rule-kutouten text-adjust-rule-kutouten-zkuten)
6. (setq text-adjust-rule-space
7. '(
8. (("[])}\"'!?0-9a-zA-Z+]" " ?" "[、。，．！？」』】》’”］｝〉）〕]") "")
9. (("[、。，．「『【《‘“［｛〈（〔]" " ?" "[[({\"'0-9a-zA-Z+]") "")
10. (("\cj\|)\|\]\\|}" "" "[[{(\"'/!?0-9a-zA-Z+]") " ")
11. (("[]})\"'/!?0-9a-zA-Z+]" "" "(\\|{\\|\\[\\|\\cj") " ")
12. ))
14. (defvar text-adjust-mode-html-rule
15. '(
16. (("</[^>]*>" " ?" "[、。，．！？」』】》’”］｝〉）〕]") "")
17. (("[、。，．!?「『【《‘“［｛〈（〔]" " ?" "<[^/>]*>") "")
18. (("\\cj\\|)\\|\\]\\|}" "<[^/>]*>" "[[{(\"'0-9a-zA-Z+]") " {2}")
19. (("\\cj\\|)\\|\\]\\|}" "</[^>]*>" "[[{(\"'!?0-9a-zA-Z+]") "{2} ")
20. (("[]})/!?0-9a-zA-Z+]" "<[^/>]*>" "(\\|{\\|\\[\\|\\cj") " {2}")
21. (("[]})\"'/0-9a-zA-Z+]" "</[^>]*>" "(\\|{\\|\\[\\|\\cj") "{2} ")
22. ))
24. (setq text-adjust-mode-skip-rule
25. (list
26. (append '(sgml-mode) text-adjust-mode-html-rule)
27. (append '(html-mode) text-adjust-mode-html-rule)
28. (append '(xml-mode) text-adjust-mode-html-rule)
29. (append '(nxml-mode) text-adjust-mode-html-rule)
30. (append '(nxhtml-mode) text-adjust-mode-html-rule)
31. (append '(mapae-mode) text-adjust-mode-html-rule)
32. ))

実は、この設定をする際、text-adjust-mode-skip-rule 内で HTML や XML を編集するモードでの設定を変数にして、いっぺんに設定しようとしたんだが、はまってしまった。それもたった一文字のミス。 text-adjust-mode-skip-rule にリストを与える際に、quote してしまっていたおかげで、append とかの関数が実行されないでいた。アポストロフィを消したら想像通りの動作になったorz このミスのせいでたぶん何時間もむだになった。まあ、こうやって調べてるときが楽しいのだが。こんなことも調べまくっていたから、Lisp についてそこそこ理解できた。いつもよくわからないでコードを見ていたけど、今は少しは理解できる。