From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jean-Marie Gaillourdet Subject: Bug: Definition of stuck projects [6.36trans (release_6.36.293.g2e73c)] Date: Fri, 25 Jun 2010 17:05:13 +0200 Message-ID: Mime-Version: 1.0 (Apple Message framework v1081) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=46192 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OSCxb-0003si-PL for emacs-orgmode@gnu.org; Fri, 25 Jun 2010 13:45:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OSASz-0006V3-MP for emacs-orgmode@gnu.org; Fri, 25 Jun 2010 11:05:19 -0400 Received: from mailgw1.uni-kl.de ([131.246.120.220]:48615) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OSASz-0006Ol-93 for emacs-orgmode@gnu.org; Fri, 25 Jun 2010 11:05:17 -0400 Received: from girard.informatik.uni-kl.de (girard.informatik.uni-kl.de [131.246.92.34]) by mailgw1.uni-kl.de (8.14.3/8.14.3/Debian-5+lenny1) with ESMTP id o5PF5Dr7006504 (version=TLSv1/SSLv3 cipher=AES128-SHA bits=128 verify=NOT) for ; Fri, 25 Jun 2010 17:05:14 +0200 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. ------------------------------------------------------------------------ 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: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (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=3D1+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=3D2/DONE|CANCELLED" nil) ("H" "Habits" tags "STYLE=3D\"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 "=08\205=1C\302 \205=1C\303\304\302 !\305P!=19\306 = !\205=1B\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 "\\" 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 )