mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-12-23 10:34:17 +00:00
Timer: Run a hook when relative timer is continued
* lisp/org-timer.el (org-timer-continue-hook): Define the variable (org-timer-pause-or-continue): Run hook after relative timer is continued There was a hook run when the relative timer is paused (and for most other actions), but none for continuing afterwards. One use for this would be to pause/continue playback in a media-player app with the same keystroke used to pause/continue the timer. TINYCHANGE Patch by Christian Moe
This commit is contained in:
parent
a43055a26f
commit
3ceee2fefe
@ -65,6 +65,9 @@ When 0, the user is prompted for a value."
|
||||
(defvar org-timer-pause-hook nil
|
||||
"Hook run before relative timer is paused.")
|
||||
|
||||
(defvar org-timer-continue-hook nil
|
||||
"Hook run after relative timer is continued.")
|
||||
|
||||
(defvar org-timer-set-hook nil
|
||||
"Hook run after countdown timer is set.")
|
||||
|
||||
@ -128,6 +131,7 @@ With prefix arg STOP, stop it entirely."
|
||||
(org-float-time org-timer-start-time))))
|
||||
org-timer-pause-time nil)
|
||||
(org-timer-set-mode-line 'on)
|
||||
(run-hooks 'org-timer-continue-hook)
|
||||
(message "Timer continues at %s" (org-timer-value-string)))
|
||||
(t
|
||||
;; pause timer
|
||||
|
Loading…
Reference in New Issue
Block a user