emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: matiyam <matiyam@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Not archiving incompletes TODOs by accident with org-archive-subtree
Date: Thu, 29 Mar 2007 12:59:38 +0200	[thread overview]
Message-ID: <eug66q$sf3$2@sea.gmane.org> (raw)

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

next             reply	other threads:[~2007-03-29 11:07 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2007-03-29 10:59 matiyam [this message]
2007-03-29 14:38 ` Not archiving incompletes TODOs by accident with org-archive-subtree Carsten Dominik

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='eug66q$sf3$2@sea.gmane.org' \
    --to=matiyam@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).