From mboxrd@z Thu Jan 1 00:00:00 1970 From: matiyam Subject: Not archiving incompletes TODOs by accident with org-archive-subtree Date: Thu, 29 Mar 2007 12:59:38 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7Bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HWsTw-0002fG-FG for emacs-orgmode@gnu.org; Thu, 29 Mar 2007 07:07:52 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HWsTv-0002eP-NR for emacs-orgmode@gnu.org; Thu, 29 Mar 2007 07:07:52 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HWsTv-0002eH-JY for emacs-orgmode@gnu.org; Thu, 29 Mar 2007 06:07:51 -0500 Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1HWsRK-0002HV-6Z for emacs-orgmode@gnu.org; Thu, 29 Mar 2007 07:05:10 -0400 Received: from root by ciao.gmane.org with local (Exim 4.43) id 1HWsRC-0004LK-5c for emacs-orgmode@gnu.org; Thu, 29 Mar 2007 13:05:02 +0200 Received: from 240.pool80-103-154.dynamic.orange.es ([80.103.154.240]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 29 Mar 2007 13:05:02 +0200 Received: from matiyam by 240.pool80-103-154.dynamic.orange.es with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 29 Mar 2007 13:05:02 +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 Hi! I have sometimes archives some headings with incompleted TODOs by accident. I find that calling C-u C-c C-x C-s (org-archive-subtree with finde-done = t) is a lot of typing that C-c $ . So, to avoid this, i have introduced a new variable, org-archive-subtree-always-call-find-done, so that when it's set to 't , org-archive-subtree will always behave as if called with find-done set to 't. (By default is set to nil, so org-archive-subtree will behave as always for the rest of the world) Maybe it's interesting to somebody, and it's a really small patch: (Against 4.69 version) === modified file 'org.el' --- org.el 2007-03-29 10:29:19 +0000 +++ org.el 2007-03-29 10:48:40 +0000 @@ -618,6 +618,12 @@ :group 'org-archive :type 'boolean) +(defcustom org-archive-subtree-always-call-find-done nil + "Non-nil will make that calling org-archive-subtree behaves as if called with param find-done=t." + :group 'org-archive + :type 'boolean) + + (defgroup org-table nil "Options concerning tables in Org-mode." :tag "Org Table" @@ -5566,7 +5572,7 @@ 1 trees. If the cursor is on a headline, only try the direct children of this heading. " (interactive "P") - (if find-done + (if (or find-done org-archive-subtree-always-call-find-done) (org-archive-all-done) ;; Save all relevant TODO keyword-relatex variables Thanks a lot for org-mode, it's great!! -- M