[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Alarm clock for emacs
From: |
Leon |
Subject: |
Re: Alarm clock for emacs |
Date: |
Tue, 27 Jun 2006 13:57:48 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3 (gnu/linux) |
Mathias Dahl <brakjoller@gmail.com> writes:
> 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
Emacs hackers are cool. Thanks Mathias.
This is a nice example for me to learn elisp.
--
Leon