From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Archive subtree and move to next visible task Date: Wed, 8 Jul 2009 06:52:16 +0200 Message-ID: <9608E452-2BDE-4E58-8F28-2D98EC27D26C@gmail.com> References: <1247004016-7384-1-git-send-email-bernt@norang.ca> Mime-Version: 1.0 (Apple Message framework v935.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MOP8s-0005pk-DI for emacs-orgmode@gnu.org; Wed, 08 Jul 2009 00:52:26 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MOP8n-0005ni-N2 for emacs-orgmode@gnu.org; Wed, 08 Jul 2009 00:52:26 -0400 Received: from [199.232.76.173] (port=56614 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MOP8n-0005nb-I8 for emacs-orgmode@gnu.org; Wed, 08 Jul 2009 00:52:21 -0400 Received: from ey-out-1920.google.com ([74.125.78.147]:23065) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MOP8n-00037a-0z for emacs-orgmode@gnu.org; Wed, 08 Jul 2009 00:52:21 -0400 Received: by ey-out-1920.google.com with SMTP id 3so1111071eyh.36 for ; Tue, 07 Jul 2009 21:52:19 -0700 (PDT) In-Reply-To: <1247004016-7384-1-git-send-email-bernt@norang.ca> 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: Bernt Hansen Cc: emacs-orgmode@gnu.org Applied, thanks - Carsten On Jul 8, 2009, at 12:00 AM, Bernt Hansen wrote: > This skips over blank lines preceeding the next task when archiving > a task or > subtree. This allows us to use a keyboard macro to remember the > archive key > sequence incantation and skips to the next heading so we don't > accidentally > archive the wrong task. > > This fixes an issue with blank line handling. Tasks which have > blank lines > following them do not include the blank lines -- they are part of > the following > task. This moves the point forward to the next visible headline so > that if we > repeat the archive operation it affects the following task and not > the previous > one by mistake. > --- > This patch is available at git://git.norang.ca/org-mode for-carsten > > lisp/org-archive.el | 8 ++++++-- > 1 files changed, 6 insertions(+), 2 deletions(-) > > diff --git a/lisp/org-archive.el b/lisp/org-archive.el > index 2c55a5c..35de4f9 100644 > --- a/lisp/org-archive.el > +++ b/lisp/org-archive.el > @@ -308,7 +308,9 @@ this heading." > (if (eq this-buffer buffer) > (concat "under heading: " heading) > (concat "in file: " (abbreviate-file-name afile)))))) > - (org-reveal)) > + (org-reveal) > + (if (looking-at "^[ \t]*$") > + (outline-next-visible-heading 1))) > > (defun org-archive-to-archive-sibling () > "Archive the current heading by moving it under the archive sibling. > @@ -360,7 +362,9 @@ sibling does not exist, it will be created at > the end of the subtree." > (hide-subtree) > (org-cycle-show-empty-lines 'folded) > (goto-char pos))) > - (org-reveal)) > + (org-reveal) > + (if (looking-at "^[ \t]*$") > + (outline-next-visible-heading 1))) > > (defun org-archive-all-done (&optional tag) > "Archive sublevels of the current tree without open TODO items. > -- > 1.6.3.2.198.g6096d > > > > _______________________________________________ > 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