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

org-e-odt.el: Fix typesetting of Math formulae

This commit is contained in:
Jambunathan K 2012-12-16 02:18:58 +05:30 committed by Bastien Guerry
parent 2b761ceb39
commit 4876e94fee
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
contrib/lisp/org-e-odt.el
View File

@ -2306,21 +2306,18 @@ used as a communication channel."
((file-name-absolute-p raw-path)
(expand-file-name raw-path))
(t raw-path))))
(full-src (if (file-name-absolute-p src) src
(expand-file-name src (file-name-directory
(plist-get info :input-file)))))
(caption-from
(case (org-element-type element)
(link (org-export-get-parent-element element))
(t element)))
(captions (org-e-odt-format-label caption-from info 'definition))
(caption (car captions))
(src-expanded (if (file-name-absolute-p src) src
(expand-file-name src (file-name-directory
(plist-get info :input-file)))))
(href
(format "\n<draw:object %s xlink:href=\"%s\" xlink:type=\"simple\"/>"
" xlink:show=\"embed\" xlink:actuate=\"onLoad\""
(file-name-directory (org-e-odt--copy-formula-file full-src))))
(embed-as (if caption 'paragraph 'character))
(format
"\n<draw:object %s xlink:href=\"%s\" xlink:type=\"simple\"/>"
" xlink:show=\"embed\" xlink:actuate=\"onLoad\""
(file-name-directory (org-e-odt--copy-formula-file src-expanded))))
(standalone-link-p (org-e-odt--standalone-link-p element info))
(embed-as (if standalone-link-p 'paragraph 'character))
(captions (org-e-odt-format-label element info 'definition))
(caption (car captions)) (short-caption (cdr captions))
;; Check if this link was created by LaTeX-to-MathML
;; converter.
(replaces (org-element-property
@ -2347,7 +2344,7 @@ used as a communication channel."
(let* ((org-e-odt-category-map-alist
'(("__MathFormula__" "Text" "math-label" "Equation"
org-e-odt--enumerable-formula-p))))
(car (org-e-odt-format-label caption-from info 'definition)))))
(car (org-e-odt-format-label element info 'definition)))))
(concat equation "<text:tab/>" label))))))
(defun org-e-odt--copy-formula-file (src-file)