From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Org-mode version 6.32trans (release_6.32b.122.g41496); Error on clock in when over estimated time Date: Mon, 9 Nov 2009 22:09:27 +0100 Message-ID: <1AA7664C-8494-4624-B4B6-50A1F620D167@gmail.com> References: <200911061704.nA6H4PDI015603@gollum.intra.norang.ca> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N7bUe-0007e8-56 for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 16:09:44 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N7bUY-0007YG-P1 for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 16:09:42 -0500 Received: from [199.232.76.173] (port=46561 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N7bUY-0007Xw-8b for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 16:09:38 -0500 Received: from mail-ew0-f228.google.com ([209.85.219.228]:65132) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1N7bUW-0006L1-0l for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 16:09:36 -0500 Received: by mail-ew0-f228.google.com with SMTP id 28so4636184ewy.42 for ; Mon, 09 Nov 2009 13:09:35 -0800 (PST) In-Reply-To: <200911061704.nA6H4PDI015603@gollum.intra.norang.ca> 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: Bernt Hansen Cc: emacs-orgmode@gnu.org Fixed, thanks. - Carsten On Nov 6, 2009, at 6:04 PM, Bernt Hansen wrote: > > Remember to cover the basics, that is, what you expected to happen and > what in fact did happen. You don't know how to make a good report? > See > > http://orgmode.org/manual/Feedback.html#Feedback > > Your bug report will be posted to the Org-mode mailing list. > ------------------------------------------------------------------------ > I'm almost done my September accounting (yay!) and it's gone over the > estimated clock time. Attempting to clock in this task again triggers > the following error - but the clock does start. > > Generating the 'Task blah should be finished by now' is what fails. > This task has a token to show both count and %complete. > > Debugger entered--Lisp error: (error "Not enough arguments for > format string") > message(#("Task 'September Accounting [16/17] [94%]' should be > finished by now. (0:30)" 0 6 nil 6 40 (face nil fontified nil org- > category "norang" :org-clock-minutes 44) 40 75 nil)) > (cond ((functionp org-show-notification-handler) (funcall org-show- > notification-handler notification)) ((stringp org-show-notification- > handler) (start-process "emacs-timer-notification" nil org-show- > notification-handler notification)) ((org-program-exists "notify- > send") (start-process "emacs-timer-notification" nil "notify-send" > notification)) (t (message notification))) > org-show-notification(#("Task 'September Accounting [16/17] [94%]' > should be finished by now. (0:30)" 0 6 nil 6 40 (:org-clock-minutes > 44 org-category "norang" fontified nil face nil) 40 75 nil)) > org-notify(#("Task 'September Accounting [16/17] [94%]' should be > finished by now. (0:30)" 0 6 nil 6 40 (:org-clock-minutes 44 org- > category "norang" fontified nil face nil) 40 75 nil) t) > (if org-clock-notification-was-shown nil (setq org-clock- > notification-was-shown t) (org-notify (format "Task '%s' should be > finished by now. (%s)" org-clock-heading org-clock-effort) t)) > (unless org-clock-notification-was-shown (setq org-clock- > notification-was-shown t) (org-notify (format "Task '%s' should be > finished by now. (%s)" org-clock-heading org-clock-effort) t)) > (if (>= clocked-time effort-in-minutes) (unless org-clock- > notification-was-shown (setq org-clock-notification-was-shown t) > (org-notify ... t)) (setq org-clock-notification-was-shown nil)) > (let ((effort-in-minutes ...) (clocked-time ...)) (if (>= clocked- > time effort-in-minutes) (unless org-clock-notification-was- > shown ... ...) (setq org-clock-notification-was-shown nil))) > (progn (let (... ...) (if ... ... ...))) > (if (marker-buffer org-clock-marker) (progn (let ... ...))) > (when (marker-buffer org-clock-marker) (let (... ...) > (if ... ... ...))) > org-clock-notify-once-if-expired() > (if org-clock-effort (org-clock-notify-once-if-expired)) > org-clock-update-mode-line() > (save-restriction (widen) (goto-char target-pos) (org-back-to- > heading t) (or interrupting (move-marker org-clock-interrupted-task > nil)) (org-clock-history-push) (cond (... ... ...) (... ...)) (setq > org-clock-heading-for-remember (and ... ... ...)) (setq org-clock- > heading (cond ... ... ...)) (setq org-clock-heading (org-propertize > org-clock-heading ... nil)) (org-clock-find-position org-clock-in- > resume) (cond (... ... ... ... ... ... ...) (... ... ... ... ...) > (t ... ... ... ... ... ... ... ... ...)) (move-marker org-clock- > marker (point) (buffer-base-buffer)) (move-marker org-clock-hd- > marker (save-excursion ... ...) (buffer-base-buffer)) (setq org- > clock-has-been-used t) (or global-mode-string (setq global-mode- > string ...)) (or (memq ... global-mode-string) (setq global-mode- > string ...)) (org-clock-update-mode-line) (when org-clock-mode-line- > timer (cancel-timer org-clock-mode-line-timer) (setq org-clock-mode- > line-timer nil)) (setq org-clock-mode-line-timer (run-with-timer 60 > 60 ...)) (when org-clock-idle-timer (cancel-timer org-clock-idle- > timer) (setq org-clock-idle-timer nil)) (setq org-clock-idle-timer > (run-with-timer 60 60 ...)) (message "Clock starts at %s - %s" ts > msg-extra) (run-hooks (quote org-clock-in-hook))) > (save-excursion (save-restriction (widen) (goto-char target-pos) > (org-back-to-heading t) (or interrupting ...) (org-clock-history- > push) (cond ... ...) (setq org-clock-heading-for-remember ...) (setq > org-clock-heading ...) (setq org-clock-heading ...) (org-clock-find- > position org-clock-in-resume) (cond ... ... ...) (move-marker org- > clock-marker ... ...) (move-marker org-clock-hd-marker ... ...) > (setq org-clock-has-been-used t) (or global-mode-string ...) > (or ... ...) (org-clock-update-mode-line) (when org-clock-mode-line- > timer ... ...) (setq org-clock-mode-line-timer ...) (when org-clock- > idle-timer ... ...) (setq org-clock-idle-timer ...) (message "Clock > starts at %s - %s" ts msg-extra) (run-hooks ...))) > (save-excursion (when (and selected-task ...) (set-buffer ...) > (setq target-pos ...) (move-marker selected-task nil)) (save- > excursion (save- > restriction > ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) > (let ((interrupting ...) ts selected-task target-pos (msg-extra "") > (left-over ...)) (when (and org-clock-auto-clock- > resolution ... ... ...) (setq org-clock-left-over-time nil) > (let ... ...)) (when (equal select ...) (setq selected-task ...) (if > selected-task ... ...)) (when interrupting (move-marker org-clock- > interrupted-task ... ...) (org-clock-out t)) (when (equal > select ...) (org-clock-mark-default-task)) (setq target-pos > (if ... ... ...)) (run-hooks (quote org-clock-in-prepare-hook)) > (save-excursion (when ... ... ... ...) (save-excursion ...))) > (catch (quote abort) (let (... ts selected-task target-pos ... ...) > (when ... ... ...) (when ... ... ...) (when interrupting ... ...) > (when ... ...) (setq target-pos ...) (run-hooks ...) (save- > excursion ... ...))) > org-clock-in(nil) > (save-current-buffer (set-buffer (marker-buffer marker)) (widen) > (goto-char pos) (org-show-context (quote agenda)) (org-show-entry) > (org-cycle-hide-drawers (quote children)) (org-clock-in arg) (setq > newhead (org-get-heading))) > (with-current-buffer (marker-buffer marker) (widen) (goto-char pos) > (org-show-context (quote agenda)) (org-show-entry) (org-cycle-hide- > drawers (quote children)) (org-clock-in arg) (setq newhead (org-get- > heading))) > (let ((_cline ...) (_cmd this-command) (_buf1 ...) (_buf2 ...) > (_undo1 buffer-undo-list) (_undo2 ...) _c1 _c2) (with-current-buffer > (marker-buffer marker) (widen) (goto-char pos) (org-show- > context ...) (org-show-entry) (org-cycle-hide-drawers ...) (org- > clock-in arg) (setq newhead ...)) (org-agenda-change-all-lines > newhead hdmarker) (when org-agenda-allow-remote-undo (setq _c1 ... > _c2 ...) (when ... ... ... ...))) > (org-with-remote-undo (marker-buffer marker) (with-current-buffer > (marker-buffer marker) (widen) (goto-char pos) (org-show- > context ...) (org-show-entry) (org-cycle-hide-drawers ...) (org- > clock-in arg) (setq newhead ...)) (org-agenda-change-all-lines > newhead hdmarker)) > (let* ((marker ...) (hdmarker ...) (pos ...) newhead) (org-with- > remote-undo (marker-buffer marker) (with-current- > buffer ... ... ... ... ... ... ... ...) (org-agenda-change-all-lines > newhead hdmarker))) > (if (equal arg (quote ...)) (org-clock-in arg) (let* (... ... ... > newhead) (org-with-remote-undo ... ... ...))) > org-agenda-clock-in(nil) > call-interactively(org-agenda-clock-in) > > > Emacs : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11) > of 2008-11-09 on raven, modified by Debian > Package: Org-mode version 6.32trans (release_6.32b.122.g41496) > > -Bernt > > > _______________________________________________ > 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 - Carsten