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

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

Navi2ch for Emacs (Part 19)

896 :名無しさん@お腹いっぱい。:2009/10/25(日) 19:58:39
自分のinit.elにはこんなん書いてある。レスの場所でIを押せば即NG処理

(defun navi2ch-article-add-message-filter-by-id-now ()
"現在のレスのIDを即座にhide。適用範囲はboard-local。"
(interactive)
(let (match
(id (navi2ch-article-get-current-id)))
(setq match (list id 'E))
(setq match (plist-put
match
:board-id
(cdr (assq 'id navi2ch-article-current-board))))
(setq navi2ch-article-message-filter-by-id-alist
(cons (cons match 'hide)
(delq (assoc match navi2ch-article-message-filter-by-id-alist)
navi2ch-article-message-filter-by-id-alist)))
(navi2ch-auto-modify-variables (list 'navi2ch-article-message-filter-by-id-alist))
(navi2ch-article-toggle-message-filter t)
(message "ID:%s filtered" id)))

(define-key navi2ch-article-mode-map "I" 'navi2ch-article-add-message-filter-by-id-now)

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

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

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)