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