diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-13 17:57:11 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-13 17:57:11 +0200 |
commit | e4eebe97ecc737f4e94f81cca53222a4eb416772 (patch) | |
tree | 7f3b1c2d2bb17c550ef10db4818b52f664971444 | |
parent | a540e894b6c75fd5dc611210a7b90130bb626d9f (diff) | |
download | org-mode-e4eebe97ecc737f4e94f81cca53222a4eb416772.tar.gz |
ox-org: Handle export blocks
* lisp/ox-org.el (org-org-export-block): New function.
-rw-r--r-- | lisp/ox-org.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 44e5c66..6ab96ae 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -63,6 +63,7 @@ setting of `org-html-htmlize-output-type' is `css'." (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) + (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) @@ -110,6 +111,12 @@ setting of `org-html-htmlize-output-type' is `css'." (if a (org-org-export-to-org t s v b) (org-open-file (org-org-export-to-org nil s v b)))))))) +(defun org-org-export-block (export-block _contents _info) + "Transcode a EXPORT-BLOCK element from Org to LaTeX. +CONTENTS and INFO are ignored." + (and (equal (org-element-property :type export-block) "ORG") + (org-element-property :value export-block))) + (defun org-org-identity (blob contents _info) "Transcode BLOB element or object back into Org syntax. CONTENTS is its contents, as a string or nil. INFO is ignored." |