[Date Prev][Date Next][Thread Prev][Thread Next][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)))