tea (was: multithreading in Elisp?)

[lawrence mitchell <wence@gmx.li>]

Michael M Mason wrote:

[...]

> Being a Brit, I couldn't help noticing the rather serious bug in the
> above code snippet.  I hope you won't mind me offering an improved
> version:-

This one looks more reasonable,  I notice you slow down in the
afternoon though.  Is this a bug?

> (defun tea-time ()
>   (message "It's time for tea!"))
> (run-at-time "9:30am" nil 'tea-time)
> (run-at-time "10:00am" nil 'tea-time)
> (run-at-time "11:00am" nil 'tea-time)
> (run-at-time "11:30am" nil 'tea-time)
> (run-at-time "12:00am" nil 'tea-time)
> (run-at-time "1:00pm" nil 'tea-time)
> (run-at-time "2:00pm" nil 'tea-time)
> (run-at-time "3:00pm" nil 'tea-time)
> (run-at-time "3:30pm" nil 'tea-time)
> (run-at-time "4:00pm" nil 'tea-time)
> (run-at-time "5:00pm" nil 'tea-time)

This of course, may be simplified to
(run-at-time "9:30am" (* 30 60) 'tea-time)

You missed one:
(defun close-of-play (&optional reason)
  (call-stumps)
  (run-hooks 'close-of-play-hooks)
  (and reason (message "%s stopped play." reason)))

(if rain-stopped-play
    (close-of-play "Rain")
    (run-at-time "6:00pm" nil 'close-of-play))

HTH
-- 
lawrence mitchell <wence@gmx.li>