Re: Alarm clock for emacs

[Mathias Dahl]

Leon <sdl.web@gmail.com> writes:

> Does anyone know of an alarm clock that runs in emacs?

There is now! :) See below:

(defvar alarm-clock-timer nil
  "Keep timer so that the user can cancel the alarm")

(defun alarm-clock-message (text)
  "The actual alarm action"
  (message-box text))

(defun alarm-clock ()
  "Set an alarm.
The time format is the same accepted by `run-at-time'.  For
example \"11:30am\"."
  (interactive)
  (let ((time (read-string "Time: "))
        (text (read-string "Alarm message: ")))
    (setq alarm-clock-timer (run-at-time time nil 'alarm-clock-message text))))

(defun alarm-clock-cancel ()
  "Cancel the alarm clock"
  (interactive)
  (cancel-timer alarm-clock-timer))

It is very simple. It does not, for example, keep track of multiple
alarms so that you can cancel them individually.

/Mathias