forked from mirrors/org-mode
org-export-get-footnote-definition: Pre-cache references in parse tree
* lisp/ox.el (org-export-get-footnote-definition): Pre-process parse tree once to filter out all non-footnote elements. This speeds up subsequent footnote definition searches.
This commit is contained in:
parent
147ca39750
commit
f51c286716
39
lisp/ox.el
39
lisp/ox.el
|
@ -3754,28 +3754,33 @@ definition can be found, raise an error."
|
||||||
(if (not label) (org-element-contents footnote-reference)
|
(if (not label) (org-element-contents footnote-reference)
|
||||||
(let ((cache (or (plist-get info :footnote-definition-cache)
|
(let ((cache (or (plist-get info :footnote-definition-cache)
|
||||||
(let ((hash (make-hash-table :test #'equal)))
|
(let ((hash (make-hash-table :test #'equal)))
|
||||||
|
;; Cache all the footnotes in document for
|
||||||
|
;; later search.
|
||||||
|
(org-element-map (plist-get info :parse-tree)
|
||||||
|
'(footnote-definition footnote-reference)
|
||||||
|
(lambda (f)
|
||||||
|
;; Skip any standard footnote reference
|
||||||
|
;; since those cannot contain a
|
||||||
|
;; definition.
|
||||||
|
(unless (eq (org-element-property :type f) 'standard)
|
||||||
|
(puthash
|
||||||
|
(cons :element (org-element-property :label f))
|
||||||
|
f
|
||||||
|
hash)))
|
||||||
|
info)
|
||||||
(plist-put info :footnote-definition-cache hash)
|
(plist-put info :footnote-definition-cache hash)
|
||||||
hash))))
|
hash))))
|
||||||
(or
|
(or
|
||||||
(gethash label cache)
|
(gethash label cache)
|
||||||
(puthash label
|
(puthash label
|
||||||
(org-element-map (plist-get info :parse-tree)
|
(let ((hashed (gethash (cons :element label) cache)))
|
||||||
'(footnote-definition footnote-reference)
|
(when hashed
|
||||||
(lambda (f)
|
(or (org-element-contents hashed)
|
||||||
(cond
|
;; Even if the contents are empty, we can not
|
||||||
;; Skip any footnote with a different label.
|
;; return nil since that would eventually raise
|
||||||
;; Also skip any standard footnote reference
|
;; the error. Instead, return the equivalent
|
||||||
;; with the same label since those cannot
|
;; empty string.
|
||||||
;; contain a definition.
|
"")))
|
||||||
((not (equal (org-element-property :label f) label)) nil)
|
|
||||||
((eq (org-element-property :type f) 'standard) nil)
|
|
||||||
((org-element-contents f))
|
|
||||||
;; Even if the contents are empty, we can not
|
|
||||||
;; return nil since that would eventually raise
|
|
||||||
;; the error. Instead, return the equivalent
|
|
||||||
;; empty string.
|
|
||||||
(t "")))
|
|
||||||
info t)
|
|
||||||
cache)
|
cache)
|
||||||
(error "Definition not found for footnote %s" label))))))
|
(error "Definition not found for footnote %s" label))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue