tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-footnote: better normalization during export 

* lisp/org-footnote.el (org-footnote-normalize): remember footnotes
  seen so far by the exporter when choosing the new marker.
This commit is contained in:
Nicolas Goaziou 2011-06-26 18:44:27 +02:00
parent 28bfc26024
commit 06a4c2c8d0
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-footnote.el
View File

@ -508,10 +508,11 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
(outline-regexp
(concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))
;; Determine the highest marker used so far.
(count (if (and pre-process-p org-export-footnotes-markers)
(apply 'max (mapcar 'car org-export-footnotes-markers))
(ref-table (when pre-process-p org-export-footnotes-markers))
(count (if (and pre-process-p ref-table)
(apply 'max (mapcar (lambda (e) (nth 1 e)) ref-table))
0))
ref-table ins-point ref)
ins-point ref)
(save-excursion
;; 1. Find every footnote reference, extract the definition, and
;; collect that data in REF-TABLE. If SORT-ONLY is nil, also
@ -629,10 +630,7 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
;; When exporting, add newly insert markers along with their
;; associated definition to `org-export-footnotes-markers'.
(when pre-process-p
(setq org-export-footnotes-markers
(append (mapcar (lambda (ref) (cons (nth 1 ref) (nth 2 ref)))
ref-table)
org-export-footnotes-markers))))
(setq org-export-footnotes-markers ref-table)))
;; Else, insert each definition at the end of the section
;; containing their first reference. Happens only in Org
;; files with no special footnote section, and only when