[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Alarm clock for emacs

From: Mathias Dahl
Subject: Re: Alarm clock for emacs
Date: Tue, 27 Jun 2006 11:17:58 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (windows-nt)

Leon <> 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\"."
  (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"
  (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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]