diff options
author | Jambunathan K <kjambunathan@gmail.com> | 2011-06-23 21:27:33 +0530 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-06-23 23:10:45 +0200 |
commit | fd2e471a6ff0ba145afbce87e56bedaab8ff7efa (patch) | |
tree | 0e8159f26f89f41ddaeb64beaa45442142bee8f3 | |
parent | 01c2f06ea4331daeb22e2d843b54b6b5cc5eead2 (diff) | |
download | org-mode-fd2e471a6ff0ba145afbce87e56bedaab8ff7efa.tar.gz |
Control insertion point for footnote definitions during pre-process
PATCH-5/5 org-odt compatibility patch
From 22c4feee78ff9a1ab7cc48275ec29d322a3472a1 Mon Sep 17 00:00:00 2001
From: Jambunathan K <kjambunathan@gmail.com>
Date: Thu, 23 Jun 2011 13:17:18 +0530
Subject: [PATCH 5/5] Control insertion point for footnote definitions during pre-process.
* lisp/org-footnote.el
(org-footnote-insert-pos-for-preprocessor): New variable.
(org-footnote-normalize): Use it.
-rw-r--r-- | lisp/org-footnote.el | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 4fe8c91..c973924 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -362,6 +362,9 @@ With prefix arg SPECIAL, offer additional commands in a menu." (org-footnote-goto-previous-reference (nth 1 tmp))) (t (org-footnote-new))))) +(defvar org-footnote-insert-pos-for-preprocessor 'point-max + "See `org-footnote-normalize'.") + ;;;###autoload (defun org-footnote-normalize (&optional sort-only for-preprocessor) "Collect the footnotes in various formats and normalize them. @@ -369,7 +372,20 @@ This finds the different sorts of footnotes allowed in Org, and normalizes them to the usual [N] format that is understood by the Org-mode exporters. When SORT-ONLY is set, only sort the footnote definitions into the -referenced sequence." +referenced sequence. + +When FOR-PREPROCESSOR is non nil, the default action, is to +insert normalized footnotes towards the end of the pre-processing +buffer. Some exporters like docbook, odt etc expect that footnote +definitions be available before any references to them. Such +exporters can let bind `org-footnote-insert-pos-for-preprocessor' +to symbol 'point-min to achieve the desired behaviour. + +Additional note on `org-footnote-insert-pos-for-preprocessor': +1. This variable has not effect when FOR-PREPROCESSOR is nil. +2. This variable (potentially) obviates the need for extra scan + of pre-processor buffer as witnessed in + `org-export-docbook-get-footnotes'." ;; This is based on Paul's function, but rewritten. (let* ((limit-level (and (boundp 'org-inlinetask-min-level) @@ -461,7 +477,12 @@ referenced sequence." (setq ins-point (point)))) ;; Insert the footnotes again - (goto-char (or ins-point (point-max))) + (goto-char (or (and for-preprocessor + (equal org-footnote-insert-pos-for-preprocessor + 'point-min) + (point-min)) + ins-point + (point-max))) (setq ref-table (reverse ref-table)) (when sort-only ;; remove anonymous and inline footnotes from the list |