Alarm clock for emacs

Alarm clock for emacs

[Leon]

Hi there,

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

Thanks.
-- 
Leon

Re: Alarm clock for emacs

[Chris McMahan]

You might look into calendar with the diary and appointment capability.

- Chris

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

> Hi there,
>
> Does anyone know of an alarm clock that runs in emacs?
>
> Thanks.
> -- 
> Leon

-- 
     (.   .)
  =ooO=(_)=Ooo=====================================
  Chris McMahan | first_initiallastname@one.dot.net
  =================================================

Re: Alarm clock for emacs

[Leon]

Chris McMahan <first_initiallastname@one.dot.net> writes:

> You might look into calendar with the diary and appointment capability.
>
> - Chris
>
> Leon <sdl.web@gmail.com> writes:
>
>> Hi there,
>>
>> Does anyone know of an alarm clock that runs in emacs?
>>
>> Thanks.
>> -- 
>> Leon

Eric Hanchrow has pointed me to appt-add. But he didn't cc to this
group.

Thanks.
-- 
Leon

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

Re: Alarm clock for emacs

[Leon]

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

Re: Alarm clock for emacs

[B. T. Raven]

"Mathias Dahl" <brakjoller@gmail.com> wrote in message
news:uzmfzgdo9.fsf@gmail.com...
> 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

You can also add (ding) or (beep) before the (message-box text) but
apparenty not repeated beeps. Does anyone know of some way of doing this
(... while some-condition obtains [the message-box not closed] issue
repeated sounds). In 22.0 there is play-sound and play-sound-file but not
in 21.3.

Thanks,

Ed.

Re: Alarm clock for emacs

[Dieter Wilhelm]

Mathias Dahl <brakjoller@gmail.com> writes:

> Leon <sdl.web@gmail.com> writes:
>
>> Does anyone know of an alarm clock that runs in emacs?

See Appointments in the Emacs info Calendar/Diary node.

> 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))

Nice to see how this can be done.

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

appt does it for you

M-x appt-activate
M-x appt-add
M-x appt-delete

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany