[xyzzy:08679] Re: www-modeで半自動ダウンロード

[santarou <santarou@xxxxxxxxxxxxxxx>]

Yoshiteru Kamiyama <NCA03015@xxxxxxxxxxx> さん、こんにちは。
      On 2003/02/23 16:08:52
      "www-modeで半自動ダウンロード" 
      への返事です。

> 初歩の初歩がわからなく、料理のレシピに例えるならば
> 「しょうがひとかけ」わからないので教えて下さい。
> 
> > (while (yes-or-no-p "続ける？ ")
> >   (dotimes (i 100)
> >    (if (download-sgml) nil (setq i 99999))
> >   )
> >   ;画面をリフレッシュ
> >    )
> これはどうやって実行するのでしょうか？

あの関数を作ってらしたのでわかると思ったのですが
いろいろやり方はあると思いますが
前後で囲めば良いのではないでしょうか

(defun medicine-temp-func()
  ;insert here
)

それを
M-x eval-func RET
(medicine-temp-func)
とか

> > scan-buffer を使うとやりやすいかも
> ありがとうございます。助かります。
> 
sgmlの関数については前投稿した関数で


くぼーんさんが言ったとおり
www::--- の関数を.xyzzyとかで
強引に書き換えちゃえばいいですね。


(defun www::www-get-savename (&optional file)
  (let (savename path)
    (loop
      (setq path (merge-pathnames (or file "") *www-save-directory*))
 (setq savename (if *www-use-default-to-save-link-p* 
                     path
                     (read-file-name "Save to: " :default path)
                   ))
      (if (file-exist-p savename)
	  (when (yes-or-no-p "上書きしますか？: ~A" savename)
	    (return))
	(return)
      )
    )
    (setq *www-save-directory* (directory-namestring savename))
    savename
  ))
  
(defvar *www-use-default-to-save-link-p* t)
  
----------------------------------------------------
   |mail to      start@xxxxxxx
o-o|mail to      santarou@xxxxxxxxxxxxxxx
 * |homepage http://www.Afis.To/~start/ 
 ^ |                 TKI
----------------------------------------------------