forked from mirrors/org-mode
Export: LaTeX fragment images are inlined again.
This commit is contained in:
parent
317f08c69b
commit
19bda1c361
|
@ -2,6 +2,8 @@
|
||||||
|
|
||||||
* org-exp.el (org-export-remove-or-extract-drawers): Only remove
|
* org-exp.el (org-export-remove-or-extract-drawers): Only remove
|
||||||
drawers that are unprotected.
|
drawers that are unprotected.
|
||||||
|
(org-export-html-format-image): Make sure inlined LaTeX fragment
|
||||||
|
images remain inlined.
|
||||||
|
|
||||||
* org.el (org-toggle-ordered-property): New function.
|
* org.el (org-toggle-ordered-property): New function.
|
||||||
(org-mode-map): Add a key for `org-toggle-ordered-property'.
|
(org-mode-map): Add a key for `org-toggle-ordered-property'.
|
||||||
|
|
|
@ -4036,18 +4036,20 @@ lang=\"%s\" xml:lang=\"%s\">
|
||||||
(defun org-export-html-format-image (src)
|
(defun org-export-html-format-image (src)
|
||||||
"Create image tag with source and attributes."
|
"Create image tag with source and attributes."
|
||||||
(save-match-data
|
(save-match-data
|
||||||
(let* ((caption (org-find-text-property-in-string 'org-caption src))
|
(if (string-match "^ltxpng/" src)
|
||||||
(attr (org-find-text-property-in-string 'org-attributes src))
|
(format "<img src=\"%s\"/>" src)
|
||||||
(label (org-find-text-property-in-string 'org-label src)))
|
(let* ((caption (org-find-text-property-in-string 'org-caption src))
|
||||||
(format "<div %sclass=\"figure\">
|
(attr (org-find-text-property-in-string 'org-attributes src))
|
||||||
|
(label (org-find-text-property-in-string 'org-label src)))
|
||||||
|
(format "<div %sclass=\"figure\">
|
||||||
<p><img src=\"%s\"%s /></p>%s
|
<p><img src=\"%s\"%s /></p>%s
|
||||||
</div>"
|
</div>"
|
||||||
(if label (format "id=\"%s\" " label) "")
|
(if label (format "id=\"%s\" " label) "")
|
||||||
src
|
src
|
||||||
(if (string-match "\\<alt=" (or attr ""))
|
(if (string-match "\\<alt=" (or attr ""))
|
||||||
(concat " " attr )
|
(concat " " attr )
|
||||||
(concat " " attr " alt=\"" src "\""))
|
(concat " " attr " alt=\"" src "\""))
|
||||||
(if caption (concat "\n<p>" caption "</p>") "")))))
|
(if caption (concat "\n<p>" caption "</p>") ""))))))
|
||||||
|
|
||||||
(defvar org-table-colgroup-info nil)
|
(defvar org-table-colgroup-info nil)
|
||||||
(defun org-format-table-ascii (lines)
|
(defun org-format-table-ascii (lines)
|
||||||
|
|
Loading…
Reference in New Issue