Re: Forward: w3m tips

[KURODA Chihiro <chee@xxxxxxxxxxxxxx>]

黒田と申します。

;; TIPS の中身の方の話です

  Downloader for X
http://www.krasu.ru/soft/chuchelo/
  (レジューム可能なダウンローダ)を使ってみる、というのが
  便利そうだったので、少し改良して早速いただきました。

 ・ダウンロード先のディレクトリを指定可能に
 ・Emacs はその終了を待たないように(非同期化)
 ・my-をつけて別の関数に(オリジナルのもそのまま使えるように)

;; d4x でダウンロード
(defun my-w3m-download-this-url ()
  (interactive)
  (let ((url (or (w3m-anchor) (w3m-image))))
    (if url
	(let ((dir (expand-file-name "" (read-file-name "Save Directory: " w3m-default-save-directory))))
	  (call-process "d4x" nil 0 nil "--directory" dir url))
        (w3m-display-message "No URL at point"))))
;; "D" に割り当て
(add-hook 'w3m-mode-hook
          (lambda ()
	    (define-key w3m-mode-map "D" 'my-w3m-download-this-url)))


>>>>> On Mon, 22 Jul 2002 01:59:35 +0900
>>>>> Fumitoshi UKAI <ukai@debian.or.jp> wrote:

> [1  <text/plain; ISO-2022-JP (7bit)>]
> こんなメールがきました。

> [2  <message/rfc822 (7bit)>]
(snip)
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> ;; This function redefines the original w3m-download-this-url with one
> ;; that uses the 'Downolader 4 X' download manager.

> (defun w3m-download-this-url ()
>   (interactive)
>   "Download the file or the image which pointed by the link under cursor with downloader for X"
>   (let ((url (or (w3m-anchor) (w3m-image))))
>     (if url
>         (call-process "d4x" nil nil nil url)
>         (w3m-display-message "No URL at point"))))
(snip)