diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-02-20 20:31:44 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-02-20 20:31:44 +0100 |
| commit | 91f51392734aacf786a6ee67d372223b0b5aa590 (patch) | |
| tree | 3e4a2ca97cba8de125193ad4e5d6e8ef4454f08f | |
| parent | 33740c583376cb4f9020357402c3782b4f3252d0 (diff) | |
| download | org-mode-91f51392734aacf786a6ee67d372223b0b5aa590.tar.gz | |
One more hook in org-timer.el
| -rw-r--r-- | lisp/org-timer.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/org-timer.el b/lisp/org-timer.el index d2939bf..84d3255 100644 --- a/lisp/org-timer.el +++ b/lisp/org-timer.el @@ -60,6 +60,9 @@ the value of the relative timer." (defvar org-timer-set-hook nil "Hook run after countdown timer is set.") +(defvar org-timer-done-hook nil + "Hook run after countdown timer reaches zero.") + (defvar org-timer-cancel-hook nil "Hook run before countdown timer is canceled.") @@ -335,7 +338,9 @@ VALUE can be `on', `off', or `pause'." (setq timer-set t) (setq org-timer-last-timer (run-with-timer - secs nil 'org-notify (format "%s: time out" hl) t)) + secs nil '(lambda () + (org-notify (format "%s: time out" hl) t) + (run-hooks 'org-timer-done-hook)))) (set timer org-timer-last-timer) (run-hooks 'org-timer-set-hook))) '(org-timer-timer1 |