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

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

Navi2ch for Emacs (part 8)

897 :extra:03/02/21 23:37
>>888 で取り込んだ >>790 さんの機能については、
代わりに alist に レス番号を持たせることで解決してみました。
こんな感じで使ってみてください。

(defun my-navi2ch-article-message-filter-hide-number-get (alist)
"レス番号をゲットされたレスを隠す(navi2ch-article-extension 用)。"
(let ((list '(2 3 4 5 6 7 8 9 10 100 200 300 400 500 600 700 777 800 900))
(num (cdr (assq 'number alist)));; レス番号
(body (cdr (assq 'data alist))))
(when (and (memq num list)
(string-match
(format
"\\([^0-90-9]\\|^\\)\\(%d\\|%s\\)\\([^0-90-9]\\|$\\)"
num (japanese-zenkaku (number-to-string num)))
body)
(<= (length (split-string body "^")) 1));; 1行レス
'hide)))

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

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