From: Rasmus <rasmus@gmx.us>
To: emacs-orgmode@gnu.org
Subject: Re: ignoreheading in LaTeX export
Date: Thu, 27 Mar 2014 22:51:27 +0100 [thread overview]
Message-ID: <87lhvvjoo0.fsf@gmx.us> (raw)
In-Reply-To: m2ppl790t4.fsf@polytechnique.org
Alan Schmitt <alan.schmitt@polytechnique.org> writes:
> Nicolas Goaziou <n.goaziou@gmail.com> writes:
>
>> I suggest to use the dedicated MATCH argument for `org-map-entries':
>>
>> (defun as/delete-ignored-heading (backend)
>> "Remove every headline with a tag `ignoreheading' in the
>> current buffer. BACKEND is the export back-end being used, as
>> a symbol."
>> (org-map-entries
>> (lambda () (delete-region (point) (progn (forward-line) (point))))
>> "+ignoreheading"))
>
> Thank you, this works, with a big caveat (which makes this approach
> broken for me): with the following ECM
>
> * No Export :noexport:
>
> test
>
> * Heading 1 :ignoreheading:
>
> foo
>
> * Heading 2
>
> bar
>
> the text under "Heading 1" is no longer present. I suspect the heading is
> removed before the ":noexport:" is processed, which captures the text as
> well (which is bad: the reason for the heading in the first place is to
> end the ":noexport:" block). I went back to the stack-overflow
> suggestion.
This is why you would want to use a filter rather than a hook
(i.e. you only want to retain the Org structure when exporting).
Here's a slightly modified version of the filter I use. It sucks, but
ignoreheading is quite hard to get right, especially outside of LaTeX.
Note the comment in the first defun! If you are unhappy with that
limitation you can use a regexp to look for ignoreheading in the first
line of org-ignoreheading function. I think I even have an old
version somewhere that uses a regexp.
(defun rasmus/get-org-headline-string-element (headline backend info)
"Return the org element representation of an element.
Will NOT work with headlines like this one, that has no text-properties
* =verb="
(let ((prop-point (next-property-change 0 headline)))
(if prop-point (plist-get (text-properties-at prop-point headline) :parent))))
(defun rasmus/org-latex-ignoreheading (headline backend info)
"Strip headline from HEADLINE if it has tag ignoreheading.
Somewhat broken for ascii. . .
"
(when (org-export-derived-backend-p backend 'latex 'ascii)
(let ((tags
(org-element-property :tags
(rasmus/get-org-headline-string-element headline backend info))))
(when (and tags (member-ignore-case "ignoreheading" tags))
(string-match "\\`.*\n.*\n" headline)
(replace-match "" nil nil headline)))))
(add-to-list 'org-export-filter-headline-functions
'rasmus/org-latex-ignoreheading)
—Rasmus
--
Sådan en god dansk lagereddike kan man slet ikke bruge mere
next prev parent reply other threads:[~2014-03-27 21:49 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-03-27 8:23 ignoreheading in LaTeX export Alan Schmitt
2014-03-27 8:49 ` Nicolas Goaziou
2014-03-27 10:23 ` Sebastien Vauban
2014-03-27 10:48 ` Nicolas Goaziou
2014-03-27 13:08 ` Alan Schmitt
2014-03-27 13:28 ` Nicolas Goaziou
2014-03-27 14:24 ` Alan Schmitt
2014-03-27 21:51 ` Rasmus [this message]
2014-03-29 9:48 ` Alan Schmitt
2014-03-29 14:17 ` Marcin Borkowski
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=87lhvvjoo0.fsf@gmx.us \
--to=rasmus@gmx.us \
--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
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).