;;;; web-daily.el -- load some daily-changing pages
;;; Time-stamp: <2003-06-16 11:54:00 jcgs>

(defun web-dailies ()
  "Fetch some pages I like to look at daily."
  (interactive)
  (require 'oremus)
  (require 'bbc-news)
  (require 'weather)
  (bbc-news)
  (bbc-news-uk)
  (weather:snapshot)
  (prepare-oremus)
  )

(if (and nil 
	 w3-host
	 (fboundp 'w3-fetch))
    (let* ((today (subseq (decode-time nil) 3 6))
	   (new-day (save-window-excursion
		      (find-file "~/.latest-daily")
		      (goto-char (point-min))
		      (let ((last-time (read (current-buffer))))
			(not (equal today last-time))))))
      
      (when new-day
	(web-dailies)
	(save-window-excursion
	  (find-file "~/.latest-daily")
	  (erase-buffer)
	  (insert (format "%S" today))
	  (basic-save-buffer)
	  (bury-buffer)))))

;;; end of web-daily.el