2004/03/28
# テニス&スキー
あまり睡眠をとらないまま,むすめにテニスを伝授するため会社のテニスコートへ。1時間半ほど付き合っただけなのに,ヘロヘロです。ほんとは今日も今シーズン4回目のスキーを計画していたのですが,ちょっと時間的にムリそうだったのでボツということに。でも,4月中にもう一度ぐらいは行きたいなあ。
# [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