forked from mirrors/org-mode
org-export: Properly handle export-block elements
* contrib/lisp/org-e-ascii.el (org-e-ascii-export-block): type attribute is always uppercase. * contrib/lisp/org-e-html.el (org-e-html-export-block): type attribute is always uppercase. * contrib/lisp/org-e-latex.el (org-e-latex-export-block): type attribute is always uppercase. * contrib/lisp/org-e-odt.el (org-e-odt-export-block): type attribute is always uppercase.
This commit is contained in:
parent
557fad288b
commit
212819c5d0
|
@ -1106,7 +1106,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(defun org-e-ascii-export-block (export-block contents info)
|
(defun org-e-ascii-export-block (export-block contents info)
|
||||||
"Transcode a EXPORT-BLOCK element from Org to ASCII.
|
"Transcode a EXPORT-BLOCK element from Org to ASCII.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual information."
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(when (string= (org-element-property :type export-block) "ascii")
|
(when (string= (org-element-property :type export-block) "ASCII")
|
||||||
(org-remove-indentation (org-element-property :value export-block))))
|
(org-remove-indentation (org-element-property :value export-block))))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1963,7 +1963,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(defun org-e-html-export-block (export-block contents info)
|
(defun org-e-html-export-block (export-block contents info)
|
||||||
"Transcode a EXPORT-BLOCK element from Org to HTML.
|
"Transcode a EXPORT-BLOCK element from Org to HTML.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual information."
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(when (string= (org-element-property :type export-block) "latex")
|
(when (string= (org-element-property :type export-block) "HTML")
|
||||||
(org-remove-indentation (org-element-property :value export-block))))
|
(org-remove-indentation (org-element-property :value export-block))))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1064,7 +1064,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(defun org-e-latex-export-block (export-block contents info)
|
(defun org-e-latex-export-block (export-block contents info)
|
||||||
"Transcode a EXPORT-BLOCK element from Org to LaTeX.
|
"Transcode a EXPORT-BLOCK element from Org to LaTeX.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual information."
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(when (string= (org-element-property :type export-block) "latex")
|
(when (string= (org-element-property :type export-block) "LATEX")
|
||||||
(org-remove-indentation (org-element-property :value export-block))))
|
(org-remove-indentation (org-element-property :value export-block))))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -3042,7 +3042,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(defun org-e-odt-export-block (export-block contents info)
|
(defun org-e-odt-export-block (export-block contents info)
|
||||||
"Transcode a EXPORT-BLOCK element from Org to HTML.
|
"Transcode a EXPORT-BLOCK element from Org to HTML.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual information."
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(when (string= (org-element-property :type export-block) "latex")
|
(when (string= (org-element-property :type export-block) "ODT")
|
||||||
(org-remove-indentation (org-element-property :value export-block))))
|
(org-remove-indentation (org-element-property :value export-block))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue