;;;; savers2/weather.el
;;; Time-stamp: <2003-04-19 16:36:05 jcgs>

; save the weather

(require 'save-emacs-state)

(defun save-weather ()
  "Write the weather history."
  (interactive)
  (if (and (boundp 'weather:snapshots)
	   weather:snapshots)
      (save-list-to-file "weather.el" 
			 'weather:snapshots 
			 (lambda (w) (insert (format "  %S\n" w))))))

(save-weather)