[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: w3m-namazu.el



From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
Subject: [emacs-w3m:01361] Re: w3m-namazu.el
Date: Thu, 02 Aug 2001 02:33:22 +0900

> >自分も少しは emacs & w3m の開発に協力しようと
> >emacs-LISPを覚えつつ、w3m-namazu.elというものを作りましたので公開します。
> 
> ソースを検討してみました。やってることは結構面白そうなのですが、マイナー
> モードとして実装されていたり、色々と趣味に合わない部分があったので、全
> 面的に書き換えてみました。
> 
マイナーモードにしていたのは、w3m-namazu-next-result などの w3m-namazu 
特有のコマンドをキーバインドするのに、w3m のメジャーモードのマップを
つぶしてしまうのはいけないと思い、直したのだと記憶しています。

かなり無理をしたコードでしたから、土屋さんが書き直して下さって、
とても見やすいコードになったと思います。

> 必要な方は CVS からどうぞ。なお、namazu.el の設定をできるだけ引き継ぐ
> ようになっていますので、namazu.el を利用されていた方はそのまま使えるは
> ずです。
> 
CVS から取って来ました。
namazu.el を引き継げるようにしてあるのは「さすが」というか...


ところで、w3m-namazu では検索するインデックスを変える時は、
C-u w3m-namazu としなければならず、私にはちょっと面倒臭い。
# 使うインデックスがころころと変わるもので、

w3m-namazu-default-index の値を nil にしておくと、
数引数を「取る時」と「取らない時」の動作を
逆にするように quick hack してみました。

コードが汚いですが、もしよろしければ、どうぞ。

                                    ----Input with T-Code!
                                 ataka@milk.freemail.ne.jp
                                Masayuki Ataka / 安宅 正之
*** w3m-namazu.el.org	Fri Aug  3 05:09:01 2001
--- w3m-namazu.el	Fri Aug  3 05:10:23 2001
***************
*** 90,98 ****
  (defcustom w3m-namazu-default-index
    (when (boundp 'namazu-default-dir)
      (symbol-value 'namazu-default-dir))
!   "*Alias or directory of the default index."
    :group 'w3m-namazu
!   :type 'string)
  
  (defcustom w3m-namazu-output-coding-system
    (if (boundp 'namazu-cs-write)
--- 90,99 ----
  (defcustom w3m-namazu-default-index
    (when (boundp 'namazu-default-dir)
      (symbol-value 'namazu-default-dir))
!   "*Alias or directory of the default index.
! If nil, `w3m-namazu' is reversed to `w3m-namazu' with prefix argument."
    :group 'w3m-namazu
!   :type '(choice string (const nil)))
  
  (defcustom w3m-namazu-output-coding-system
    (if (boundp 'namazu-cs-write)
***************
*** 190,201 ****
    "Search files with Namazu."
    (interactive
     (list
!     (if current-prefix-arg
  	(let ((s (completing-read
  		  (format "Index (default %s): " w3m-namazu-default-index)
  		  'w3m-namazu-complete-index nil t nil 'w3m-namazu-index-history)))
  	  (if (string= s "") w3m-namazu-default-index s))
!       w3m-namazu-default-index)
      (read-string "Query: " nil 'w3m-namazu-query-history)))
    (w3m-goto-url (format "about://namazu/?index=%s&query=%s&whence=0"
  			index query)))
--- 191,209 ----
    "Search files with Namazu."
    (interactive
     (list
!     (if (and current-prefix-arg w3m-namazu-default-index)
  	(let ((s (completing-read
  		  (format "Index (default %s): " w3m-namazu-default-index)
  		  'w3m-namazu-complete-index nil t nil 'w3m-namazu-index-history)))
  	  (if (string= s "") w3m-namazu-default-index s))
!       (if (and (not current-prefix-arg) (not w3m-namazu-default-index))
! 	  (let ((s (completing-read
! 		    (format "Index (default %s): " (caar w3m-namazu-index-alist))
! 		    'w3m-namazu-complete-index nil t nil 'w3m-namazu-index-history)))
! 	    (if (string= s "") (caar w3m-namazu-index-alist) s))
! 	(if w3m-namazu-default-index
! 	    w3m-namazu-default-index
! 	  (caar w3m-namazu-index-alist))))
      (read-string "Query: " nil 'w3m-namazu-query-history)))
    (w3m-goto-url (format "about://namazu/?index=%s&query=%s&whence=0"
  			index query)))