From mboxrd@z Thu Jan  1 00:00:00 1970
From: Dan Davison <davison@stats.ox.ac.uk>
Subject: Re: deleting hidden parts of sparse trees
Date: Tue, 8 Jul 2008 18:20:08 +0100
Message-ID: <20080708172008.GA11978@stats.ox.ac.uk>
References: <20080707085512.GA10608@stats.ox.ac.uk>
	<4D539FB1-44C6-4E19-B7A4-C147ED623C0A@uva.nl>
	<F11294FE-384E-4E54-AF75-0C5E6D15696F@uva.nl>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1KGGrQ-0004PT-4v
	for emacs-orgmode@gnu.org; Tue, 08 Jul 2008 13:20:16 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1KGGrN-0004PH-OR
	for emacs-orgmode@gnu.org; Tue, 08 Jul 2008 13:20:14 -0400
Received: from [199.232.76.173] (port=50112 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1KGGrN-0004PE-I0
	for emacs-orgmode@gnu.org; Tue, 08 Jul 2008 13:20:13 -0400
Received: from markov.stats.ox.ac.uk ([163.1.210.1]:36077)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <davison@stats.ox.ac.uk>) id 1KGGrN-0008A6-57
	for emacs-orgmode@gnu.org; Tue, 08 Jul 2008 13:20:13 -0400
Content-Disposition: inline
In-Reply-To: <F11294FE-384E-4E54-AF75-0C5E6D15696F@uva.nl>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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 <dominik@uva.nl>
Cc: emacs org-mode mailing list <emacs-orgmode@gnu.org>

On Mon, Jul 07, 2008 at 09:48:37AM -0700, Carsten Dominik wrote:
>
> On Jul 7, 2008, at 9:44 AM, Carsten Dominik wrote:
>>
<...>
>>
>> Do I need to mention that this will be a dangerous operation, deleting
>> lots of invisible text?  You might find out only ater it is too late
>> to recover.
>
>
> Even much more dangerous then I thought, the command shown above
> actually deletes anything covered by overlays, not only outline
> overlays.  Just one misplaced parenthesis......
>
> Here is the corrected version.
>
> (defun outline-delete-invisible ()
>   "Delete all text covered by overlays with `invisible' property  
> `outline'."
>   (interactive)
>   (let ((ovls (overlays-in (point-min) (point-max))) o)
>     (while (setq o (pop ovls))
>       (and (eq (overlay-get o 'invisible) 'outline)
> 	   (delete-region (overlay-start o) (overlay-end o))))))
>

Excellent! Thanks for the lesson.

My motivation for the request is as follows. I have a 'master' org
file (a database of plant photos arranged in a taxonomic hierarchy),
and I want to publish it as html, together with html versions of
various sparse trees derived from that master file according to tag
matching criteria etc. One option would be to write my own publishing
function, that creates each sparse tree and calls org-export-visible
on it. But I'd be recoding a load of stuff that has already been
addressed by org-publish. However, with the new function, I can create
the org-files corresponding to the sparse trees, and then let
org-publish-org-to-html deal with the master and the derived org files
in one go, which is a much better solution IMO.

DAn

p.s. warning heeded: I copy to a temp buffer, create sparse tree
and delete invisible in there.