emacs-w3m (Part 2) (662レス)
emacs-w3m (Part 2) http://mevius.5ch.net/test/read.cgi/unix/1105721627/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
535: 名無しさん@お腹いっぱい。 [sage] 2008/08/13(水) 19:47:04 anything.elとmigemoを使って似たようなの作ったよ http://mevius.5ch.net/test/read.cgi/unix/1105721627/535
536: 534 [sage] 2008/08/14(木) 16:57:02 >>535 ありがとうございます。 いま、wthreem-type-ahead.el をいじってみているのですが、ちょっと難儀なところが… これを機会に、anything.el の勉強してみます。 http://mevius.5ch.net/test/read.cgi/unix/1105721627/536
537: 535 [sage] 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よりは使い勝手はいいと思う http://mevius.5ch.net/test/read.cgi/unix/1105721627/537
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
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.042s