w3m.elってどうよ?

このエントリーをはてなブックマークに追加
723 ◆Ir5kue8F32
一度、navi2ch を起動してからじゃないと使えないけど
(defadvice w3m-view-this-url (around 2ch activate compile)
(if (require 'navi2ch nil t)
(let ((url (w3m-anchor)))
(if (navi2ch-2ch-url-p url)
(navi2ch-goto-url url)
ad-do-it))
ad-do-it))
(defun w3m-search-2ch ()
(interactive)
(require 'w3m-search)
(let ((w3m-search-default-engine "2ch"))
(call-interactively 'w3m-search)))
(eval-after-load "w3m-search"
'(push '("2ch" "http://find.2ch.net/?BBS=ALL&TYPE=TITLE&STR=%s&COUNT=10"
japanese-iso-8bit) w3m-search-engine-alist))
(eval-after-load "w3m"
'(push `(w3m-relationship-simple-estimate
"\\`http://find\\.2ch\\.net/\\?"
,(concat "<a href=" w3m-html-string-regexp ">前へ</a>")
,(concat "<a href=" w3m-html-string-regexp ">次へ</a>")
nil nil)
w3m-relationship-estimate-rules))
(global-set-key "\C-c2" 'w3m-search-2ch)
724 ◆Ir5kue8F32 :04/03/19 04:34
失礼
,(concat "<a href=" w3m-html-string-regexp ">前へ</a>")

,(concat "<a href=" w3m-html-string-regexp ">次へ</a>")
の順番が逆でした。
emacs-w3m を使って 2ch のスレ検索して、navi2ch で見る(゜д゜)ウマー