emacs-w3m (Part 2) (662ﾚｽ)
上下前次1-新

---

538(1): 535 2008/08/16(土)05:10 AAS
(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)
やっぱ面倒だからこれで

---

上下前次1-新書関写板覧索設栞歴

---

あと 124 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 1.018s*