emacs-w3m (Part 2) (662ﾚｽ)
上
下
前
次
1-
新
538
(1)
:
535
2008/08/16(土)05:10
AA×
[
240
|
320
|480|
600
|
100%
|
JPG
|
べ
|
ﾚｽ栞
|
ﾚｽ消
]
538: 535 [sage] 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) やっぱ面倒だからこれで http://mevius.5ch.net/test/read.cgi/unix/1105721627/538
やっぱ面倒だからこれで
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 124 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
ぬこの手
ぬこTOP
0.055s
