Bug: Definition of stuck projects [6.36trans (release_6.36.293.g2e73c)]

[Jean-Marie Gaillourdet <jmg@gaillourdet.net>]

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've been trying to make org-stuck-projects work as advertised, but
wasn't successfull.

But let's start with what I'd like to achieve. My projects are marked
with a todo keyword PROJECT. I would like to consider every project
which has neither a task with keyword TODO nor a task with keyword
STARTED as stuck. Especially, this means a project may contain tasks
with active todo keywords, e.g. DELEGATED or WAITING, but it is still
considered stuck.

After reading the manual and the doc-string of org-stuck-projects. I
think the following value should achieve this.

(setq org-stuck-projects '("/PROJECT" ("TODO" "STARTED") nil ""))

But every sub task of the project with an active todo keywords make a
project unstuck. I have the impression the list ("TODO" "STARTED") is
completely ignored. The following project should appear on the list of
stuck projects, but it does not.

* PROJECT Testprojekt                                           :inproject:
*** DELEGATED a delegated subtask

Thanks, for any help and the great org-mode



Emacs  : GNU Emacs 23.1.1 (i386-apple-darwin9.8.0, NS apple-appkit-949.54)
of 2009-09-03 on goedel.informatik.uni-kl.de
Package: Org-mode version 6.36trans (release_6.36.293.g2e73c)

current state:
==============
(setq
org-export-html-final-hook '(org-inlinetask-remove-terminator)
org-remember-default-headline "Tasks"
org-clock-in-switch-to-state 'bh/clock-in-to-started
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
org-show-siblings '((default . t) (isearch . t))
org-special-ctrl-a/e t
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)))
                              ("h" "Heutiges Tagespensum" tags-todo "+@today") ("c" "Continue STARTED tasks" tags-todo "/STARTED")
                              ("o" "Open stuff I can work on" tags-todo "/-DONE-CANCELLED-SOMEDAY-WAITING"
                               ((org-agenda-overriding-header "Open stuff I can work on")))
                              ("O" "ongoing tasks" tags-todo "/ONGOING")
                              ("r" "refile" tags "LEVEL=1+REFILE"
                               ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil)))
                              ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) ("w" "waiting for others" tags-todo "/WAITING|DELEGATED")
                              ("N" "Notes" tags "NOTE" nil) ("b" "Meeting" tags "MEETING" nil)
                              ("p" "Projects" tags-todo "/PROJECT"
                               ((org-agenda-overriding-header "Projects") (org-enforce-todo-dependencies nil) (org-enforce-todo-checkbox-dependencies nil)))
                              ("k" "Single Tasks which are not part of a project" tags-todo "-inproject/!")
                              ("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil)
                              ("H" "Habits" tags "STYLE=\"habit\""
                               ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil)))
                              ("I" "Import diary from iCal" agenda "" ((org-agenda-mode-hook (lambda nil (org-mac-iCal))))))
org-agenda-files "~/Work/KnowledgeBase/.agenda-files"
org-agenda-include-diary t
org-blocker-hook '(org-block-todo-from-checkboxes org-block-todo-from-children-or-siblings-or-parent)
org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
org-load-hook '((lambda nil (define-key org-mode-map (kbd "C-c C-x u") (quote org-id-get-create))))
org-hide-leading-stars t
org-checklist-export-function 'org-export-as-ascii
org-completion-use-ido t
org-agenda-skip-timestamp-if-done t
org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
org-combined-agenda-icalendar-file "~/mydisk.se/org.ics"
org-attach-directory "~/Work/KnowledgeBase/data/"
org-agenda-todo-ignore-scheduled t
org-clock-history-length 28
org-odd-levels-only t
org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING"))
                                ("TODO" ("WAITING") ("CANCELLED") ("NEXT")) ("STARTED" ("WAITING")) ("DONE" ("WAITING") ("CANCELLED") ("NEXT"))
                                ("PROJECT" ("inproject" . t)))
