Режим Org: исключить определенные заголовки из оглавления при экспорте

В: Как я могу сказать, org-modeчтобы исключить определенные заголовки из оглавления при экспорте?

Например, экспорт

* Headline 1: Put me in TOC
* Headline 2: Put me in TOC
* Headline 3: DO NOT put me in TOC

в HTML выдает

...
<div id="text-table-of-contents">
  <ul>
    <li><a href="#sec-1">1. Headline 1: Put me in TOC</a></li>
    <li><a href="#sec-2">2. Headline 2: Put me in TOC</a></li>
    <li><a href="#sec-3">3. Headline 3: DO NOT put me in TOC</a></li>
  </ul>
</div>
...

но я хочу это произвести

...
<div id="text-table-of-contents">
  <ul>
    <li><a href="#sec-1">1. Headline 1: Put me in TOC</a></li>
    <li><a href="#sec-2">2. Headline 2: Put me in TOC</a></li>
  </ul>
</div>
...

Содержание раздела org-modeруководства не имеет никакой информации об этом.

Кроме того, я знаю, что могу не org-modeэкспортировать заголовки, задав COMMENTключевое слово с помощью C-c ;( org-toggle-comment) или пометив их тегами :noexport:. Хотя это не позволяет отображаться в оглавлении затронутых заголовков, это также приводит к тому, что их содержимое будет исключено из итогового документа, а это не то, что мне нужно.

Орг использует org-export-collect-headlinesдля сбора заголовков, которые должны быть в оглавлении. Эта функция уже включает два критерия для исключения заголовков: глубина заголовка и является ли это «разделом сноски» (*), поэтому легко добавить еще один.

Смотрите модифицированную версию org-export-collect-headlinesниже. Эта версия позволяет предотвратить появление заголовка в оглавлении путем установки NOTOCсвойства.

* Section 1: shows up in the TOC

* Section 2: modified Org code (not in the TOC)
  :PROPERTIES:
  :NOTOC:    t
  :END:

  This is the modified =org-export-collect-headlines=:

  #+BEGIN_SRC elisp
  (defun org-export-collect-headlines (info &optional n)
    "Collect headlines in order to build a table of contents. [...]

  Return a list of all exportable headlines as parsed elements.
  Footnote sections, if any, will be ignored."
    (let ((limit (plist-get info :headline-levels)))
      (setq n (if (wholenump n) (min n limit) limit))
      (org-element-map (plist-get info :parse-tree) 'headline
        #'(lambda (headline)
            (unless (or (org-element-property :NOTOC headline)               ; new condition
                        (org-element-property :footnote-section-p headline)) ; old condition
              (let ((level (org-export-get-relative-level headline info)))
                (and (<= level n) headline))))
        info)))
  #+END_SRC

** Sub-section
   This shows up in the TOC: property inheritance is off by default.

(*) Хотя я не знаю, что такое «сноски».

Это работает для экспортных бэкэндов, которые создают оглавление вручную. Бэкэнды LaTeX, Beamer и Texinfo этого не делают.

Добавив этот совет, org-export-numbered-headline-pможно создавать заголовки с UNNUMBEREDэкспортом свойств как \section*{...}, исключая их из оглавления при экспорте в LaTeX и Beamer:

(advice-add 'org-export-numbered-headline-p :around
            (lambda (orig headline info)
              (and (funcall orig headline info)
                   (not (org-element-property :UNNUMBERED headline)))))

Обратите внимание, что по состоянию на 2014-10-03 20:06:34 (GMT) проверка UNNUMBERED уже встроена