Re: [bep] weather

[Koichi INOUE <inoue@argv.org>]

井上@高橋さんにはLisp書きになってもらおうの会会長です。

# これからmewのマークで声を変える部分をいじります。

Reiko TAKAHASHI <HFC03614@...> (高橋玲子) writes:

> 　ものすごいとんちんかんだったら申し訳ないのですが、ヘッダではないところ
> にお天気を入れる方法もあるのでしょうか？
> （もしかして、最後とかに入れることもできるのかなと思って……）

こんなのでどうでしょう。.emacsに追記亜してみてください。
ただしこれだと、mewがメールを送信しようとしてreally send this message?と
聞かれて、yと答えた後にしか挿入されない雰囲気なのでうれしくないかも知れ
ませんが。
後、最後に、カーソル位置に天気を挿入するコマンドをつけてみました。
M-x weather-insert-here
なんかweather本体になさげだったので。

# さて、これを読んで理解してみましょう（笑）


----ここから
(add-hook 'mew-make-message-hook
	  (function (lambda ()
		      (save-excursion
			(goto-char (point-max))
			(insert
			 (format "お天気: %s"
				 (weather-from-http "東京地方")))
			)
)))
(defun weather-insert-here ()
  (interactive)
  (insert (weather-from-http)))
----ここまで

-- 
                    Koichi Inoue, ARGV
                    E-Mail: inoue@...
                    ICQ UIN: 74900690