From mboxrd@z Thu Jan 1 00:00:00 1970 From: swflint@flintfam.org (Samuel W. Flint) Subject: Bug: Habit Logging in incorrect place [8.3.2 (release_8.3.2-490-g157f91 @ /home/swflint/.emacs.d/org-mode/lisp/)] Date: Sun, 10 Jan 2016 19:35:46 -0500 Message-ID: <87lh7xrlzx.fsf@turing.flintfam.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37267) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aIQSw-0002IS-Iw for emacs-orgmode@gnu.org; Sun, 10 Jan 2016 19:36:14 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aIQSt-0003ol-7p for emacs-orgmode@gnu.org; Sun, 10 Jan 2016 19:36:10 -0500 Received: from [2600:3c00::f03c:91ff:fe70:9de9] (port=49357 helo=mail.flintfam.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aIQSs-0003oH-UP for emacs-orgmode@gnu.org; Sun, 10 Jan 2016 19:36:07 -0500 Received: from turing.flintfam.org.flintfam.org (resnet69-42.calvin.edu [153.106.69.42]) (Authenticated sender: swflint@flintfam.org) by mail.flintfam.org (Postfix) with ESMTPSA id BF0EE8479 for ; Mon, 11 Jan 2016 00:36:55 +0000 (UTC) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: 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. ------------------------------------------------------------------------ I use habits, and until recently, there was a problem with habit repeaters. Now that this is fixed, there's a new problem. When I try to set a habit's TODO state to DONE, aside from correctly setting the SCHEDULED line, and the TODO state back to TODO, the logging is done incorrectly. The buffer starts out as so: * TODO Weekly Review SCHEDULED: <2016-01-17 Sun .+1w/2w> :PROPERTIES: :STYLE: habit :CREATED: <2015-12-21 Mon 17:42> :LAST_REPEAT: [2016-01-10 Sun 19:23] :END: - State "DONE" from "TODO" [2016-01-10 Sun 19:23] - State "DONE" from "TODO" [2016-01-02 Sat 00:05] - State "DONE" from "TODO" [2015-12-29 Tue 18:22] When I run C-c C-t d on the headline, changing the TODO state to DONE, the following occurs: - State "DONE" from "TODO" [2016-01-10 Sun 19:34] * TODO Weekly Review SCHEDULED: <2016-01-17 Sun .+1w/2w> :PROPERTIES: :STYLE: habit :CREATED: <2015-12-21 Mon 17:42> :LAST_REPEAT: [2016-01-10 Sun 19:34] :END: - State "DONE" from "TODO" [2016-01-10 Sun 19:23] - State "DONE" from "TODO" [2016-01-02 Sat 00:05] - State "DONE" from "TODO" [2015-12-29 Tue 18:22] I have no idea why this is. Thanks, Sam Emacs : GNU Emacs 24.5.1 (x86_64-redhat-linux-gnu, GTK+ Version 3.17.8) of 2015-09-11 on buildvm-21.phx2.fedoraproject.org Package: Org-mode version 8.3.2 (release_8.3.2-490-g157f91 @ /home/swflint/= .emacs.d/org-mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-capture-prepare-finalize-hook '(gnorb-gnus-capture-abort-cleanup org-i= d-get-create) org-tree-slide-mode-hook '((lambda nil (text-scale-increase 2))) org-hide-leading-stars t org-footnote-auto-adjust 'sort org-drill-optimal-factor-matrix '((1 (2.36 . 3.86) (2.5 . 4.0) (2.17999999= 99999997 . 3.72)) (2 (2.2199999999999998 . 2.328) (2.36 . 2.412))) org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-tog= gle-maybe org-babel-header-arg-expand) org-habit-show-all-today t org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" ("\\= section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsub= section{%s}" . "\\subsubsection*{%s}")) ("article" "\\documentclass[11pt]{article}" ("\\sectio= n{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsub= section{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparag= raph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt]{report}" ("\\part{%s}= " . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%= s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . = "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%= s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ) org-insert-heading-hook '(org-expiry-insert-created) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-co= mmand-hook) org-agenda-skip-timestamp-if-done t org-download-method 'attach org-ellipsis "=E2=A4=B5" org-occur-hook '(org-first-headline-recenter) org-metaup-hook '(org-babel-load-in-session-maybe) org-agenda-start-on-weekday nil org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-capture-after-finalize-hook '((lambda nil (org-agenda-to-appt t))) org-src-window-setup 'current-window org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-= function org-babel-tangle-comment-format-beg "%source-name, %file" org-confirm-shell-link-function 'yes-or-no-p org-id-link-to-org-use-id t org-finalize-agenda-hook '((lambda nil (hl-line-mode))) org-after-tags-change-hook '(org-expiry-insert-created) org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-clock-idle-time 15 org-startup-folded nil org-latex-pdf-process '("pdflatex -shell-escape -interaction nonstopmode -= output-directory %o %f" "bibtex %b" "pdflatex -shell-escape -interaction nonstopmode -= output-directory %o %f" "pdflatex -shell-escape -interaction nonstopmode -= output-directory %o %f") org-panes-split-overview-horizontally t org-special-ctrl-a/e t org-agenda-custom-commands '(("n" "Agenda + TODOs" ((agenda "" nil) (allto= do "" nil)) nil) ("s" "School Schedule" agenda "" ((org-agenda= -tag-filter-preset (quote ("+school"))))) ("A" "List Assignments" agenda "" ((org-agend= a-tag-filter-preset (quote ("+school" "+assignment")))) (org-agenda-deadline-warning-days 10)) ) org-use-sub-superscripts '{} org-latex-format-headline-function 'org-latex-format-headline-default-func= tion org-expiry-handler-function 'org-toggle-archive-tag org-tree-slide-stop-hook '((lambda nil (text-scale-decrease 2))) org-default-notes-file "~/org/notes.org" org-capture-templates '(("a" "Create Appointment" entry (file+olp "~/org/a= genda.org" "Main Agenda, including diary" "Current") (file "~/.emacs.d/org-capture-templates/appointme= nt-template.org") :empty-lines 1 :prepend nil) ("t" "TODO Items") ("tt" "Standard TODO" entry (file+headline "~/org/= main.org" "To Do") (file "~/.emacs.d/org-capture-templates/todo-temp= late.org") :empty-lines 1) ("td" "Deadline TODO" entry (file+headline "~/org/= main.org" "To Do") (file "~/.emacs.d/org-capture-templates/todo-dead= line-template.org") :empty-lines 1) ("tl" "Linked TODO" entry (file+headline "~/org/ma= in.org" "To Do") (file "~/.emacs.d/org-capture-templates/todo-temp= late.org") :empty-lines 1) ("j" "Journal Entry" entry (file+datetree "~/org/j= ournal.org.gpg") (file "~/.emacs.d/org-capture-templates/journal-t= emplate.org") :empty-lines 1) ("n" "Notes") ("nn" "General Notes" entry (file+datetree "~/org/= notes.org") (file "~/.emacs.d/org-capture-templates/notes-jou= rnal-template.org") :empty-lines 1) ("nl" "Linked Note" entry (file+datetree "~/org/no= tes.org") (file "~/.emacs.d/org-capture-templates/linked-no= te-journal-template.org") :empty-lines 1) ("nq" "Quoting Note" entry (file+datetree "~/org/n= otes.org") (file "~/.emacs.d/org-capture-templates/quoting-n= ote-journal-template.org") :empty-lines 1) ("nt" "Linked/Quoted Notes" entry (file+datetree "= ~/org/notes.org") (file "~/.emacs.d/org-capture-templates/technical= -journal-template.org") :empty-lines 1) ("nd" "Note on Date" entry (file+datetree+prompt "= ~/org/notes.org") (file "~/.emacs.d/org-capture-templates/notes-jou= rnal-template.org") :empty-lines 1) ("s" "Code Snip" entry (file "~/org/snips.org") (f= ile "~/.emacs.d/org-capture-templates/snippet-template.org") :empty-lines 1) ("l" "Add an Entry to the Library" entry (file+olp= "library.org" "Books") (file "~/.emacs.d/org-capture-templates/book-temp= late.org") :empty-lines 1) ("A" "Assignment" entry (file "~/org/school.org") = (file "~/.emacs.d/org-capture-templates/assignment-template.org") :empty-lines 1) ("c" "calfw2org" entry (file+olp "~/org/agenda.org= " "Main Agenda, including diary" "Current") (file "~/.emacs.d/org-capture-templates/clfw-temp= late.org") :empty-lines 1) ("b" "Bookmark" item (file+olp "~/org/bookmarks.or= g" "Unsorted Bookmarks") "%a" :immediate-finish t)) org-latex-image-default-width "" org-after-todo-state-change-hook '(org-expiry-insert-created org-clock-out= -if-current) org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn ## CONTENTS)"] org-capture-mode-hook '(gnorb-gnus-capture-attach gnorb-org-capture-collec= t-link) org-disputed-keys '(([(shift up)] . [(meta p)]) ([(shift down)] . [(meta n= )]) ([(shift left)] . [(meta -)]) ([(shift right)] . [(meta +)]) ([(control shift right)] . [(meta shift +)]) ([(contro= l shift left)] . [(meta shift -)]) ([(control tab)] . [(meta control tab)])) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi= gure-edit-buffer) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-babel-pre-tangle-hook '(save-buffer) org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification) org-mode-hook '(ws-butler-mode wc-mode er/add-org-mode-expansions abbrev-m= ode org-bullets-mode (lambda nil (org-indent-mode 1)) visual-line-mode flyspell-mode org-clock-load #[nil "\305.\306 >\203.=00\307\n\310\311#\210\307=0B\312\313#\= 210\307=0B\314\315#\210\306 >\203,.\307\n\316\317#\210\307\n\320\321#\210\3= 22 >\203>.\307=0B\323\324#\210\307=0B\325\324#\210\326 >\203P.\307\n\327\31= 7#\210\307\n\330\321#\210\331 >\203_.\332\311\f\333BC\334#\210\335 >\203k.\= 332\311\336\334#\210\337 >\203w.\332\311\340\334#\210\341\342\343\344\311$\= 210\345\342\311\"\210\342\207" [org-mouse-context-menu-function org-mouse-features org-mouse-map org-mode-map org-outline-regexp org-mouse-context-menu context-menu org-defkey [mouse-3] nil [mouse-3] org-mouse-show-context-menu [down-mouse-1] org-mouse-down-mouse [C-drag-mouse-1] org-mouse-move-tree [C-down-mouse-1] org-mouse-move-tree-start yank-link [S-mouse-2] org-mouse-yank-link [drag-mouse-3] move-tree [drag-mouse-3] [down-mouse-3] activate-stars font-lock-add-keywords (0 (\` (face org-link mouse-face highlight keymap (\, org-mouse-map) ) ) (quote prepend) ) t activate-bullets (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 (\` (face org-link keymap (\, org-mouse-map) mouse-face highlight) ) (quote prepend) ) ) ) activate-checkboxes (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" (2 (\` (face bold keymap (\, org-mouse-map) mouse-face highlight) ) t) ) ) ad-add-advice org-open-at-point (org-mouse-open-at-point nil t (advice lambda nil (let ((context (org-context) = = = = = ) ) (cond ((assq :headline-stars context) (org-cycle) ) ((assq :checkbox context) (org-toggle-checkbox) ) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t) ) (org-cycle) ) ) ((org-footnote-at-reference-p) nil) (t ad-do-it) ) ) ) ) around ad-activate] 5] #[nil "\300\301\302\303\304$\207" [org-add-hook before-sav= e-hook org-encrypt-entries nil t] 5] #[0 "\300\301\302\303\304$\207" [org-add-hook change-major= -mode-hook org-show-block-all append local] 5 "\n\n(fn)"] #[nil "\300\301\302\303\304$\207" [org-add-hook change-maj= or-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-panes-main-size 80 org-refile-targets '(("/home/swflint/org/test.org" :maxlevel . 7) ("/home/= swflint/org/main.org" :maxlevel . 7) ("/home/swflint/org/carnegie-books.org" :maxlevel . 7= ) ("/home/swflint/org/recipes.org" :maxlevel . 7) ("/home/swflint/org/dcm-notes.org" :maxlevel . 7) ("/= home/swflint/org/bookmarks.org" :maxlevel . 7) ("/home/swflint/org/euler.org" :maxlevel . 7) ("/home= /swflint/org/snips.org" :maxlevel . 7) ("/home/swflint/org/quotes.org" :maxlevel . 7) ("/hom= e/swflint/org/sicp.org" :maxlevel . 7) ("/home/swflint/org/notes.org" :maxlevel . 7) ("/home= /swflint/org/college.org" :maxlevel . 7) ("/home/swflint/org/travel-list.org" :maxlevel . 7) (= "/home/swflint/org/agenda.org" :maxlevel . 7) ("/home/swflint/org/school.org" :maxlevel . 7) ("/hom= e/swflint/org/library.org" :maxlevel . 7)) org-export-with-tags nil org-archive-hook '(org-attach-archive-delete-maybe) org-use-speed-commands t org-ascii-format-drawer-function #[771 ".\207" [] 4 "\n\n(fn NAME CONTENTS= WIDTH)"] org-replace-disputed-keys t org-clock-persist 'history org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-= maybe) org-refile-use-outline-path 'file org-directory "~/org/" org-enforce-todo-dependencies t org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers o= rg-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-tags-exclude-from-inheritance '("crypt") org-M-RET-may-split-line '((headline) (item . t) (table)) org-log-refile 'note org-plantuml-jar-path "~/bin/plantuml.jar" org-edit-src-auto-save-idle-delay 5 org-read-date-prefer-future 'time org-agenda-finalize-hook '((lambda nil (hl-line-mode))) org-export-before-processing-hook '(esf/remove-lines-with-ignore-heading-t= ag) org-lowest-priority 69 org-crypt-key "266596F4" org-enforce-todo-checkbox-dependencies t org-refile-allow-creating-parent-nodes t org-use-property-inheritance t org-blank-before-new-entry '((heading . t) (plain-list-item . auto)) org-html-infojs-options '((path . "http://flintfam.org/org-info.js") (view= . "info") (toc . :with-toc) (ftoc . "0") (tdepth . "max") (sdepth . "max") (mouse . "underline") (buttons = . "0") (ltoc . "1") (up . :html-link-up) (home . :html-link-home)) org-todo-keywords '((sequence "TODO(t)" "WORKING(w)" "|" "DONE(d)") (seque= nce "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f)") (sequence "|" "CANCELLED(c)")) org-modules '(org-bbdb org-bibtex org-crypt org-docview org-gnus org-habit= org-id org-info org-irc org-mouse org-w3m org-annotate-file org-bookmark org-drill org-eshell org-invoice org-secretary = org-expiry org-panel jsinfo org-license) org-link-abbrev-alist '(("ddg" . "https://duckduckgo.com/?q=3D%s")) org-agenda-span 'day org-latex-packages-alist '(("" "lmodern" nil) ("" "natbib" nil) ("nottoc,n= umbib" "tocbibind" nil) ("" "csquotes" nil) ("" "color" nil) ("" "listings" nil) ("" "color" nil) ("UTF8" "i= nputenc" nil)) org-babel-tangle-lang-exts '(("python" . "py") ("perl" . "pl") ("ocaml" . = "ml") ("maxima" . "max") ("lisp" . "lisp") ("LilyPond" . "ly") ("latex" . "tex") ("haskell" . "hs") ("D" . "= d") ("C++" . "cpp") ("emacs-lisp" . "el") ("elisp" . "el")) org-confirm-elisp-link-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-mouse-features '(context-menu move-tree yank-link activate-stars activ= ate-bullets activate-checkboxes) org-latex-listings t org-default-priority 67 org-blocker-hook '(org-block-todo-from-checkboxes org-block-todo-from-chil= dren-or-siblings-or-parent) org-agenda-skip-deadline-if-done t org-html-format-headline-function 'org-html-format-headline-default-functi= on org-structure-template-alist '(("n" "#+Name: ?" "#+Name: ?") ("C" "#+Capti= on: ?" "#+Caption: ?") ("s" "#+BEGIN_SRC ?\n\n#+END_SRC") ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE") (= "q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE") ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE") ("V" = "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM") ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER") ("l= " "#+BEGIN_EXPORT latex\n?\n#+END_EXPORT") ("L" "#+LaTeX: ") ("h" "#+BEGIN_EXPORT html\n?\n#+END_EXPORT"= ) ("H" "#+HTML: ") ("a" "#+BEGIN_EXPORT ascii\n?\n#+END_EXPORT") ("A" "#+ASCII: ") ("i" "#+INDEX: ?") ("I" "= #+INCLUDE: %file ?")) org-export-with-smart-quotes t org-babel-load-languages '((C . t) (calc . t) (dot . t) (emacs-lisp . t) (= haskell . t) (latex . t) (lilypond . t) (lisp . t) (maxima . t) (octave . t) (ocaml . t) (perl . t) (plantuml .= t) (python . t) (shell . t) (sql . t) (R . t)) org-reveal-start-hook '(org-decrypt-entry) org-html-format-inlinetask-function 'org-html-format-inlinetask-default-fu= nction org-agenda-mode-hook '(#[nil "\302.\303 \304\305#\210\303 \306\307#\210\303 \3= 10\311#\210\303 \312\313#\210\303 \314\315#\207" [org-mouse-context-menu-function org-agenda-mode-map org-mouse-agenda-context-menu org-defkey [mouse-3] org-mouse-show-context-menu [down-mouse-3] org-mouse-move-tree-start [C-mouse-4] org-agenda-earlier [C-mouse-5] org-agenda-later [drag-mouse-3] #[(event) "\302!.\303 \304\"\203.=00\305\306!\202.=00\3= 03 \307\"\205.=00\310\306!)\207" [event --cl-var-- org-mouse-get-gesture eql :l= eft org-agenda-earlier 1 :right org-agenda-later] 3 nil "e"] ] 4] ) org-agenda-files '("/home/swflint/org/test.org" "/home/swflint/org/main.or= g" "/home/swflint/org/carnegie-books.org" "/home/swflint/org/recipes.org" "/home/swflint/org/dcm-= notes.org" "/home/swflint/org/bookmarks.org" "/home/swflint/org/euler.org" "/home/swflint/org/snips.= org" "/home/swflint/org/quotes.org" "/home/swflint/org/sicp.org" "/home/swflint/org/notes.org" "/home/swflint/org/colleg= e.org" "/home/swflint/org/travel-list.org" "/home/swflint/org/agenda.org" "/home/swflint/org/schoo= l.org" "/home/swflint/org/library.org") org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-src-fontify-natively nil org-publish-project-alist '(("website" :base-directory "~/website/" :publi= shing-directory "/ssh:swflint@flintfam.org:/var/web/samflint.= com/test" :base-extension "org\\|png\\|\\jpg\\|css" :recursive t :auto-sitemap t :sitemap-title "Sitemap" :sit= emap-filename "sitemap.org" :sitemap-sort-files (quote anti-chronologically) :htmlized-source= t :publishing-function (org-html-publish-to-html org-publish-attachm= ent) :exclude-tags t :section-numbers nil :html-head "\= n\n\n\n\n\n") ("cons-dev" :base-directory "~/cons-dev/" :pub= lishing-directory "/ssh:swflint@flintfam.org:/var/web/consultin= gdevelopers.info/test" :base-extension "org\\|png\\|\\jpg\\|css" :recursive t :auto-sitemap t :sitemap-title "= Sitemap" :sitemap-filename "sitemap.org" :sitemap-sort-files (quote anti-chronologically) :htmlized-source= t :publishing-function (org-html-publish-to-html org-publish-attachm= ent) :exclude-tags t :section-numbers nil :html-head "\= n\n\n\n\n\n") ) org-after-todo-statistics-hook '(org-summary-todo) org-tag-alist '((:startgroup) ("work" . 119) ("school" . 115) ("home" . 10= 4) (:endgroup) (:startgroup) ("projects" . 112) ("paper" . 114) ("misc" . 109) (:endgroup) (:startgroup) ("code" . 99) ("w= riting" . 119) ("other" . 111) (:endgroup) (:startgroup) ("noexport" . 88) ("export" . 120) (:endgroup) ("notes" . = 110) ("nonum" . 78) ("drill" . 100) ("assignment" . 97) ("book" . 98) ("crypt" . 67)) ) -- Samuel W. Flint 4096R/266596F4 (9477 D23E 389E 40C5 2F10 DE19 68E5 318E 2665 96F4) (=CE=BBs.s s) =CE=BBs.s s