Re: Relative clocking [Further discussion and ideas by OP]

Re: Relative clocking [Further discussion and ideas by OP]

[Alan E. Davis]

[-- Attachment #1.1: Type: text/plain, Size: 1454 bytes --]

I have looked at the list archives, and discovered some previous postings on
a similar topic, about "elapsed time."  Perhaps I can be more specific.

On Mon, Nov 24, 2008 at 12:01 PM, Alan E. Davis <lngndvs@gmail.com> wrote:

> I have been taking notes on videos, and need a relative clock function,
> starting when I start the film.


A post by Adam Speirs made a useful suggestion in response to a question by
Alan Dove:

    http://lists.gnu.org/archive/html/emacs-orgmode/2007-07/msg00338.html

In particular, he posted three functions.  I have gotten them to work, they
are simple.  I am uncertain how they interact with Org Mode, whether they
work in a harmonious fashion with the clocking code in org mode.  I didn't
figure out how to turn off the clock!   So I rebooted when I needed to
restart.  I could edit his functions and insert exactly what I need.

I liked them because they don't require me to diddle around with properties
and drawers, with which I am yet somewhat uncomfortable.

A further suggestion is born or my initial experiment with his function: I
started the clock a bit too late, so all the timestamps are off by about
30-40 seconds.  Is it (at least in theory) possible to adjust all time
stamps in a subtree by the same amount?  That would enable me to correct all
of my notes in one fell stroke.

Thank you.

Alan



-- 
Alan Davis

"It's never a matter of liking or disliking ..."
      ---Santa Ynez Chumash Medicine Man

[-- Attachment #1.2: Type: text/html, Size: 2051 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Carsten Dominik]

[-- Attachment #1.1: Type: text/plain, Size: 1970 bytes --]


On Nov 24, 2008, at 8:47 AM, Alan E. Davis wrote:

> I have looked at the list archives, and discovered some previous  
> postings on a similar topic, about "elapsed time."  Perhaps I can be  
> more specific.
>
> On Mon, Nov 24, 2008 at 12:01 PM, Alan E. Davis <lngndvs@gmail.com>  
> wrote:
> I have been taking notes on videos, and need a relative clock  
> function, starting when I start the film.
>
> A post by Adam Speirs made a useful suggestion in response to a  
> question by Alan Dove:
>
>     http://lists.gnu.org/archive/html/emacs-orgmode/2007-07/msg00338.html
>
> In particular, he posted three functions.  I have gotten them to  
> work, they are simple.  I am uncertain how they interact with Org  
> Mode, whether they work in a harmonious fashion with the clocking  
> code in org mode.

Times inserted like this will not interact with the clocking
feature - probably just what you want in this case.

>   I didn't figure out how to turn off the clock!   So I rebooted  
> when I needed to restart.  I could edit his functions and insert  
> exactly what I need.


Why would you want to turn off the clock?  It is actually
not running, only a starting time is recorded.  Just "start"
it again when you need a new clock.

> I liked them because they don't require me to diddle around with  
> properties and drawers, with which I am yet somewhat uncomfortable.

I agree, for this application you don't want this.  Just a hot key to  
insert the time,
or even a full headline or plain list item with the time included.

> A further suggestion is born or my initial experiment with his  
> function: I started the clock a bit too late, so all the timestamps  
> are off by about 30-40 seconds.  Is it (at least in theory) possible  
> to adjust all time stamps in a subtree by the same amount?  That  
> would enable me to correct all of my notes in one fell stroke.

Of course this is possible, but code for that would need to be written.

- Carsten


[-- Attachment #1.2: Type: text/html, Size: 3044 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Alan E. Davis]

[-- Attachment #1.1: Type: text/plain, Size: 908 bytes --]

Thank you for the reply.

On Mon, Nov 24, 2008 at 8:30 PM, Carsten Dominik <dominik@science.uva.nl>wrote:

> Why would you want to turn off the clock?  It is actually
> not running, only a starting time is recorded.  Just "start"
> it again when you need a new clock.
>

Perfect!  Thank you.

>
>
> A further suggestion is born or my initial experiment with his function: I
> started the clock a bit too late, so all the timestamps are off by about
> 30-40 seconds.  Is it (at least in theory) possible to adjust all time
> stamps in a subtree by the same amount?  That would enable me to correct all
> of my notes in one fell stroke.
>
>
> Of course this is possible, but code for that would need to be written.
>
>

I have written some elisp, not alot.  May I request a clue where to start?

Alan



-- 
Alan Davis

"It's never a matter of liking or disliking ..."
      ---Santa Ynez Chumash Medicine Man

[-- Attachment #1.2: Type: text/html, Size: 1682 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Carsten Dominik]

[-- Attachment #1.1: Type: text/plain, Size: 2702 bytes --]


On Nov 24, 2008, at 9:31 PM, Alan E. Davis wrote:

> Thank you for the reply.
>
> On Mon, Nov 24, 2008 at 8:30 PM, Carsten Dominik <dominik@science.uva.nl 
> > wrote:
> Why would you want to turn off the clock?  It is actually
> not running, only a starting time is recorded.  Just "start"
> it again when you need a new clock.
>
> Perfect!  Thank you.
>
>> A further suggestion is born or my initial experiment with his  
>> function: I started the clock a bit too late, so all the timestamps  
>> are off by about 30-40 seconds.  Is it (at least in theory)  
>> possible to adjust all time stamps in a subtree by the same  
>> amount?  That would enable me to correct all of my notes in one  
>> fell stroke.
>
> Of course this is possible, but code for that would need to be  
> written.
>
>
> I have written some elisp, not alot.  May I request a clue where to  
> start?

Well write a function searching for the strings and change them... :-)

Something like this (untested) might do it.  These functions
handle negative times, so you can also use this to change
the timings relative to the beginning of a scene, so that a prelude
to a scene might be at negative times.....:

(defun my-change-times-in-region (beg end delta)
   "Change all h:mm:ss time in region by a DELTA."
   (interactive "r\nsEnter time difference like \"-1:08:26\" or  
\"0:00:25\": ")
   (let ((re "[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}")
	(delta (my-hms-to-secs delta))
	old new p)
     (when (= delta 0) (error "No change"))
     (save-excursion
       (goto-char end)
       (while (re-search-backward re beg t)
	(setq p (point))
	(replace-match
	 (save-match-data
	   (my-secs-to-hms (+ (my-hms-to-secs (match-string 0)) delta)))
	 t t)
	(goto-char p)))))

(defun my-hms-to-secs (hms)
   "Convert h:mm:ss string to an integer time.
If the string starts with a minus sign, the integer will be negative."
   (if (not (string-match
	    "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)"
	    hms))
       0
     (let* ((h (string-to-int (match-string 1 hms)))
	   (m (string-to-int (match-string 2 hms)))
	   (s (string-to-int (match-string 3 hms)))
	   (sign (equal (substring (match-string 1 hms) 0 1) "-")))
       (setq h (abs h))
       (* (if sign -1 1) (+ s (* 60 (+ m (* 60 h))))))))

(defun my-secs-to-hms (s)
   "Convert integer S into h:mm:ss.
If the integer is negative, the strig will start with \"-\"."
   (let (sign m h)
     (setq sign (if (< s 0) "-" "")
	  s (abs s)
	  m (/ s 60) s (- s (* 60 m))
	  h (/ m 60) m (- m (* 60 h)))
     (format "%s%d:%02d:%02d" sign h m s)))

HTH

- Carsten


Hmmm, looks useful to me also for general note taking, maybe
I can add something linke this to Org....


[-- Attachment #1.2: Type: text/html, Size: 5443 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Alan E. Davis]

[-- Attachment #1.1: Type: text/plain, Size: 3320 bytes --]

You may understand that I was already looking at the idea of converting
integer times back and forth to/from  hh:mm:ss.  Your functions look
extremely interesting.

I am trying to write a function to start the clock at a specific point in
time.  This could be useful when restarting or continuing a video, and
continuing notes.

Thank you again,

Alan

On Tue, Nov 25, 2008 at 5:07 PM, Carsten Dominik <dominik@science.uva.nl>wrote:

>
> On Nov 24, 2008, at 9:31 PM, Alan E. Davis wrote:
>
> Thank you for the reply.
>
> On Mon, Nov 24, 2008 at 8:30 PM, Carsten Dominik <dominik@science.uva.nl>wrote:
>
>> Why would you want to turn off the clock?  It is actually
>> not running, only a starting time is recorded.  Just "start"
>> it again when you need a new clock.
>>
>
> Perfect!  Thank you.
>
>>
>>
>> A further suggestion is born or my initial experiment with his function: I
>> started the clock a bit too late, so all the timestamps are off by about
>> 30-40 seconds.  Is it (at least in theory) possible to adjust all time
>> stamps in a subtree by the same amount?  That would enable me to correct all
>> of my notes in one fell stroke.
>>
>>
>> Of course this is possible, but code for that would need to be written.
>>
>>
>
> I have written some elisp, not alot.  May I request a clue where to start?
>
>
> Well write a function searching for the strings and change them... :-)
>
> Something like this (untested) might do it.  These functions
> handle negative times, so you can also use this to change
> the timings relative to the beginning of a scene, so that a prelude
> to a scene might be at negative times.....:
>
> (defun my-change-times-in-region (beg end delta)
>   "Change all h:mm:ss time in region by a DELTA."
>   (interactive "r\nsEnter time difference like \"-1:08:26\" or \"0:00:25\":
> ")
>   (let ((re "[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}")
> (delta (my-hms-to-secs delta))
> old new p)
>     (when (= delta 0) (error "No change"))
>     (save-excursion
>       (goto-char end)
>       (while (re-search-backward re beg t)
> (setq p (point))
> (replace-match
>  (save-match-data
>    (my-secs-to-hms (+ (my-hms-to-secs (match-string 0)) delta)))
>  t t)
> (goto-char p)))))
>
> (defun my-hms-to-secs (hms)
>   "Convert h:mm:ss string to an integer time.
> If the string starts with a minus sign, the integer will be negative."
>   (if (not (string-match
>     "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)"
>     hms))
>       0
>     (let* ((h (string-to-int (match-string 1 hms)))
>    (m (string-to-int (match-string 2 hms)))
>    (s (string-to-int (match-string 3 hms)))
>    (sign (equal (substring (match-string 1 hms) 0 1) "-")))
>       (setq h (abs h))
>       (* (if sign -1 1) (+ s (* 60 (+ m (* 60 h))))))))
>
> (defun my-secs-to-hms (s)
>   "Convert integer S into h:mm:ss.
> If the integer is negative, the strig will start with \"-\"."
>   (let (sign m h)
>     (setq sign (if (< s 0) "-" "")
>   s (abs s)
>   m (/ s 60) s (- s (* 60 m))
>   h (/ m 60) m (- m (* 60 h)))
>     (format "%s%d:%02d:%02d" sign h m s)))
>
> HTH
>
> - Carsten
>
>
> Hmmm, looks useful to me also for general note taking, maybe
> I can add something linke this to Org....
>
>


-- 
Alan Davis

"It's never a matter of liking or disliking ..."
      ---Santa Ynez Chumash Medicine Man

[-- Attachment #1.2: Type: text/html, Size: 6070 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Carsten Dominik]

[-- Attachment #1.1: Type: text/plain, Size: 5050 bytes --]

Hi Alan,

I have added such a timer to Org-mode, if you get the latest git  
release, you can use it.

Here is the documentation for it:


               New relative timer to support timed notes
               =========================================

Author: Carsten Dominik <carsten at orgmode dot org>
Date: 2008-11-25 12:28:50 CET


     Org now supports taking timed notes, useful for example while
     watching a video, or during a meeting which is also recorded.

     - `C-c C-x .' ::
       Insert a relative time into the buffer.  The first time
       you use this, the timer will be started.  When called
       with a prefix argument, the timer is reset to 0.

     - `C-c C-x -' ::
       Insert a description list item with the current relative
       time.  With a prefix argument, first reset the timer to 0.

     - `C-c C-x 0' ::
       Reset the timer without inserting anything into the buffer.
       By default, the timer is reset to 0.  When called with a
       `C-u' prefix, reset the timer to specific starting
       offset.  The user is prompted for the offset, with a
       default taken from a timer string at point, if any, So this
       can be used to restart taking notes after a break in the
       process.  When called with a double prefix argument
       `C-c C-u', change all timer strings in the active
       region by a certain amount.  This can be used to fix timer
       strings if the timer was not started at exactly the right
       moment.

     Thanks to Alan Dove, Adam Spiers, and Alan Davis for
     contributions to this idea.



On Nov 25, 2008, at 9:08 AM, Alan E. Davis wrote:

> You may understand that I was already looking at the idea of  
> converting integer times back and forth to/from  hh:mm:ss.  Your  
> functions look extremely interesting.
>
> I am trying to write a function to start the clock at a specific  
> point in time.  This could be useful when restarting or continuing a  
> video, and continuing notes.
>
> Thank you again,
>
> Alan
>
> On Tue, Nov 25, 2008 at 5:07 PM, Carsten Dominik <dominik@science.uva.nl 
> > wrote:
>
> On Nov 24, 2008, at 9:31 PM, Alan E. Davis wrote:
>
>> Thank you for the reply.
>>
>> On Mon, Nov 24, 2008 at 8:30 PM, Carsten Dominik <dominik@science.uva.nl 
>> > wrote:
>> Why would you want to turn off the clock?  It is actually
>> not running, only a starting time is recorded.  Just "start"
>> it again when you need a new clock.
>>
>> Perfect!  Thank you.
>>
>>> A further suggestion is born or my initial experiment with his  
>>> function: I started the clock a bit too late, so all the  
>>> timestamps are off by about 30-40 seconds.  Is it (at least in  
>>> theory) possible to adjust all time stamps in a subtree by the  
>>> same amount?  That would enable me to correct all of my notes in  
>>> one fell stroke.
>>
>> Of course this is possible, but code for that would need to be  
>> written.
>>
>>
>> I have written some elisp, not alot.  May I request a clue where to  
>> start?
>
> Well write a function searching for the strings and change them... :-)
>
> Something like this (untested) might do it.  These functions
> handle negative times, so you can also use this to change
> the timings relative to the beginning of a scene, so that a prelude
> to a scene might be at negative times.....:
>
> (defun my-change-times-in-region (beg end delta)
>   "Change all h:mm:ss time in region by a DELTA."
>   (interactive "r\nsEnter time difference like \"-1:08:26\" or  
> \"0:00:25\": ")
>   (let ((re "[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}")
> 	(delta (my-hms-to-secs delta))
> 	old new p)
>     (when (= delta 0) (error "No change"))
>     (save-excursion
>       (goto-char end)
>       (while (re-search-backward re beg t)
> 	(setq p (point))
> 	(replace-match
> 	 (save-match-data
> 	   (my-secs-to-hms (+ (my-hms-to-secs (match-string 0)) delta)))
> 	 t t)
> 	(goto-char p)))))
>
> (defun my-hms-to-secs (hms)
>   "Convert h:mm:ss string to an integer time.
> If the string starts with a minus sign, the integer will be negative."
>   (if (not (string-match
> 	    "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)"
> 	    hms))
>       0
>     (let* ((h (string-to-int (match-string 1 hms)))
> 	   (m (string-to-int (match-string 2 hms)))
> 	   (s (string-to-int (match-string 3 hms)))
> 	   (sign (equal (substring (match-string 1 hms) 0 1) "-")))
>       (setq h (abs h))
>       (* (if sign -1 1) (+ s (* 60 (+ m (* 60 h))))))))
>
> (defun my-secs-to-hms (s)
>   "Convert integer S into h:mm:ss.
> If the integer is negative, the strig will start with \"-\"."
>   (let (sign m h)
>     (setq sign (if (< s 0) "-" "")
> 	  s (abs s)
> 	  m (/ s 60) s (- s (* 60 m))
> 	  h (/ m 60) m (- m (* 60 h)))
>     (format "%s%d:%02d:%02d" sign h m s)))
>
> HTH
>
> - Carsten
>
>
> Hmmm, looks useful to me also for general note taking, maybe
> I can add something linke this to Org....
>
>
>
>
> -- 
> Alan Davis
>
> "It's never a matter of liking or disliking ..."
>       ---Santa Ynez Chumash Medicine Man
>


[-- Attachment #1.2: Type: text/html, Size: 8790 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Charles Sebold]

[-- Attachment #1: Type: text/plain, Size: 367 bytes --]

On 25 Nov 2008, Carsten Dominik wrote:

> I have added such a timer to Org-mode, if you get the latest git
> release, you can use it.

I include a quick patch to what I just checked out, to fix an extra
parenthesis:
-- 
Charles Sebold                                    25th of November, 2008
 GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600) | Gnus v5.11 | org-mode 6.13a
 

[-- Attachment #2: Diff to fix extra parenthesis in org-timer --]
[-- Type: text/plain, Size: 495 bytes --]

Changes in master
	Modified lisp/org-timer.el
diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index 8ecfebd..34fab12 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -90,7 +90,7 @@ that was not started at the correct moment."
 	   (org-timer-secs-to-hms
 	    (floor
 	     (- (time-to-seconds (current-time))
-		(time-to-seconds org-timer-start-time))))))))
+		(time-to-seconds org-timer-start-time)))))))
 
 ;;;###autoload
 (defun org-timer-change-times-in-region (beg end delta)


[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

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

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Carsten Dominik]

Fixed, thanks.

- Carsten

On Nov 25, 2008, at 12:48 PM, Charles Sebold wrote:

> On 25 Nov 2008, Carsten Dominik wrote:
>
>> I have added such a timer to Org-mode, if you get the latest git
>> release, you can use it.
>
> I include a quick patch to what I just checked out, to fix an extra
> parenthesis:
> --  
> Charles Sebold                                    25th of November,  
> 2008
> GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600) | Gnus v5.11 | org-mode 6.13a
>
> <mime-attachment.txt>_______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Re: Relative clocking [Further discussion and ideas by OP]

[Alan E. Davis]

[-- Attachment #1.1: Type: text/plain, Size: 1456 bytes --]

Perfect, thank you, het again.  This is *very* helpful.  I think I can
implement pause functions at some point, as well; and the same adjustment
function will be possible.  Perhaps a format variable for the output, like
"ET: " as one might wish.  I can get my head around these ideas.  They won't
be pretty.

Alan

On Tue, Nov 25, 2008 at 11:27 PM, Carsten Dominik <dominik@science.uva.nl>wrote:

> Fixed, thanks.
>
> - Carsten
>
> On Nov 25, 2008, at 12:48 PM, Charles Sebold wrote:
>
>  On 25 Nov 2008, Carsten Dominik wrote:
>>
>>  I have added such a timer to Org-mode, if you get the latest git
>>> release, you can use it.
>>>
>>
>> I include a quick patch to what I just checked out, to fix an extra
>> parenthesis:
>> -- Charles Sebold                                    25th of November,
>> 2008
>> GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600) | Gnus v5.11 | org-mode 6.13a
>>
>> <mime-attachment.txt>_______________________________________________
>> Emacs-orgmode mailing list
>> Remember: 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
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>



-- 
Alan Davis

"It's never a matter of liking or disliking ..."
      ---Santa Ynez Chumash Medicine Man

[-- Attachment #1.2: Type: text/html, Size: 2590 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

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