ffap-url-at-point

[Keisuke Nishida <kxn30@xxxxxxxxxxx>]

こんにちは、西田です。Lookup という辞書検索ソフトの作者です。

今更ながらに w3m.el を使い始めました。これは便利ですね!
いろいろいじりたいんですけど、開発に加えてもらえませんか?

とりあえず手土産(?)として、M-x w3m したときのカーソル位置に
URL があるときには、それをデフォルトとして表示するようにして
みました。(ffap-url-at-point を利用)

あと、何も入力がないときには w3m-home-page に飛ぶようになって
いるようですが、何も表示されないのは不親切なように思うので、
"(default ...)" として表示するようにしてみました。

うーん、このソフトは自分の favorite に加わりそうです :)

-- Kei

------------------------------------------------------------------------
--- w3m.el.~1.46.~	Fri Mar  2 03:12:09 2001
+++ w3m.el	Sat Mar  3 01:50:25 2001
@@ -51,6 +51,8 @@
 (if (featurep 'xemacs)
     (require 'poem))
 
+(require 'ffap)
+
 (unless (fboundp 'find-coding-system)
   (if (fboundp 'coding-system-p)
       (defsubst find-coding-system (obj)
@@ -570,9 +572,12 @@
     (mapatoms (lambda (x)
 		(setq candidates (cons (cons (symbol-name x) x) candidates)))
 	      w3m-backlog-hashtb)
-    (setq url (completing-read (or prompt "URL: ")
-			       candidates nil nil
-			       default 'w3m-input-url-history))
+    (setq default (or default (ffap-url-at-point)))
+    (setq prompt (or prompt
+		     (if default "URL: "
+		       (format "URL (default %s): " w3m-home-page))))
+    (setq url (completing-read prompt candidates nil nil default
+			       'w3m-input-url-history w3m-home-page))
     ;; remove duplication
     (setq w3m-input-url-history (cons url (delete url w3m-input-url-history)))
     ;; return value
@@ -1556,9 +1561,7 @@
       (w3m-mode))
   (setq mode-line-buffer-identification
 	(list "%b" " / " 'w3m-current-title))
-  (if (string= url "")
-      (w3m-goto-url w3m-home-page)
-    (w3m-goto-url url))
+  (w3m-goto-url url)
   (switch-to-buffer (current-buffer))
   (run-hooks 'w3m-hook))