From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Alan E. Davis" Subject: Re: Re: Relative clocking [Further discussion and ideas by OP] Date: Tue, 25 Nov 2008 18:08:24 +1000 Message-ID: <7bef1f890811250008l2c345ae6y3069fda96fe2cf20@mail.gmail.com> References: <7bef1f890811232347s2b91a19ey985e967d501d7270@mail.gmail.com> <9EF47D2B-F1FF-4125-BA26-5C7F7FC42F1D@uva.nl> <7bef1f890811241231m52f9a2e1o8c320272d3a6e291@mail.gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0719153780==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1L4syA-0004tT-SX for emacs-orgmode@gnu.org; Tue, 25 Nov 2008 03:08:27 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1L4sy9-0004sZ-Su for emacs-orgmode@gnu.org; Tue, 25 Nov 2008 03:08:26 -0500 Received: from [199.232.76.173] (port=52949 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L4sy9-0004sM-Ka for emacs-orgmode@gnu.org; Tue, 25 Nov 2008 03:08:25 -0500 Received: from yx-out-1718.google.com ([74.125.44.156]:56907) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1L4sy9-00025T-Jm for emacs-orgmode@gnu.org; Tue, 25 Nov 2008 03:08:25 -0500 Received: by yx-out-1718.google.com with SMTP id 34so1087453yxf.66 for ; Tue, 25 Nov 2008 00:08:24 -0800 (PST) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs-orgmode Mailinglist --===============0719153780== Content-Type: multipart/alternative; boundary="----=_Part_990_23360046.1227600504305" ------=_Part_990_23360046.1227600504305 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline 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 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 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 ------=_Part_990_23360046.1227600504305 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline 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

------=_Part_990_23360046.1227600504305-- --===============0719153780== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============0719153780==--