[xyzzy:08679] Re: www-modeで半自動ダウンロード
- Subject: [xyzzy:08679] Re: www-modeで半自動ダウンロード
- From: santarou <santarou@xxxxxxxxxxxxxxx>
- X-mailer: Becky! ver. 2.05.06
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
----------------------------------------------------