From: swflint@flintfam.org (Samuel W. Flint)
To: emacs-orgmode@gnu.org
Subject: Bug: Org Habits does not recalculate the "Scheduled:" line [8.3.2 (release_8.3.2-441-ga87dea @ /home/swflint/.emacs.d/org-mode/lisp/)]
Date: Sat, 02 Jan 2016 00:40:55 -0500 [thread overview]
Message-ID: <87ege0a68o.fsf@turing.flintfam.org> (raw)
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 Org's habit feature. I expect that when I mark a task such as the
following as done:
* TODO Weekly Review
SCHEDULED: <2016-01-01 Fri .+1w/2w>
:PROPERTIES:
:STYLE: habit
:END:
The SCHEDULED line should change, to reflect the new date. As of right
now, it doesn't, and instead, the SCHEDULED line is removed, rendering
the "habit" useless.
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-441-ga87dea @ /home/swflint/.emacs.d/org-mode/lisp/)
current state:
==============
(setq
org-capture-prepare-finalize-hook '(gnorb-registry-capture-abort-cleanup
gnorb-gnus-capture-abort-cleanup org-id-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.1799999999999997 . 3.72))
(2 (2.2199999999999998 . 2.328) (2.36 . 2.412)))
org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-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}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("article" "\\documentclass[11pt]{article}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%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-command-hook)
org-agenda-skip-timestamp-if-done t
org-download-method 'attach
org-ellipsis "⤵"
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) (alltodo "" nil)) nil)
("s" "School Schedule" agenda ""
((org-agenda-tag-filter-preset (quote ("+school")))))
("A" "List Assignments" agenda ""
((org-agenda-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-function
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/agenda.org" "Main Agenda, including diary"
"Current")
(file "~/.emacs.d/org-capture-templates/appointment-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-template.org")
:empty-lines 1)
("td" "Deadline TODO" entry
(file+headline "~/org/main.org" "To Do")
(file
"~/.emacs.d/org-capture-templates/todo-deadline-template.org")
:empty-lines 1)
("tl" "Linked TODO" entry (file+headline "~/org/main.org" "To Do")
(file "~/.emacs.d/org-capture-templates/todo-template.org")
:empty-lines 1)
("j" "Journal Entry" entry (file+datetree "~/org/journal.org.gpg")
(file "~/.emacs.d/org-capture-templates/journal-template.org")
:empty-lines 1)
("n" "Notes")
("nn" "General Notes" entry (file+datetree "~/org/notes.org")
(file
"~/.emacs.d/org-capture-templates/notes-journal-template.org")
:empty-lines 1)
("nl" "Linked Note" entry (file+datetree "~/org/notes.org")
(file
"~/.emacs.d/org-capture-templates/linked-note-journal-template.org")
:empty-lines 1)
("nq" "Quoting Note" entry (file+datetree "~/org/notes.org")
(file
"~/.emacs.d/org-capture-templates/quoting-note-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-journal-template.org")
:empty-lines 1)
("s" "Code Snip" entry (file "~/org/snips.org")
(file "~/.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-template.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-template.org")
:empty-lines 1)
("b" "Bookmark" item
(file+olp "~/org/bookmarks.org" "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-registry-capture gnorb-gnus-capture-attach
gnorb-org-capture-collect-link)
org-disputed-keys '(([(shift up)] . [(meta p)]) ([(shift down)] . [(meta n)])
([(shift left)] . [(meta -)]) ([(shift right)] . [(meta +)])
([(control shift right)] . [(meta shift +)])
([(control shift left)] . [(meta shift -)])
([(control tab)] . [(meta control tab)]))
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-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-mode
org-bullets-mode (lambda nil (org-indent-mode 1)) visual-line-mode
flyspell-mode org-clock-load
#[nil
"\305\306 >\203\307\n\310\311#\210\307\v\312\313#\210\307\v\314\315#\210\306 >\203,\307\n\316\317#\210\307\n\320\321#\210\322 >\203>\307\v\323\324#\210\307\v\325\324#\210\326 >\203P\307\n\327\317#\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-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]
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-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/main.org" :maxlevel . 7)
("/home/swflint/org/carnegie-books.org" :maxlevel . 7)
("/home/swflint/org/recipes.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/bookmarks.org" :maxlevel . 7)
("/home/swflint/org/quotes.org" :maxlevel . 7)
("/home/swflint/org/snips.org" :maxlevel . 7)
("/home/swflint/org/agenda.org" :maxlevel . 7)
("/home/swflint/org/sicp.org" :maxlevel . 7)
("/home/swflint/org/school.org" :maxlevel . 7)
("/home/swflint/org/library.org" :maxlevel . 7)
("/home/swflint/org/main.org_archive" :maxlevel . 7))
org-download-timestamp "_%Y-%m-%d_%H-%M-%S"
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
org-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-tag)
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)")
(sequence "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=%s"))
org-agenda-span 'day
org-latex-packages-alist '(("" "lmodern" nil) ("" "natbib" nil)
("nottoc,numbib" "tocbibind" nil) ("" "csquotes" nil)
("" "color" nil) ("" "listings" nil) ("" "color" nil)
("UTF8" "inputenc" 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 activate-bullets
activate-checkboxes)
org-latex-listings t
org-default-priority 67
org-blocker-hook '(org-block-todo-from-checkboxes
org-block-todo-from-children-or-siblings-or-parent)
org-agenda-skip-deadline-if-done t
org-html-format-headline-function 'org-html-format-headline-default-function
org-structure-template-alist '(("n" "#+Name: ?" "#+Name: ?")
("C" "#+Caption: ?" "#+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-function
org-agenda-mode-hook '(#[nil
"\302\303 \304\305#\210\303 \306\307#\210\303 \310\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\b!\303 \304\"\203\305\306!\202\303 \307\"\205\310\306!)\207"
[event --cl-var-- org-mouse-get-gesture eql :left org-agenda-earlier 1 :right org-agenda-later]
3 nil "e"]
]
4]
#[nil
"\302\303 \304\305#\210\303 \306\307#\210\303 \310\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\b!\303 \304\"\203\305\306!\202\303 \307\"\205\310\306!)\207"
[event --cl-var-- org-mouse-get-gesture eql :left org-agenda-earlier 1 :right org-agenda-later]
3 nil "e"]
]
4]
)
org-agenda-files '("/home/swflint/org/main.org" "/home/swflint/org/carnegie-books.org"
"/home/swflint/org/recipes.org" "/home/swflint/org/notes.org"
"/home/swflint/org/college.org" "/home/swflint/org/travel-list.org"
"/home/swflint/org/bookmarks.org" "/home/swflint/org/quotes.org"
"/home/swflint/org/snips.org" "/home/swflint/org/agenda.org"
"/home/swflint/org/sicp.org" "/home/swflint/org/school.org"
"/home/swflint/org/library.org")
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-src-fontify-natively nil
org-after-todo-statistics-hook '(org-summary-todo)
org-tag-alist '((:startgroup) ("work" . 119) ("school" . 115) ("home" . 104) (:endgroup)
(:startgroup) ("projects" . 112) ("paper" . 114) ("misc" . 109) (:endgroup)
(:startgroup) ("code" . 99) ("writing" . 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)
(λs.s s) λs.s s
next reply other threads:[~2016-01-02 5:41 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-01-02 5:40 Samuel W. Flint [this message]
2016-01-02 12:49 ` Bug: Org Habits does not recalculate the "Scheduled:" line [8.3.2 (release_8.3.2-441-ga87dea @ /home/swflint/.emacs.d/org-mode/lisp/)] Nicolas Goaziou
[not found] ` <877fjs9dk5.fsf@turing.flintfam.org>
[not found] ` <87wprshrd9.fsf@nicolasgoaziou.fr>
2016-01-02 20:17 ` Samuel W. Flint
2016-01-03 9:32 ` Nicolas Goaziou
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:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ege0a68o.fsf@turing.flintfam.org \
--to=swflint@flintfam.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* 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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.