mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Refactor org-export-odt-preprocess 

* contrib/lisp/org-odt.el
(org-export-odt-preprocess-latex-fragments)
(org-export-odt-preprocess-label-references): New
routines. Factored out of the earlier
org-export-odt-preprocess.
(org-export-odt-preprocess): Use above functions.

Preparing for enabling of captions and labels for latex fragments
embedded as images.
This commit is contained in:
Jambunathan K 2011-08-27 14:26:41 +05:30
parent cfe467c01d
commit 457af1b109
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-odt.el
View File

@ -1663,7 +1663,7 @@ visually."
(substring label (match-beginning 1))))))
(defvar org-lparse-latex-fragment-fallback) ; set by org-do-lparse
(defun org-export-odt-preprocess (parameters)
(defun org-export-odt-preprocess-latex-fragments (parameters)
"Convert LaTeX fragments to images."
(when (and org-current-export-file
(plist-get parameters :LaTeX-fragments))
@ -1685,7 +1685,9 @@ visually."
(format "Using %S instead." org-lparse-latex-fragment-fallback)))
org-lparse-latex-fragment-fallback)
((eq (plist-get parameters :LaTeX-fragments) 'dvipng ) 'dvipng)
(t nil))))
(t nil)))))
(defun org-export-odt-preprocess-label-references ()
(goto-char (point-min))
(let (label label-components category value pretty-label)
(while (re-search-forward "\\\\ref{\\([^{}\n]+\\)}" nil t)
@ -1701,6 +1703,10 @@ visually."
'("<text:sequence-ref text:reference-format=\"category-and-value\" text:ref-name=\"%s\">"
. "</text:sequence-ref>") pretty-label label)) t t)))))
(defun org-export-odt-preprocess (parameters)
(org-export-odt-preprocess-latex-fragments parameters)
(org-export-odt-preprocess-label-references))
(declare-function archive-zip-extract "arc-mode.el" (archive name))
(defun org-odt-zip-extract-one (archive member &optional target)
(require 'arc-mode)