org-log-states-order-reversed nil
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-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-protocol-protocol-alist '(("org-mac-safari-tabs" :protocol "safari-tabs" :function org-mac-safari-tabs :kill-client t)
                               ("org-mac-remember" :protocol "mac-remember" :function org-mac-protocol-remember :kill-client t))
org-agenda-skip-scheduled-if-done t
org-stuck-projects '("/PROJECT" ("TODO" "STARTED") nil "")
org-agenda-time-grid '((daily weekly today) "----------------" (800 1000 1200 1400 1600 1800 2000))
org-support-shift-select t
org-log-redeadline 'time
org-clock-in-resume t
org-export-preprocess-hook '(org-export-blocks-preprocess)
org-agenda-diary-file "~/Work/KnowledgeBase/Kalender.org"
org-tab-first-hook '(org-hide-block-toggle-maybe)
org-src-mode-hook '(org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-use-tag-inheritance '("softech" "private" "finished" "paused" "inproject")
org-clock-persist t
org-clock-sound "~/configuration/sonar.ogg"
org-todo-keywords '((sequence "TODO(n!)" "STARTED(s!@)" "|" "DONE(d!/@)") (sequence "PROJECT(p!)" "|" "FINISHED(f!/@)")
                     (sequence "SOMEDAY(m!)" "WAITING(g!)" "DELEGATED(e)" "ONGOING(o!)" "|" "CANCELLED(x@)" "NONTASK"))
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/Work/KnowledgeBase/Inbox.org"
org-directory "~/Work/KnowledgeBase/"
org-log-reschedule 'time
org-tag-alist '((:startgroup) ("@office" . 49) ("@home" . 50) ("@errands" . 51) ("@people" . 52) ("@phone" . 53) ("@computer" . 54) ("@agbesprechung" . 55)
                 (:endgroup) ("PHONE" . 112) ("NOTE" . 78) ("MEETING" . 98) ("NEXT" . 110) ("WAITING" . 119) ("DELEGATED" . 100) ("crypt" . 99) ("@today" . 104))
