2004/03/28
# テニス＆スキー
あまり睡眠をとらないまま，むすめにテニスを伝授するため会社のテニスコートへ。１時間半ほど付き合っただけなのに，ヘロヘロです。ほんとは今日も今シーズン４回目のスキーを計画していたのですが，ちょっと時間的にムリそうだったのでボツということに。でも，４月中にもう一度ぐらいは行きたいなあ。
# [xyzzy] weather-forecast
(defun weather ()
(interactive)
(let ((buf (create-new-buffer "*weather*")))
(set-buffer buf)
(let ((keymap (copy-keymap (local-keymap))))
(define-key keymap #\q 'close-selected-buffer)
(use-keymap keymap))
(popup-list '("愛知県" "岐阜県")
#'(lambda (x)
(weather-forecast x)
(refresh-screen)
(set-buffer-modified-p nil buf)
(toggle-read-only t)))))
して使ってみている。
コメント
トラックバック -
http://hie.s64.xrea.com/murmur/tb.cgi/20040328
