猫熊は燃えつきた？！日記

○ mixiの外部ブログ表示がうざったいのでどうにかしてみた その二

おぉ、ぼくと同じ思考回路だ。ぼくの場合は、emacs-w3m しかいじれないので、

(setq w3m-filter-rules
      `(...
	("\\`http://mixi\\.jp" w3m-filter-mixi)
	...
  
(defun w3m-filter-mixi (url)
  (goto-char (point-min))
  (let (newurl)
    (while (re-search-forward "<a href=view_diary\\.pl\\?url=\\([^>]+\\)>" nil t)
      (setq newurl (match-string 1))
      (when newurl
	(delete-region (match-beginning 0) (match-end 0))
	(when (string-match "&owner_id=[0-9]+\\'" newurl)
	  (setq newurl (substring newurl 0 (match-beginning 0))))
	(insert (format "<a href=\"%s\">" (w3m-url-readable-string newurl)))))))

な感じ。当然 GreaseMonkey のスクリプトもありがたく頂戴した。

○ internatinal Ispell vs GNU aspell

いまどきはみんな GNU aspell を使っているだろうし、ぼくも ispell-word や lookup の ndspell では aspell を使っている。しかし、昨日 ImageMagick 遊びをしているときに気づいたんだが、今となっては古い環境ばかりの Meadow の lookup で何の気無しに magick を引いたところ、ちゃんと ndspell から internatinal ispell 3.1.20 が動いて magic を引いてくれるのだが、apell 0.60 をしこんであるマシンでは NG だった。
気になったので調べたところ、Window 上で使っている ispell の反応は

% ispell -a -m -C
@(#) International Ispell Version 3.1.20 10/10/95
magic
*
  
magick
& magick 1 0: magic
  
magicc
& magicc 1 0: magic

aspell は

% aspell -a -m -C
@(#) International Ispell Version 3.1.20 (but really Aspell 0.60.5)
magic
*
  
magick
& magick 44 0: magi ck, magi-ck, magic, magics, magical, Mack, Magi, Magog, Mick, mack
, magi, magicked, mick, magic's, manic, Magi's, Maggi, Margi, Micki, Micky, mock, muck
, macks, micks, Mac, Mag, Maiga, Mic, mac, mag, mic, Maggie, Margie, magicking, Jack
, Marc, Mark, jack, kick, mark, mica, Mack's, Mick's, mack's, mag
  
magicc
& magicc 31 0: magi cc, magi-cc, magic, magics, Magi, Magog, magi, magic's, magical
, manic, Magi's, maniac, manioc, Maggi, Margi, Mac, Mag, Maiga, Mic, mac, mag, mic
, Maggie, Margie, Mack, Marc, Mick, mack, magicked, mica, mick, mag
  →改行は自分で入れた。

lookup のコードは読んでいないのだけど、たくさん候補が出すぎていて破綻しているとか？おそらく違うだろうけど。。。あぁ、このマシンには昔の ispell も入っているな、と試したら

% ispell -a -m -C
@(#) International Ispell Version 3.1.20 10/10/95
magic
*
  
magick
*
  
magicc
-

なんじゃこれ？知らない間に hash file が壊れたか？と思いつつ、ちょっと探して international Ispell のページを見つけて、ispell-3.3.02 を導入し、

(cond
 ((executable-find "ispell")
  (setq ndspell-ispell-program "ispell"))
 ((executable-find "aspell")
  (setq ndspell-ispell-program "aspell")))

と ispell を優先するようにしたら magick も magic に変えてくれて OK。
自宅の Windows は aspell しか入っていないから ispell 入れないとな。

○ Zaurus の aspell

逆に Zaurus には international ispell しか入れていないので、aspell のパッケージを貰ってきた。そのままだと「filter の nroff がないよ」と叱られちゃうので、~/.aspell.conf には

lang en
mode none

と書いておいた。