org-habit-graph-column 50
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-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
org-agenda-dim-blocked-tasks 'invisible
org-agenda-tags-todo-honor-ignore-options t
org-use-speed-commands t
org-replace-disputed-keys t
org-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-context-menu))
                  (when (memq (quote context-menu) org-mouse-features) (org-defkey org-mouse-map [mouse-3] nil)
                   (org-defkey org-mode-map [mouse-3] (quote org-mouse-show-context-menu)))
                  (org-defkey org-mode-map [down-mouse-1] (quote org-mouse-down-mouse))
                  (when (memq (quote context-menu) org-mouse-features) (org-defkey org-mouse-map [C-drag-mouse-1] (quote org-mouse-move-tree))
                   (org-defkey org-mouse-map [C-down-mouse-1] (quote org-mouse-move-tree-start)))
                  (when (memq (quote yank-link) org-mouse-features) (org-defkey org-mode-map [S-mouse-2] (quote org-mouse-yank-link))
                   (org-defkey org-mode-map [drag-mouse-3] (quote org-mouse-yank-link)))
                  (when (memq (quote move-tree) org-mouse-features) (org-defkey org-mouse-map [drag-mouse-3] (quote org-mouse-move-tree))
                   (org-defkey org-mouse-map [down-mouse-3] (quote org-mouse-move-tree-start)))
                  (when (memq (quote activate-stars) org-mouse-features)
                   (font-lock-add-keywords nil (\` (((\, outline-regexp) 0 (\` (face org-link mouse-face highlight keymap (\, org-mouse-map))) (quote prepend))))
                    t)
                   )
                  (when (memq (quote activate-bullets) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\` (("^[ 	]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 (\` (face org-link keymap (\, org-mouse-map) mouse-face highlight)) (quote prepend))))) t)
                   )
                  (when (memq (quote activate-checkboxes) org-mouse-features)
                   (font-lock-add-keywords nil
                    (\` (("^[ 	]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" (2 (\` (face bold keymap (\, org-mouse-map) mouse-face highlight)) t)))) t)
                   )
                  (defadvice org-open-at-point (around org-mouse-open-at-point activate)
                   (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))) (t ad-do-it))
                    )
                   )
                  )
                 #[nil "\b\205\x1c\302 \205\x1c\303\304\302 !\305P!\x19\306	!\205^[\307	!)\207"
                   [org-ctags-enabled-p tags-filename buffer-file-name expand-file-name file-name-directory "/TAGS" file-exists-p visit-tags-table] 3]
                 org-clock-load #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5]
                 (lambda nil (when (outline-invisible-p) (save-excursion (outline-previous-visible-heading 1) (org-show-subtree))))
                 (lambda nil (imenu-add-to-menubar "Imenu")) toggle-input-method)
org-clock-out-remove-zero-time-clocks t
org-font-lock-hook '(org-inlinetask-fontify)
org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00 8:00") ("STYLE_ALL" . "habit"))
org-refile-targets '((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5))
org-return-follows-link t
org-confirm-elisp-link-function 'yes-or-no-p
org-refile-use-outline-path 'file
org-log-into-drawer t
org-agenda-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-agenda-context-menu))
                         (org-defkey org-agenda-mode-map [mouse-3] (quote org-mouse-show-context-menu))
                         (org-defkey org-agenda-mode-map [down-mouse-3] (quote org-mouse-move-tree-start))
                         (org-defkey org-agenda-mode-map [C-mouse-4] (quote org-agenda-earlier))
                         (org-defkey org-agenda-mode-map [C-mouse-5] (quote org-agenda-later))
                         (org-defkey org-agenda-mode-map [drag-mouse-3]
                          (quote
                           (lambda (event) (interactive "e") (case (org-mouse-get-gesture event) (:left (org-agenda-earlier 1)) (:right (org-agenda-later 1)))))
                          )
                         )
                        )
org-enforce-todo-dependencies t
org-refile-allow-creating-parent-nodes 'confirm
org-insert-heading-respect-content t
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp "\\<Jean-Marie Gaillourdet\\>"
org-yank-adjusted-subtrees t
org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
org-treat-S-cursor-todo-selection-as-state-change nil
org-agenda-todo-ignore-deadlines t
org-modules '(org-mac-protocol org-mac-iCal org-bibtex org-ctags org-id org-info org-jsinfo org-habit org-inlinetask org-mac-message org-mouse org-checklist
               org-toc)
org-columns-default-format "%80ITEM(Task) %10Effort(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 "* Notiz %?                                        :NOTE:\n  %U\n  %a" nil bottom nil)
                          ("meeting" 98 "* Besprechungsnotiz %?                                  :MEETING:\n  %U\n  %a" nil bottom nil)
                          ("phone" 112 "* PHONE %:name                            :PHONE:\n  Contact Info: %a\n  %u\n  %?" nil bottom nil)
                          ("appointment" 97 "* %?\n  %U" "~/Work/KnowledgeBase/Inbox.org" "Appointments" nil)
                          ("AppleScript remember" 121 "* %:shortdesc\n\nSource: %u, %c\n%?\n%:initial\n\n" nil bottom nil)
                          ("AppleScript note" 122 "* %?\n\n  Date: %u\n" nil bottom nil))
org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
org-agenda-cleanup-fancy-diary-hook '((lambda nil (goto-char (point-min))
                                        (save-excursion (while (re-search-forward "^[a-z]" nil t) (goto-char (match-beginning 0)) (insert "0:00-24:00 ")))
                                        (while (re-search-forward "^ [a-z]" nil t) (goto-char (match-beginning 0))
                                         (save-excursion (re-search-backward "^[0-9]+:[0-9]+-[0-9]+:[0-9]+ " nil t)) (insert (match-string 0)))
                                        )
                                       )
org-export-latex-final-hook '(org-inlinetask-remove-terminator org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames
                               org-beamer-place-default-actions-for-lists)
org-enforce-todo-checkbox-dependencies t
org-clock-idle-time 10
)