mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

ox-texinfo: Do not add @node for unnumbered headings

Browse Source 
* lisp/ox-texinfo.el (org-texinfo-headline): Do not add @node for
  unnumbered headings.
This commit is contained in:
Nicolas Goaziou 2017-09-10 19:17:44 +02:00
parent bd2378161e
commit c6e5639b7e
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/ox-texinfo.el
View File

@ -871,6 +871,7 @@ holding contextual information."
(todo-type (and todo (org-element-property :todo-type headline)))
(tags (and (plist-get info :with-tags)
(org-export-get-tags headline info)))
(numbered? (org-export-numbered-headline-p headline info))
(priority (and (plist-get info :with-priority)
(org-element-property :priority headline)))
(text (org-texinfo--sanitize-title
@ -888,18 +889,19 @@ holding contextual information."
(format "\n@printindex %s\n" index))))))
(cond
((eq section-fmt 'plain-list)
(let ((numbered? (org-export-numbered-headline-p headline info)))
(concat (and (org-export-first-sibling-p headline info)
(format "@%s\n" (if numbered? 'enumerate 'itemize)))
"@item\n" full-text "\n"
contents
(if (org-export-last-sibling-p headline info)
(format "@end %s" (if numbered? 'enumerate 'itemize))
"\n"))))
(concat (and (org-export-first-sibling-p headline info)
(format "@%s\n" (if numbered? 'enumerate 'itemize)))
"@item\n" full-text "\n"
contents
(if (org-export-last-sibling-p headline info)
(format "@end %s" (if numbered? 'enumerate 'itemize))
"\n")))
(t
(concat (format "@node %s\n" (org-texinfo--get-node headline info))
(format section-fmt full-text)
contents)))))))
(concat
(and numbered?
(format "@node %s\n" (org-texinfo--get-node headline info)))
(format section-fmt full-text)
contents)))))))
(defun org-texinfo-format-headline-default-function
(todo _todo-type priority text tags)