Pārlūkot izejas kodu

ox-org: Handle export blocks

* lisp/ox-org.el (org-org-export-block): New function.
Nicolas Goaziou 8 gadi atpakaļ
vecāks
revīzija
e4eebe97ec
1 mainītis faili ar 7 papildinājumiem un 0 dzēšanām
  1. 7 0
      lisp/ox-org.el

+ 7 - 0
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."