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

org-footnote: Fix references collection 

* lisp/org-footnote.el (org-footnote--collect-references): Include
  inline references at the beginning of the line, which are allowed,
  unlike regular references.
This commit is contained in:
Nicolas Goaziou 2015-12-17 14:33:33 +01:00
parent 8eb318f2d0
commit f229ee8e34
1 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lisp/org-footnote.el
View File

@ -389,31 +389,35 @@ references. In such cases, LABEL is nil.
References are sorted according to a deep-reading order."
(org-with-wide-buffer
(goto-char (point-min))
(let ((regexp (format ".\\[fn:[-_[:word:]]%s[]:]" (if anonymous "*" "+")))
(let ((regexp (if anonymous org-footnote-re "\\[fn:[-_[:word:]]+[]:]"))
references nested)
(save-excursion
(while (re-search-forward regexp nil t)
(backward-char)
(let ((context (org-element-context)))
(when (eq (org-element-type context) 'footnote-reference)
(let* ((label (org-element-property :label context))
(begin (org-element-property :begin context))
(size
(and (eq (org-element-property :type context) 'inline)
(- (org-element-property :contents-end context)
(org-element-property :contents-begin context)))))
(let ((d (org-element-lineage context '(footnote-definition))))
(push (list label (copy-marker begin) (not d) size)
references)
(when d
;; Nested references are stored in alist NESTED.
;; Associations there follow the pattern
;;
;; (DEFINITION-LABEL . REFERENCES)
(let* ((def-label (org-element-property :label d))
(labels (assoc def-label nested)))
(if labels (push label (cdr labels))
(push (list def-label label) nested))))))))))
;; Ignore definitions.
(unless (and (eq (char-before) ?\])
(= (line-beginning-position) (match-beginning 0)))
;; Ensure point is within the reference before parsing it.
(backward-char)
(let ((object (org-element-context)))
(when (eq (org-element-type object) 'footnote-reference)
(let* ((label (org-element-property :label object))
(begin (org-element-property :begin object))
(size
(and (eq (org-element-property :type object) 'inline)
(- (org-element-property :contents-end object)
(org-element-property :contents-begin object)))))
(let ((d (org-element-lineage object '(footnote-definition))))
(push (list label (copy-marker begin) (not d) size)
references)
(when d
;; Nested references are stored in alist NESTED.
;; Associations there follow the pattern
;;
;; (DEFINITION-LABEL . REFERENCES)
(let* ((def-label (org-element-property :label d))
(labels (assoc def-label nested)))
(if labels (push label (cdr labels))
(push (list def-label label) nested)))))))))))
;; Sort the list of references. Nested footnotes have priority
;; over top-level ones.
(letrec ((ordered nil)