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

Re: Lisp banner



>>>>> In [Elips : No.0004354]
>>>>>	"Masatake YAMATO" <masata-y@is.aist-nara.ac.jp> wrote:

大和さん> (lambdaの騎士諸君)

[...乞御容赦省略乃義...]

大和さん> (http://www.aist-nara.ac.jp/~masata-y/gnu/lisp.gif)

この場合は親ページがあるから何とかなるのですが、無い場合にファイ
ルをダウンロードするためのコマンドが Emacs-W3M にありますか?
無いようでしたら関数 `w3m-download' をコマンドに仕立てておくと便
利だと思うのですが、いかがでしょう?

2001-08-10  Katsumi Yamaoka  <yamaoka@jpl.org>

	* w3m.el (w3m-download): Made it to work as a command.

--- w3m.el~	Fri Aug 10 01:18:25 2001
+++ w3m.el	Fri Aug 10 02:34:33 2001
@@ -2425,6 +2425,21 @@
     v))
 
 (defun w3m-download (url &optional filename no-cache)
+  (interactive
+   (let* ((url (w3m-input-url
+		nil
+		(when (stringp w3m-current-url)
+		  (if (string-match "about://\\(header\\|source\\)/"
+				    w3m-current-url)
+		      (substring w3m-current-url (match-end 0))
+		    w3m-current-url))))
+	  (basename (file-name-nondirectory url)))
+     (if (string-match "^[\t ]*$" basename)
+	 (error "You should specify the existing file name")
+       (list url
+	     (w3m-read-file-name (format "Download %s to: " basename)
+				 w3m-default-save-directory basename)
+	     current-prefix-arg))))
   (unless filename
     (setq filename (w3m-read-file-name nil nil url)))
   (if (w3m-retrieve url t no-cache)