Re: Patch for resolving "away time" when clocked in

[Jeff Kowalczyk <jtk@yahoo.com>]

John Wiegley <jwiegley <at> gmail.com> writes:
> Looking for anyone who uses Org's time clocking facilities and is  
> willing to test this with me.  I've been using it for a couple of days  
> now.  The functionality is based on the way the commercial app  
> OfficeTime handles idleness.

Hi John, 

This is interesting and useful, and the manual section describing how it works
is clear.

I applied the patch against 93f396, and on Emacs 23.1 I get an error when
clocking in. The error happens the first clock-in for each Emacs session, but
the 'invalid timer' message shows for subsequent clock-in/out.

Thanks,
Jeff


Debugger entered--Lisp error: (error "Invalid timer")
  signal(error ("Invalid timer"))
  error("Invalid timer")
  cancel-timer(1)
  byte-code("(snip)
  [org-clock-resolving-clocks-due-to-idleness org-clock-marker
  org-clock-resolving-clocks org-clock-left-over-time left-over msg-extra
  marker-buffer nil "" t org-resolve-clocks throw abort (4)
  org-clock-select-task "Clock-in on task: " copy-marker error "Abort"
  marker-position org-clock-out (16) org-clock-mark-default-task
  org-on-heading-p point-at-bol 0 run-hooks org-clock-in-prepare-hook
  org-base-buffer org-back-to-heading org-clock-history-push functionp
  looking-at match-string 2 org-todo "[ ]*" "\\>" 4 org-trim 1 "???"
  org-propertize face org-clock-find-position "^[ ]* " "
  \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " +\\sw+.?
  +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" message "Matched %s" ...] 7)
  org-clock-in(nil)
  call-interactively(org-clock-in nil nil)


The org-related parts of my config:

(add-to-list 'load-path "~/.emacs.d/vendor/org-mode/lisp")
(add-to-list 'load-path "~/.emacs.d/vendor/org-mode/contrib/lisp")
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(require 'org-install)
(setq org-clock-persist t)
(org-clock-persistence-insinuate)
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(setq org-log-done 'time)
(setq org-special-ctrl-k t)
(org-remember-insinuate)
(setq org-directory "~/org/")
(setq org-default-notes-file (concat org-directory "/notes.org"))
(define-key global-map "\C-cr" 'org-remember)
(setq org-clock-into-drawer t)
(setq org-clock-clocktable-default-properties '(:maxlevel 2 :scope subtree))
(defun yas/org-very-safe-expand ()