From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dave Abrahams Subject: Bug: "SCHEDULED: " positioning is fragile [7.8.06 (release_7.8.06.181.ga481)] Date: Thu, 05 Apr 2012 10:41:14 -0400 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:33282) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SFnsQ-00060l-7O for emacs-orgmode@gnu.org; Thu, 05 Apr 2012 10:41:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SFnsI-0006nF-FJ for emacs-orgmode@gnu.org; Thu, 05 Apr 2012 10:41:29 -0400 Received: from mail-qc0-f169.google.com ([209.85.216.169]:48602) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SFnsI-0006mn-9p for emacs-orgmode@gnu.org; Thu, 05 Apr 2012 10:41:22 -0400 Received: by qcsd16 with SMTP id d16so1016592qcs.0 for ; Thu, 05 Apr 2012 07:41:15 -0700 (PDT) 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. ------------------------------------------------------------------------ Given the following: --8<---------------cut here---------------start------------->8--- * TODO Some headline SCHEDULED: <2012-04-05 Thu> --8<---------------cut here---------------end--------------->8--- If I add body text between the headline and the SCHEDULED: line, some things work, but others don't. For example: --8<---------------cut here---------------start------------->8--- * TODO Some headline some body SCHEDULED: <2012-04-05 Thu> --8<---------------cut here---------------end--------------->8--- In agenda mode, I can hit `f' (org-agenda-date-later) and it will bump the scheduled date forward and all is well. However, if I hit `C-c C-s + RET' (org-agenda-schedule), the item changes to --8<---------------cut here---------------start------------->8--- * TODO Some headline SCHEDULED: <2012-04-06 Fri> some body SCHEDULED: <2012-04-05 Thu> --8<---------------cut here---------------end--------------->8--- Moreover, the agenda still "thinks" this item is scheduled for 2012-04-05! I can attempt to reschedule the item indefinitely and the scheduled date will never appear to change, because the later one overrides the earlier one. There's no reason the format should be so sensitive to ordering. If org-agenda-date-later can do the right thing, so can org-agenda-schedule and all the other commands that change the scheduled date of an item. Emacs : GNU Emacs 24.0.94.1 (x86_64-apple-darwin11.3.0, Carbon Version 1.6.0 AppKit 1138.32) of 2012-03-14 on pluto.luannocracy.com Package: Org-mode version 7.8.06 (release_7.8.06.181.ga481) current state: ============== (setq org-hide-leading-stars t org-export-babel-evaluate nil org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code) org-tab-first-hook '(yas/org-very-safe-expand org-hide-block-toggle-maybe org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe) org-adapt-indentation nil org-footnote-section nil org-time-clocksum-use-fractional t org-log-buffer-setup-hook '((lambda nil (setq fill-column (- fill-column 5)))) org-habit-preceding-days 42 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-agenda-fontify-priorities t org-reverse-note-order t org-agenda-auto-exclude-function 'org-my-auto-exclude-function org-occur-hook '(org-first-headline-recenter) org-metaup-hook '(org-babel-load-in-session-maybe) org-agenda-scheduled-leaders '("" "S%d: ") org-agenda-start-on-weekday nil org-clock-into-drawer "LOGBOOK" org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers) org-confirm-shell-link-function nil org-x-backends '(ox-org ox-redmine) org-finalize-agenda-hook '(org-agenda-add-overlays) org-speed-commands-user '(("+" . org-priority-up) ("-" . org-priority-down)) org-clock-idle-time 10 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists) org-habit-completed-glyph 10004 org-agenda-restore-windows-after-quit t org-agenda-deadline-leaders '("D: " "D%d: ") org-pretty-entities t org-special-ctrl-a/e 'reversed org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars) org-x-redmine-title-prefix-function 'org-x-redmine-title-prefix org-agenda-prefix-format '((agenda . " %-11:c%?-12t% s") (timeline . " % s") (todo . " %-11:c") (tags . " %-11:c")) org-agenda-skip-scheduled-if-done t org-agenda-custom-commands '(("E" "Errands (next 3 days)" tags "Errand&TODO<>\"DONE\"&TODO<>\"CANCELED\"&STYLE<>\"habit\"&SCHEDULED<\"<+3d>\"" ((org-agenda-overriding-header "Errands (next 3 days)"))) ("A" "Priority #A tasks" agenda "" ((org-agenda-ndays 1) (org-agenda-overriding-header "Today's priority #A tasks: ") (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))) ) ("b" "Priority #A and #B tasks" agenda "" ((org-agenda-ndays 1) (org-agenda-overriding-header "Today's priority #A and #B tasks: ") (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#C\\]")))) ) ("w" "Waiting/delegated tasks" tags "TODO=\"WAITING\"|TODO=\"DELEGATED\"" ((org-agenda-overriding-header "Waiting/delegated tasks:") (org-agenda-sorting-strategy (quote (todo-state-up priority-down category-up)))) ) ("p" "Unprioritized tasks" tags "AREA<>\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT\\|DEFERRED\\|SOMEDAY}" ((org-agenda-files (quote ("~/Documents/Tasks/todo.txt"))) (org-agenda-overriding-header "Unprioritized tasks: ") (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#[A-Z]\\]")))) ) ("u" "Unscheduled tasks" tags "AREA<>\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}" ((org-agenda-files (quote ("~/Documents/Tasks/todo.txt"))) (org-agenda-overriding-header "Unscheduled tasks: ") (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote timestamp) (quote regexp) "\\* \\(DEFERRED\\|SOMEDAY\\)") ) ) (org-agenda-sorting-strategy (quote (priority-down)))) ) ("U" "Deferred tasks" tags "TODO=\"DEFERRED\"" ((org-agenda-files (quote ("~/Documents/Tasks/todo.txt"))) (org-agenda-overriding-header "Deferred tasks:")) ) ("Y" "Someday tasks" tags "TODO=\"SOMEDAY\"" ((org-agenda-overriding-header "Someday tasks:"))) ("G" "Ledger tasks (all)" alltodo "" ((org-agenda-files (quote ("~/src/ledger/plan/TODO"))) (org-agenda-overriding-header "Ledger tasks:") (org-agenda-sorting-strategy (quote (todo-state-up priority-down category-up)))) ) ("N" "Ledger tasks (all, alphabetical)" alltodo "" ((org-agenda-files (quote ("~/src/ledger/plan/TODO"))) (org-agenda-overriding-header "Ledger tasks, alphabetical:") (org-agenda-sorting-strategy (quote (alpha-up)))) ) ("l" "Ledger tasks" tags-todo "TODO<>{SOMEDAY\\|DEFERRED}" ((org-agenda-files (quote ("~/src/ledger/plan/TODO"))) (org-agenda-overriding-header "Ledger tasks:") (org-agenda-sorting-strategy (quote (todo-state-up priority-down category-up))) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#C\\]")))) ) ("r" "Uncategorized items" tags "CATEGORY=\"Inbox ===>\"&LEVEL=2&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}" ((org-agenda-overriding-header "Uncategorized items"))) ("V" "Unscheduled work-related tasks" tags "AREA=\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}" ((org-agenda-overriding-header "Unscheduled work-related tasks") (org-agenda-files (quote ("~/Documents/Tasks/todo.txt"))) (org-agenda-sorting-strategy (quote (category-up))) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote timestamp) (quote regexp) "\\* \\(DEFERRED\\|SOMEDAY\\)") ) ) ) ) ("W" "Work-related tasks" tags "AREA=\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}" ((org-agenda-overriding-header "Work-related tasks") (org-agenda-files (quote ("~/Documents/Tasks/todo.txt"))) (org-agenda-sorting-strategy (quote (category-up priority-down todo-state-up alpha-up))) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote regexp) "\\* \\(DEFERRED\\|SOMEDAY\\)"))) ) ) ) org-return-follows-link t org-default-notes-file "~/Documents/Tasks/todo.txt" org-clock-in-resume t org-capture-templates '(("t" "Task" entry (file+headline "~/Documents/Tasks/todo.txt" "Inbox") "* TODO %?\n SCHEDULED: %t\n :PROPERTIES:\n :ID: %(shell-command-to-string \"uuidgen\") :CREATED: %U\n :END:" :prepend t) ) org-agenda-include-diary t org-drawers '("PROPERTIES" "CLOCK" "LOGBOOK" "OUT") org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist) org-todo-repeat-to-state "TODO" org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-tags-column -97 org-agenda-before-write-hook '(org-agenda-add-entry-text) org-babel-pre-tangle-hook '(save-buffer) org-mode-hook '((lambda nil (set (make-local-variable (quote yas/trigger-key)) [tab]) (add-to-list (quote org-tab-first-hook) (quote yas/org-very-safe-expand)) (define-key yas/keymap [tab] (quote yas/next-field))) (lambda nil (local-unset-key (kbd ".,"))) #[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-agenda-follow-indirect t org-refile-targets '((nil :todo . "PROJECT") (nil :maxlevel . 2)) org-extend-today-until 6 org-attach-method 'mv org-mobile-pre-pull-hook '(my-org-convert-incoming-items) org-use-speed-commands t org-agenda-sorting-strategy '((agenda habit-down time-up todo-state-up priority-down category-keep) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep)) org-clock-persist 'history org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-agenda-persistent-filter t org-clock-in-switch-to-state "STARTED" org-directory "~/Documents/Tasks/" 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-habit-show-habits-only-for-today nil org-export-latex-format-toc-function 'org-export-latex-format-toc-default org-export-blocks '((src org-babel-exp-src-block nil) (export-comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) org-archive-location "TODO-archive::" org-export-first-hook '(org-beamer-initialize-open-trackers) org-agenda-text-search-extra-files '(agenda-archives) org-habit-today-glyph 9483 org-x-redmine-title-prefix-match-function 'org-x-redmine-title-prefix-match org-agenda-default-appointment-duration 60 org-export-interblocks '((src org-babel-exp-non-block-elements)) org-use-property-inheritance '("AREA") org-modules '(org-id org-info org-habit) org-agenda-ndays 1 org-checkbox-statistics-hook '(dwa/checkbox-list-complete) org-fast-tag-selection-single-key 'expert org-agenda-window-setup 'current-window org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el")) org-confirm-elisp-link-function nil org-edit-src-content-indentation 0 org-metadown-hook '(org-babel-pop-to-session-maybe) org-log-into-drawer t org-mobile-post-push-hook '((lambda nil (shell-command "/bin/rm -f ~/Dropbox/MobileOrg/agendas.org") (shell-command (concat "perl -i -ne 'print unless /agendas\\.org/;'" "~/Dropbox/MobileOrg/checksums.dat")) (shell-command (concat "perl -i -ne 'print unless /agendas\\.org/;'" "~/Dropbox/MobileOrg/index.org"))) ) org-insert-heading-respect-content t org-agenda-skip-unavailable-files t org-checklist-export-function 'org-export-as-ascii org-default-priority 67 org-clock-modeline-total 'current org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-agenda-skip-deadline-if-done t org-completion-use-ido t org-babel-load-languages '((emacs-lisp . t) (sh . t)) org-cycle-global-at-bob t org-agenda-start-with-follow-mode t org-agenda-mode-hook '((lambda nil (local-unset-key (kbd ".,")))) org-agenda-files '("~/Documents/Tasks/todo.txt") org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-archive-save-context-info '(time category itags) org-src-fontify-natively t org-clock-out-remove-zero-time-clocks t org-refile-target-verify-function 'dwa/org-verify-refile-target org-agenda-skip-scheduled-if-deadline-is-shown t org-after-todo-statistics-hook '(dwa/org-summary-todo) ) -- Dave Abrahams BoostPro Computing http://www.boostpro.com