From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Wiegley Subject: Re: A much simpler way of handling dependent tasks Date: Tue, 27 Jan 2009 02:47:34 -0400 Message-ID: <5ECEE344-CBA9-44B3-AE13-ACBD83E46F22@newartisans.com> References: Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: multipart/mixed; boundary=Apple-Mail-1--818899139 Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LRhjb-0007Lp-Dj for emacs-orgmode@gnu.org; Tue, 27 Jan 2009 01:47:43 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LRhjZ-0007KV-37 for emacs-orgmode@gnu.org; Tue, 27 Jan 2009 01:47:42 -0500 Received: from [199.232.76.173] (port=41409 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LRhjY-0007KS-Ud for emacs-orgmode@gnu.org; Tue, 27 Jan 2009 01:47:40 -0500 Received: from johnwiegley.com ([208.70.150.153]:33870 helo=mail.johnwiegley.com) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LRhjY-0000Ne-Fd for emacs-orgmode@gnu.org; Tue, 27 Jan 2009 01:47:40 -0500 In-Reply-To: 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: Carsten Dominik Cc: emacs-orgmode Org-Mode --Apple-Mail-1--818899139 Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit On Jan 26, 2009, at 5:16 PM, John Wiegley wrote: > The attached file, confusingly named org-depends.el, implements the > following scheme: I found a bug which would cause a Lisp error when trying to change the state of top-level TODO items. The attached version (now 1.0) fixes this. John --Apple-Mail-1--818899139 Content-Disposition: attachment; filename=org-depends.el Content-Type: application/octet-stream; x-unix-mode=0644; name="org-depends.el" Content-Transfer-Encoding: 7bit ;;; org-depends.el --- Hierarchical TODO dependencies for Org-mode ;; Copyright (C) 2008 Free Software Foundation, Inc. ;; ;; Author: John Wiegley ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.newartisans.com/ ;; Version: 1.0 ;; ;; This file is not part of GNU Emacs. ;; ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Commentary: ;; (require 'org) (defun org-depends-block-todo (change-plist) "Block turning an entry into a TODO. This checks whether the current task should be blocked from state changes. Such blocking occurs when: 1. The task has children which are not all in a completed state. 2. A task has a parent with the property :ORDERED:, and there are siblings prior to the current task with incomplete status." (catch 'dont-block ;; If this task has children, and any are undone, it's blocked (save-excursion (outline-back-to-heading) (let ((this-level (funcall outline-level))) (outline-next-heading) (let ((child-level (funcall outline-level))) (while (and (not (eobp)) (> child-level this-level)) ;; this todo has children, check whether they are all ;; completed (if (and (not (org-entry-is-done-p)) (org-entry-is-todo-p)) (throw 'dont-block nil)) (outline-next-heading) (setq child-level (funcall outline-level)))))) ;; Otherwise, if the task's parent has the :ORDERED: property, and ;; any previous siblings are undone, it's blocked (save-excursion (outline-back-to-heading) (when (save-excursion (ignore-errors (outline-up-heading 1) (org-entry-get (point) "ORDERED"))) (let* ((this-level (funcall outline-level)) (current-level this-level)) (while (and (not (bobp)) (= current-level this-level)) (outline-previous-heading) (setq current-level (funcall outline-level)) (if (= current-level this-level) ;; this todo has children, check whether they are all ;; completed (if (and (not (org-entry-is-done-p)) (org-entry-is-todo-p)) (throw 'dont-block nil))))))) t)) ; don't block (add-hook 'org-blocker-hook 'org-depends-block-todo) (defface org-depends-dimmed-todo-face '((((background light)) (:foreground "grey50")) (((background dark)) (:foreground "grey50"))) "Face used to hide leading stars in headlines. The foreground color of this face should be equal to the background color of the frame." :group 'org-depends) (defun org-depends-dim-blocked-todos () "Dim currently blocked TODO's in the agenda display." (interactive) (mapc (lambda (o) (if (eq (org-overlay-get o 'org-type) 'org-blocked-todo) (org-delete-overlay o))) (org-overlays-in (point-min) (point-max))) (save-excursion (let ((inhibit-read-only t) b e p ov h l) (goto-char (point-min)) (while (let ((pos (next-single-property-change (point) 'todo-state))) (and pos (goto-char (1+ pos)))) (let ((marker (get-text-property (point) 'org-hd-marker))) (when (and marker (not (with-current-buffer (marker-buffer marker) (save-excursion (goto-char marker) (org-depends-block-todo (list :type 'todo-state-change :position marker :from "TODO" :to "DONE")))))) (setq b (point) e (point-at-eol) ov (org-make-overlay b e)) (org-overlay-put ov 'face 'org-depends-dimmed-todo-face) (org-overlay-put ov 'org-type 'org-blocked-todo))))))) (add-hook 'org-finalize-agenda-hook 'org-depends-dim-blocked-todos) (provide 'org-depends) ;;; org-depends.el ends here --Apple-Mail-1--818899139 Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit --Apple-Mail-1--818899139 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --Apple-Mail-1--818899139--