emacs-w3m (Part 2)

**名無しさん＠お腹いっぱい。** · NG

Emacsen 上で動く web ブラウザ、emacs-w3m スレッド Part 2 です。

* emacs-w3m
http://emacs-w3m.namazu.org/

* 前スレ w3m.elってどうよ？
http://pc5.2ch.net/test/read.cgi/unix/1013710106/

* 動かないんですけど。
http://www.jpl.org/elips/BUGS-ja.html

**535** · 2008/08/15(金) 19:52:09

(progn
(with-current-buffer (get-buffer-create "*anythign-c-w3m-anchor*")
(erase-buffer)
(insert (shell-command-to-string (format "echo '%s'|base64 -d|gzip -d"
"H4sIAHRdpUgCA51VwXLjIAy99ys0vhTPLJmd6bV73t9YArLNFIMLOG7+vsLUaycliXe5mZGenp4e
MvP4PmqP8CzsOXbatvUTE0rxzrk3eJ5eem6cyJ9P8PcwI/qjEsDqzSVdD9619uKKLhU2o4UFn0ue
UFuMXFjZOR+uUeakSceOy9F7tJEfx6ZBv4G4uP+WTOlBnJDjBwUG7WwhgmJaFx2XnfDE22mC67Wt
63KscW6AxAkGjyf4BT+LcflMnTYI7DXHZvAbwMtR7ks8oo7x/R8yt5olXVNTFj8Wde9mTx1SwTk6
kK4GOXEY0Mdz0sW2uFDITsiIPJBl0Eq8z0s6Y1BGYNLZsK8DlufJw3gM0ROhvY1nknuj/7vfnRWW
saVz/Rbm4W6eQnCjl8jXat9K/GHMih7hAJWoSgyYFFZpJSIGCrr9zIq5vYiyo7QfzOhAw9INsObo
RquGdSXwPA0+B/P5Zfa6xd7tlfwx0t7ZLXtH1qTlBmvtexAxorcgS/rPGEJG2gnUNGPVb3oukAWq
HnA4rNWHPY1v9stQ58d50jhxohn46E39yE9f7BJCBYedCl2olOpuWZQ9ebWfVy8WFzNZG32S8FRY
AMwgmYit457tTRt+dtc939+a1fJXKtLWFvkbniHB9E4heWGAqqk2httUuAKweh7BJ6F/Je0CBwAA")))
(display-buffer (current-buffer))))

どぞー(要anything.el)
上の式を評価したらコードがでてくる筈なんで(要base64, gzip)そいつを保存して
w3m起動前に読みこんでやればw3m-modeでfキーを押せばそれっぽいのがでてくる筈
anything-migemo.elがあればmigemoで絞れるから日本語ページでさらに便利になる
少なくともwthreem-type-ahead.elよりは使い勝手はいいと思う

**535** · 2008/08/16(土) 05:10:03

(require 'anything)
(require 'anything-migemo nil t)
(defun anything-c-w3m-get-anchors ()
(with-current-buffer anything-current-buffer (save-excursion
(goto-char (point-min))
(loop while (w3m-goto-next-anchor)
when (next-single-property-change (point) 'w3m-anchor-sequence)
collect (cons
(buffer-substring (point) (next-single-property-change (point) 'w3m-anchor-sequence))
(point))))))
(defvar anything-c-source-w3m-anchor
`((name . "a")
(candidates . anything-c-w3m-get-anchors)
(match . ,(list (if (fboundp 'anything-string-match-with-migemo)
'anything-string-match-with-migemo
(lambda (c) (string-match anything-pattern c)))))
(action . (("Goto anchor" . (lambda (p) (goto-char p) (w3m-view-this-url)))
("Goto char" . (lambda (p) (goto-char p)))))))
(defun anything-w3m-anchor ()
(interactive)
(let ((anything-sources (list (if (and (fboundp 'anything-string-match-with-migemo))
(cons (cons 'match '(anything-string-match-with-migemo))
(remove-if (lambda (e) (eq 'match (car e))) anything-c-source-w3m-anchor))
anything-c-source-w3m-anchor)))) (anything)))
;; (define-key w3m-mode-map "f" 'anything-w3m-anchor)
やっぱ面倒だからこれで