Re: [Orgmode] [PATCH] Run a hook when relative timer is continued

2010-12-20 Thread Carsten Dominik 

Applied, thanks.

- Carsten

On Dec 17, 2010, at 2:41 PM, Christian Moe wrote:



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



diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index bac1187..ca0f838 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -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

--

Christian Moe
E-mail:  m...@christianmoe.com
Website: http://christianmoe.com



org-timer.el.diff___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode



___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

[Orgmode] [PATCH] Run a hook when relative timer is continued

2010-12-18 Thread Christian Moe 


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



diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index bac1187..ca0f838 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -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

--

Christian Moe
E-mail:  m...@christianmoe.com
Website: http://christianmoe.com



diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index bac1187..ca0f838 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -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
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode