emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Adam Elliott <aelliott@hgn.ca>
To: emacs-orgmode@gnu.org
Subject: [PATCH] Auto resume clock-in fails
Date: Thu, 09 Apr 2009 15:55:43 -0400	[thread overview]
Message-ID: <49DE52BF.2010406@hgn.ca> (raw)

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

Using org 6.25e:

Automatically resuming the clock after an Emacs restart fails under the 
following cases:

1. If org-log-states-order-reversed set to t (default), and a state 
change line precedes the clock line to resume.  Error message is "Cannot 
restart clock because task does not contain unfinished clock".


*** STARTED test
     - State "STARTED"    from "TODO"       [2009-04-09 Thu 13:50]
     CLOCK: [2009-04-09 Thu 13:50]

Reason: point is placed at start of state change line and so fails 
looking-at test (org-clock.el:345).

Possible solution appears to be to use the existing function 
org-skip-over-state-notes when looking for the clock line to resume at 

2. If org-log-states-order-reversed set to nil.  Error message is the 
same.  Reason: point is placed *after* last clock line and so fails 
looking-at test.

Possible solution: test order-reversed and back up one clock entry 
before looking-at test.

I have combined these two ideas into a new function (patch attached).  I 
don't imagine I've handled all of the possible configurations of state 
change entries, log entries, and clock lines, in and out of drawers, so 
this will probably serve more as a basis for a solution than a solution 

(If nothing else, on org-clock.el:346 there's "\\t" where it should be 


[-- Attachment #2: org-auto-clock-in.patch --]
[-- Type: text/plain, Size: 2669 bytes --]

--- /usr/local/src/org-6.25e/lisp/org-clock.el	2009-04-09 10:27:00.000000000 -0400
+++ org-clock.el	2009-04-09 15:52:12.437500000 -0400
@@ -280,7 +280,7 @@
   (interactive "P")
   (catch 'abort
     (let ((interrupting (marker-buffer org-clock-marker))
-	  ts selected-task target-pos)
+	  ts selected-task target-pos resume-clock)
       (when (equal select '(4))
 	(setq selected-task (org-clock-select-task "Clock-in on task: "))
 	(if selected-task
@@ -342,16 +342,14 @@
 	     ((and org-clock-in-resume
-		   (looking-at
-		    (concat "^[ \\t]* " org-clock-string
-			    " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
-			    " +\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$")))
-	      (message "Matched %s" (match-string 1))
-	      (setq ts (concat "[" (match-string 1) "]"))
-	      (goto-char (match-end 1))
+		   (setq resume-clock
+			 (org-clock-find-last-clock-from-new-clock-position)))
+	      (message "Matched %s" (car resume-clock))
+	      (setq ts (concat "[" (car resume-clock) "]"))
+	      (goto-char (+ (length (car resume-clock)) (cdr resume-clock)))
 	      (setq org-clock-start-time
 		    (apply 'encode-time
-			   (org-parse-time-string (match-string 1)))))
+			   (org-parse-time-string (car resume-clock)))))
 	     ((eq org-clock-in-resume 'auto-restart)
 	      ;; called from org-clock-load during startup,
 	      ;; do not interrupt, but warn!
@@ -455,6 +453,29 @@
 	    (and (re-search-forward org-property-end-re nil t)
 		 (goto-char (match-beginning 0))))))))
+(defun org-clock-find-last-clock-from-new-clock-position ()
+  "Attempts to locate last clock line, assuming point is at new
+clock line position (see `org-clock-find-position').  If found,
+moves point to beginning of last clock line and returns a cons
+pair of the starting timestamp of the clock and the position of
+the match; and otherwise restores point and returns nil."
+  (let ((saved-point (point)) heading-bound)
+    (save-match-data
+      (if org-log-states-order-reversed
+	  (org-skip-over-state-notes)
+	(save-excursion
+	  (org-back-to-heading t)
+	  (beginning-of-line 2)
+	  (setq heading-bound (point)))
+	(re-search-backward (concat "^[ \t]*" org-clock-string) heading-bound t))
+      (if (looking-at
+	   (concat "^[ \t]* " org-clock-string
+		   " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}"
+		   " +\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ \t]*$"))
+	  (cons (match-string 1) (match-beginning 1))
+	(goto-char saved-point)
+	nil))))
 (defun org-clock-out (&optional fail-quietly)
   "Stop the currently running clock.
 If there is no running clock, throw an error, unless FAIL-QUIETLY is set."

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

Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.

             reply	other threads:[~2009-04-09 19:55 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-04-09 19:55 Adam Elliott [this message]
2009-04-14  8:18 ` [PATCH] Auto resume clock-in fails Carsten Dominik

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=49DE52BF.2010406@hgn.ca \
    --to=aelliott@hgn.ca \
    --cc=emacs-orgmode@gnu.org \


* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox


This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).