2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Navi2ch for Emacs (part 7)

1 :名無しさん@お腹いっぱい。:02/09/05 22:08
Emacsen で動く 2ch 用ブラウザ、Navi2ch スレッド Part 7 です。

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

* 前スレ その6
http://pc.2ch.net/test/read.cgi/unix/1023884490/

リンク、過去スレは>>2-8あたり。

379 :名無しさん@お腹いっぱい。:02/10/09 00:53
ある特定の人が投稿したと思われるメッセージを表示させたくないので、
hack しようとしたのですが、lisp の知識がないため断念しますた。

~/.navi2ch/init.el に navi2ch-article-insert-messages をコピーしてきて

(dolist (x list)
(let ((num (car x))
(alist (cdr x)))
+(if (string-match ".*クンクン.*" (cdr (assoc 'name alist)))
+ (setq navi2ch-article-hide-mode t))

のように追加してみたのですが、うまく動作させることが出来ませんでした。
間違っていることがあれば教えてください。よろしくお願いします。


380 :名無しさん@お腹いっぱい。:02/10/09 01:00
クンクンワラタ

381 :名無しさん@お腹いっぱい。:02/10/09 01:16
>379
とりあえず navi2ch-article-filter-list を使った方がよくないかい?

382 :mami:02/10/09 01:20
>>379
こんな感じでしょうか。

(defun my-navi2ch-article-filter-kunkun ()
(goto-char (point-min))
(forward-line) ; スレタイが消えそうなので >>1 は除外。
(while (re-search-forward "^[^\(<>\)]*クンクン"
nil t)
(delete-region (progn (beginning-of-line) (point))
(progn (end-of-line) (point)))
(insert-string "あぼぼーん<>あぼぼーん<>あぼぼーん<>あぼぼーん<>"))
(goto-char (point-min)))

(setq navi2ch-article-filter-list
'(my-navi2ch-article-filter-kunkun))


383 :mami:02/10/09 01:33
>>382
rewrite しますた。
separator が <> じゃない板では試してないです。

(defun my-navi2ch-article-filter-kunkun ()
(goto-char (point-min))
(while (re-search-forward "^.*クンクン.*<>.*<>.*<>.*<>" nil t)
(delete-region (match-beginning 0) (match-end 0))
(insert-string "あぼぼーん<>あぼぼーん<>あぼぼーん<>あぼぼーん<>")))

(setq navi2ch-article-filter-list
'(my-navi2ch-article-filter-kunkun))


384 :tabmore:02/10/09 04:27
>>376
> というわけで、なっちゃいました。
> よろしくお願いしますー。

こちらこそよろしくお願いします。

早速ですが、navi2ch-jisx0213.elを消して、izonmoji-mode.elを入れました。
(require 'navi2ch-jisx0213)
していた人は、
(require 'izonmoji-mode)
(add-hook 'navi2ch-bm-mode-hook 'izonmoji-mode-on)
(add-hook 'navi2ch-article-mode-hook 'izonmoji-mode-on)
としてください。
なお、izonmoji-modeはnavi2ch以外でも使えますので使ってやって下さい。
私は (add-hook 'mew-message-mode-hook 'izonmoji-mode-on) としてます。

さらに、navi2ch-bm-insert-subjectにも変更を入れちゃいました。
izonmoji-modeを使っているときはbuffer-display-table をnilにしています。

385 :名無しさん@お腹いっぱい:02/10/09 04:45
>>378 Tnx.
今まで気付かずに感激したあまり、リターン叩くの忘れてました。(--;


386 :379:02/10/09 08:35
>>381 さん、mami さん、どうもありがとうございます。
とりあえず、パターンを2つにすることで、ほとんど排除できました。
これで Linux 板を快適に見ることが出来ます。

本当にありがとうございました。

(defun my-navi2ch-article-filter-kunkun ()
(goto-char (point-min))
(while
(or
(re-search-forward "^.*<>.*hanajan.*<>.*<>.*<>" nil t)
(re-search-forward "^.*クンクン.*<>.*<>.*<>.*<>" nil t))
(delete-region (match-beginning 0) (match-end 0))
(insert-string "あぼぼーん<>あぼぼーん<>あぼぼーん<>あぼぼーん<>")))

(setq navi2ch-article-filter-list
'(my-navi2ch-article-filter-kunkun))


341 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)