Navi2ch for Emacs (Part 18)

[0001 名無しさん＠お腹いっぱい。 2007/07/30(月) 23:56:38]

Emacsen で動く 2ch 専用ブラウザ、Navi2ch のスレッド Part 18 です。

Navi2ch Project Home Page
http://navi2ch.sourceforge.net/

*info* (navi2ch)Top
(info "navi2ch")

開発版
% cvs -z3 -d:pserver:[e-mail]:/cvsroot/navi2ch co navi2ch

過去ログ
>> ~/.navi2ch/etc.txt
> navi2ch
> http://navi2ch.sourceforge.net/log/
> navi2ch

前スレ
Navi2ch for Emacs (Part 17)
http://pc11.2ch.net/test/read.cgi/unix/1156781437/

[0265 名無しさん＠お腹いっぱい。 NG NG]

>>256
多分、今のところできないです。やってみます。

>>259
乙です。sssp がなにものか理解していませんが、気になったところを。
- (lambda (s) s) は #'identity のが速いと思います。
;; ここでは (regexp-opt navi2ch-browse-url-image-extentions) がよりよいかな。
- (concat navi2ch-directory "/sssp_icon/") は expand-file-name を。
- (setq file (match-string 1 url)) は
(setq file (expand-file-name (match-string 1 url) sssp_dir)) のほうがよいのでは?
- let* は let でいいと思います。
- buffer-read-only が nil になりっぱなしでは?
;; 戻し忘れ防止のため let で拘束してやるのがよいです。
- navi2ch-net-update-file() のとこは save-excursion を。
;; navi2ch-net-update-file() でポイントずれるのはあまりよくなさそうなので見てみます。
- "\\([^ \t\n\r]+\\.\\(" の一つめの "\\(" は必要ないのでは?

あとはぼくの趣味ですが、
- 正規表現であとから参照しない \\(\\) は \\(?:\\) にしたほうがいいかも。
- 80 桁を目安に改行したほうがいいかも。

(if (re-search-forward のとこを (while (re-search-forward にしたら全部読みそうですけど、重いかな…?
url に property をつけるあたりで image 入れてやってもいいかもしれませんね。

[0266 名無しさん＠お腹いっぱい。 NG NG]

>>256
commit しました。