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

contrib/lisp/org-element: Re-order a function within the file

Browse source
This commit is contained in:
Nicolas Goaziou 2011-12-01 15:42:06 +01:00
parent b1f2903392
commit 816f60b0c7
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/lisp/org-element.el
View file

@ -254,6 +254,7 @@ CONTENTS is the contents of the element."
contents)) contents))
;;;; Footnote Definition ;;;; Footnote Definition
(defun org-element-footnote-definition-parser () (defun org-element-footnote-definition-parser ()
"Parse a footnote definition. "Parse a footnote definition.
@ -283,6 +284,12 @@ a plist containing `:label', `:begin' `:end', `:contents-begin',
:post-blank ,(count-lines contents-end end) :post-blank ,(count-lines contents-end end)
,@(cadr keywords)))))) ,@(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 ;;;; Headline
@ -1555,6 +1562,7 @@ its beginning position."
(throw 'exit (cons 'export-snippet (match-beginning 0)))))))) (throw 'exit (cons 'export-snippet (match-beginning 0))))))))
;;;; Footnote Reference ;;;; Footnote Reference
(defun org-element-footnote-reference-parser () (defun org-element-footnote-reference-parser ()
"Parse footnote reference at point. "Parse footnote reference at point.
@ -1581,12 +1589,7 @@ with `:label', `:type', `:definition', `:begin', `:end' and
:post-blank ,post-blank :post-blank ,post-blank
:raw-definition ,raw-def))))) :raw-definition ,raw-def)))))
(defun org-element-footnote-definition-interpreter (footnote-definition contents) (defun org-element-footnote-reference-interpreter (footnote-reference 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)
"Interpret FOOTNOTE-REFERENCE object as Org syntax. "Interpret FOOTNOTE-REFERENCE object as Org syntax.
CONTENTS is nil." CONTENTS is nil."
(let ((label (or (org-element-get-property :label footnote-reference) (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)) (when (setq fn-ref (org-footnote-get-next-reference nil nil limit))
(cons 'footnote-reference (nth 1 fn-ref))))) (cons 'footnote-reference (nth 1 fn-ref)))))
;;;; Inline Babel Call ;;;; Inline Babel Call
(defun org-element-inline-babel-call-parser () (defun org-element-inline-babel-call-parser ()
"Parse inline babel call at point. "Parse inline babel call at point.