From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Org-mode version 6.32trans (release_6.32b.127.g471c2); Clocking in with an open clock fails Date: Mon, 9 Nov 2009 10:59:45 -0500 Message-ID: <200911091559.nA9FxjQj025395@gollum.intra.norang.ca> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N7Wen-0006mX-HY for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 10:59:53 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N7Wej-0006kO-ER for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 10:59:53 -0500 Received: from [199.232.76.173] (port=54681 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N7Wei-0006k6-OY for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 10:59:49 -0500 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:61466) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N7Weh-0006bH-VD for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 10:59:48 -0500 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-02-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1N7Weg-0006yO-RB for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 15:59:47 +0000 Received: from gollum.intra.norang.ca (gollum.intra.norang.ca [192.168.1.5]) by mail.norang.ca (8.14.3/8.14.3/Debian-5) with ESMTP id nA9Fxjws025625 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT) for ; Mon, 9 Nov 2009 10:59:46 -0500 Received: from gollum.intra.norang.ca (localhost [127.0.0.1]) by gollum.intra.norang.ca (8.14.3/8.14.3/Debian-5) with ESMTP id nA9FxjuY025398 for ; Mon, 9 Nov 2009 10:59:45 -0500 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: emacs-orgmode@gnu.org 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. ------------------------------------------------------------------------ If there is an open clocking task and you move to another task and try to clock that in org-mode used to close out the clocking task, and clock in the new task. This no longer works. Now it closes out the clocking task and clocks it right back in again. 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.127.g471c2) current state: ============== (setq org-export-html-final-hook '(org-inlinetask-remove-terminator) org-log-done 'time org-remember-default-headline "Tasks" org-clock-in-switch-to-state "STARTED" org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold) ("SOMEDAY" :foreground "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold) ("QUOTE" :foreground "red" :weight bold) ("QUOTED" :foreground "magenta" :weight bold) ("APPROVED" :foreground "forest green" :weight bold) ("EXPIRED" :foreground "forest green" :weight bold) ("REJECTED" :foreground "forest green" :weight bold) ("OPEN" :foreground "blue" :weight bold)) org-show-siblings nil org-special-ctrl-a/e t org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2) org-default-priority 71 org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED" ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil))) ("w" "Tasks waiting on something" tags "WAITING/!" ((org-use-tag-inheritance nil))) ("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE" ((org-agenda-todo-ignore-with-date nil))) ("N" "Notes" tags "NOTE" nil) ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) ("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil) ("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil)) org-agenda-files '("~/git/bzflag/bzflag-website/TODO.org" "~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org" "~/git/org/jobs.org" "~/git/org/refile.org" "~/git/org/farm.org" "~/git/org/mark.org" "~/git/org/org.org" "~/git/org/norang.org") org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-agenda-tags-column -102 org-export-ascii-final-hook '(org-inlinetask-remove-terminator) org-export-with-sub-superscripts nil org-clock-into-drawer "CLOCK" org-checklist-export-function 'org-export-as-ascii org-completion-use-ido t org-metaup-hook '(org-babel-load-in-session-maybe) org-agenda-skip-timestamp-if-done t org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current) org-clock-out-when-done nil org-agenda-text-search-extra-files '(agenda-archives) org-agenda-todo-ignore-scheduled t org-clock-history-length 35 org-babel-interpreters '("ditaa" "python" "ruby" "R" "sh" "emacs-lisp") org-show-hierarchy-above t org-time-stamp-rounding-minutes '(1 15) org-speed-commands-user '(("1" . delete-other-windows) ("2" . split-window-horizontally) ("3" . split-window-vertically)) org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING")) ("TODO" ("WAITING") ("CANCELLED") ("NEXT")) ("DONE" ("WAITING") ("CANCELLED") ("NEXT"))) org-special-ctrl-k t org-remember-clock-out-on-exit nil org-agenda-sorting-strategy '((agenda habit-down time-up priority-down effort-up category-up) (todo priority-down) (tags priority-down)) org-deadline-warning-days 30 org-agenda-skip-scheduled-if-done t org-stuck-projects '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") "") org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 2000)) org-clock-in-resume t org-quote-string "FOOBAR" org-export-preprocess-hook '(org-export-blocks-preprocess) org-tags-exclude-from-inheritance '("crypt") org-tab-first-hook '(org-hide-block-toggle-maybe) outline-regexp "\\*+ " org-src-mode-hook '(org-src-mode-configure-edit-buffer) org-finalize-agenda-hook '(bh/org-agenda-to-appt) org-confirm-shell-link-function 'yes-or-no-p org-table-export-default-format "orgtbl-to-csv" org-clock-persist 'history org-clock-sound "/usr/local/lib/alert1.wav" org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)") (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)") (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)")) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-default-notes-file "~/git/org/refile.org" org-export-docbook-xslt-proc-command "xsltproc --output %s /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s" org-insert-heading-hook '(bh/insert-inactive-timestamp) org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 104) ("@farm" . 102) (:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 110) ("WAITING" . 119) ("HOME" . 72) ("FARM" . 70) ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83) ("NORANG" . 78) ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66)) org-blank-before-new-entry '((heading) (plain-list-item)) org-habit-graph-column 50 org-export-html-inline-images t org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-export-latex-classes '(("myletter" "% BEGIN My Letter Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n% END My Letter Defaults\n\n" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("myarticle" "% BEGIN My Article Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\ Norang Consulting Inc.}\n% END My Article Defaults\n\n" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("article" "\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ) org-publish-project-alist '(("norang-org" :base-directory "~/git/www.norang.ca" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :section-numbers nil :table-of-contents nil :style-include-default nil :style "" :author-info nil :creator-info nil) ("norang-extra" :base-directory "~/git/www.norang.ca/" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("norang" :components ("norang-org" "norang-extra")) ("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("org" :base-directory "~/git/org/" :publishing-directory "/ssh:www-data@www:~/org" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-org-mode" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style "" :author-info nil :creator-info nil) ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function org-publish-attachment :recursive t :author nil) ("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc-org-mode-extra"))) org-agenda-tags-todo-honor-ignore-options t org-use-speed-commands t org-mode-hook '(org-clock-load (lambda nil (make-variable-buffer-local (quote yas/trigger-key)) (org-set-local (quote yas/trigger-key) [tab]) (define-key yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1)) #[nil "\300\301\302\303\304$\207" [add-hook before-save-hook org-encrypt-entries nil t] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5]) org-clock-out-remove-zero-time-clocks t org-cycle-include-plain-lists nil org-font-lock-hook '(org-inlinetask-fontify) org-agenda-ndays 1 org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 12:00 16:00 24:00 40:00") ("STYLE_ALL" . "habit")) org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5)) org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe org-babel-execute-src-block-maybe) org-return-follows-link t org-confirm-elisp-link-function 'yes-or-no-p org-refile-use-outline-path 'file org-fast-tag-selection-single-key 'expert org-log-into-drawer t org-agenda-mode-hook '((lambda nil (hl-line-mode 1))) org-agenda-start-on-weekday nil org-agenda-todo-ignore-with-date t org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks)) org-enforce-todo-dependencies t org-agenda-skip-deadline-if-done t org-show-following-heading t org-insert-heading-respect-content t org-crypt-key "F0B66B40" org-occur-hook '(org-first-headline-recenter) org-from-is-user-regexp "\\" org-yank-adjusted-subtrees t org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK") org-agenda-log-mode-items '(clock) org-treat-S-cursor-todo-selection-as-state-change nil org-export-docbook-xsl-fo-proc-command "fop %s %s" org-agenda-todo-ignore-deadlines t org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m) org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} %10CLOCKSUM" org-agenda-auto-exclude-function 'bh/org-auto-exclude-function org-remember-templates '(("todo" 116 "* TODO %?\n %U\n %a" nil bottom nil) ("note" 110 "* %? :NOTE:\n %U\n %a" nil bottom nil) ("phone" 112 "* PHONE %:name - %:company - :PHONE:\n Contact Info: %a\n %U\n :CLOCK-IN:\n %?" nil bottom nil) ("Apply to Job" 106 "* TODO jobtask%? :NEXT:inet:\n :PROPERTIES:\n :Effort: 0:30\n :END:\n %U\n jobdetails" "~/git/org/jobs.org" "TODO Job Search" nil) ("appointment" 97 "* %?\n %U" "~/git/org/todo.org" "Appointments" nil) ("Search job site" 115 "* TODO Search job site%! :NEXT:inet:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:\n %a " "~/git/org/jobs.org" "Search Jobs" nil) ("org-protocol" 119 "* TODO Review %c%! :NEXT:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:" nil bottom nil)) org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler) org-export-docbook-final-hook '(org-inlinetask-remove-terminator) org-export-latex-final-hook '(org-inlinetask-remove-terminator) org-lowest-priority 71 org-metadown-hook '(org-babel-pop-to-session-maybe) org-clock-idle-time 1 org-export-blocks '((src org-babel-exp-src-blocks nil) (comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) )