diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-12-01 15:42:06 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-12-01 15:42:06 +0100 |
commit | 816f60b0c76c9b9713d3155fd0ac280116ef50fb (patch) | |
tree | b7b700465d7f9c765e57a2a9298deb7deb054221 | |
parent | b1f2903392b9e1682dead2a78764d11a50354a51 (diff) | |
download | org-mode-816f60b0c76c9b9713d3155fd0ac280116ef50fb.tar.gz |
contrib/lisp/org-element: Re-order a function within the file
-rw-r--r-- | contrib/lisp/org-element.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index f748908..9b4d0b0 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -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. |