Fwd: Re: How to identify all headings that won't be exported?

[Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2755 bytes --]

Forwarding to list. Somehow reply-all did not actually reply to all
---------- Forwarded message ----------
From: "Jonathan Leech-Pepin" <jonathan.leechpepin@gmail.com>
Date: Jun 26, 2014 4:05 PM
Subject: Re: [O] How to identify all headings that won't be exported?
To: "Thomas S. Dye" <tsd@tsdye.com>
Cc:

Hello Thomas


On 26 June 2014 15:09, Thomas S. Dye <tsd@tsdye.com> wrote:

> Aloha all,
>
> Inspired by John Kitchin's org-ref, I'm working on a little function that
> returns all the pieces of an Org mode file that are candidates for cross
> referencing. The helm package lets me choose from among the candidates
> and then another little function inserts the chosen link.
>
> This all works for me, and I'm finding it really useful.  The only
> slight problem is that I haven't been able to figure out how to
> eliminate all the headings that won't be exported.  You'll see in the
> code below that my simple-minded approach gets all the headings tagged
> :noexport:, but it doesn't understand that the tag is inherited by
> descendants. Is there a practical way to identify descendants for my use
> case?
>
>   (defun tsd-get-names-labels-and-headings ()
>     (interactive)
>     (save-excursion
>       (goto-char (point-min))
>       (let ((matches))
>         (while
>             (re-search-forward "\\#\\+\\(name\\|label\\):\\s-\\(.*\\)"
> (point-max) t)
>           (add-to-list 'matches (match-string-no-properties 2) t))
>         (dolist (heading (org-map-entries 'org-heading-components))
>           (when (and (nth 4 heading) (not (search "noexport"(nth 5
> heading))))
>             (add-to-list 'matches (nth 4 heading))))
>         (dolist (properties (org-map-entries 'org-entry-properties))
>           (when (cdr (assoc "CUSTOM_ID" properties))
>             (add-to-list 'matches
>                          (format "#%s" (cdr (assoc "CUSTOM_ID"
> properties))))))
>         (sort matches 'string<))))
>

For the matching portion itself the following should work:

(org-map-entries (lambda () (org-element-property :raw-value
(org-element-at-point))) (format "-%s" (mapconcat 'identity
org-export-exclude-tags "-")))

Rather than try and search for the tag afterwards, create a string that
will match all non-exporting tags and have them excluded from the match
itself (by default this will be "-noexport" but if you add "test" it will
become "-noexport-test").  It also gives you the exact raw value of the
element.  Using just 'org-element-at-point would give you the entire
element, allowing you to display the :raw-value in your output but also
have the associated :begin to jump to, removing the need to search for the
headline again later on.




> All the best,
> Tom
>
> --
> Thomas S. Dye
> http://www.tsdye.com
>
>

[-- Attachment #2: Type: text/html, Size: 3941 bytes --]