forked from mirrors/org-mode
contrib/lisp/org-element: Re-order a function within the file
This commit is contained in:
parent
b1f2903392
commit
816f60b0c7
|
@ -254,6 +254,7 @@ CONTENTS is the contents of the element."
|
|||
contents))
|
||||
|
||||
;;;; Footnote Definition
|
||||
|
||||
(defun org-element-footnote-definition-parser ()
|
||||
"Parse a footnote definition.
|
||||
|
||||
|
@ -283,6 +284,12 @@ a plist containing `:label', `:begin' `:end', `:contents-begin',
|
|||
:post-blank ,(count-lines contents-end end)
|
||||
,@(cadr keywords))))))
|
||||
|
||||
(defun org-element-footnote-definition-interpreter (footnote-definition contents)
|
||||
"Interpret FOOTNOTE-DEFINITION element as Org syntax.
|
||||
CONTENTS is the contents of the footnote-definition."
|
||||
(concat (format "[%s]" (org-element-get-property :label footnote-definition))
|
||||
" "
|
||||
contents))
|
||||
|
||||
|
||||
;;;; Headline
|
||||
|
@ -1555,6 +1562,7 @@ its beginning position."
|
|||
(throw 'exit (cons 'export-snippet (match-beginning 0))))))))
|
||||
|
||||
;;;; Footnote Reference
|
||||
|
||||
(defun org-element-footnote-reference-parser ()
|
||||
"Parse footnote reference at point.
|
||||
|
||||
|
@ -1581,12 +1589,7 @@ with `:label', `:type', `:definition', `:begin', `:end' and
|
|||
:post-blank ,post-blank
|
||||
:raw-definition ,raw-def)))))
|
||||
|
||||
(defun org-element-footnote-definition-interpreter (footnote-definition contents)
|
||||
"Interpret FOOTNOTE-DEFINITION element as Org syntax.
|
||||
CONTENTS is the contents of the footnote-definition."
|
||||
(concat (format "[%s]" (org-element-get-property :label footnote-definition))
|
||||
" "
|
||||
contents))(defun org-element-footnote-reference-interpreter (footnote-reference contents)
|
||||
(defun org-element-footnote-reference-interpreter (footnote-reference contents)
|
||||
"Interpret FOOTNOTE-REFERENCE object as Org syntax.
|
||||
CONTENTS is nil."
|
||||
(let ((label (or (org-element-get-property :label footnote-reference)
|
||||
|
@ -1608,6 +1611,7 @@ cdr is beginning position."
|
|||
(when (setq fn-ref (org-footnote-get-next-reference nil nil limit))
|
||||
(cons 'footnote-reference (nth 1 fn-ref)))))
|
||||
|
||||
|
||||
;;;; Inline Babel Call
|
||||
(defun org-element-inline-babel-call-parser ()
|
||||
"Parse inline babel call at point.
|
||||
|
|
Loading…
Reference in New Issue