Re: w3m-namazu.el

[Masayuki Ataka <ataka@xxxxxxxxxxxxxxxxxxx>]

From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
Subject: [emacs-w3m:01379] Re: w3m-namazu.el
Date: 03 Aug 2001 11:23:33 +0900

> >マイナーモードにしていたのは、w3m-namazu-next-result などの w3m-namazu 
> >特有のコマンドをキーバインドするのに、w3m のメジャーモードのマップを
> >つぶしてしまうのはいけないと思い、直したのだと記憶しています。
> 
> しまった、そんな意図があったのですか。すっかり、見落としてましたね。
> ちょっと考えます。
> 
> # 多分、<link> タグに対する対応をうまく仕込むと、希望の操作ができるよ
> # うになるだろうと考えています。
> 
<link> タグに対応したブラウザーをまだ知らないので、
emacs-w3m がそれを実現してくれると嬉しいです。

でも、w3m-namazu で使う為には、
namazu の html 出力を変えないといけないから、
namazu 本体に手を入れなければいけないのかもしれませんね。


新しい w3m-namazu になって <次/前> の検索結果を
見る為のコマンドが無くなったので、ちょっと作ってみました。
<link> に対応するまだの暫定的なコマンドでしょうか。

適当なキーにバインドして使えるかと思います。

                                    ----Input with T-Code!
                                 ataka@milk.freemail.ne.jp
                                Masayuki Ataka / 安宅 正之

*** w3m-namazu.el.org	Sat Aug  4 03:53:28 2001
--- w3m-namazu.el	Sat Aug  4 03:53:19 2001
***************
*** 218,222 ****
--- 218,248 ----
    (w3m-goto-url (format "about://namazu/?index=%s&query=%s&whence=0"
  			index query)))
  
+ (defun w3m-namazu-step-result (arg)
+   (let* 
+       ((num (+ 8 (string-match "\\&whence=" w3m-current-url)))
+        (url (substring w3m-current-url 0 num))
+        (whence (+ (* arg w3m-namazu-page-max)
+ 		  (string-to-number (substring w3m-current-url num)))))
+     (if (>= whence 0)
+ 	(w3m-goto-url (format "%s%d" url whence))
+       (message "No previous index."))))
+ 
+ (defun w3m-namazu-next-result (&optional arg)
+   "Display next result."
+   (interactive "P")
+   (if (null arg)
+       (setq arg 1))
+   (w3m-namazu-step-result arg))
+ 
+ (defun w3m-namazu-previous-result (&optional arg)
+   "Display previous result."
+   (interactive "P")
+   (if (null arg)
+       (setq arg -1)
+     (setq arg (- arg)))
+   (w3m-namazu-step-result arg))
+ 
+ 
  (provide 'w3m-namazu)
  ;;; w3m-namazu.el ends here