From 7dc6748452bfea6538a7ee1b5e67aa250e13b882 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 2 Jan 2016 11:53:24 +0100 Subject: [PATCH] Fix export blocks * lisp/org-element.el (org-element-export-block-parser): Type is always stored in capitals. * testing/lisp/test-ox.el (test-org-export/export-block): Add test. Reported-by: Suvayu Ali --- lisp/org-element.el | 2 +- testing/lisp/test-ox.el | 28 ++++++++++++++++++++++++++++ 2 files changed, 29 insertions(+), 1 deletion(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index d6695c8d0..389f2e3f4 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1968,7 +1968,7 @@ Assume point is at export-block beginning." contents-end))) (list 'export-block (nconc - (list :type backend + (list :type (and backend (upcase backend)) :begin begin :end end :value value diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index b0518deb5..6a09a19f9 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -1743,6 +1743,34 @@ Para2" +;;; Export blocks + +(ert-deftest test-org-export/export-block () + "Test export blocks transcoding." + (should + (equal "Success!\n" + (org-test-with-temp-text + "#+BEGIN_EXPORT backend\nSuccess!\n#+END_EXPORT" + (org-export-as + (org-export-create-backend + :transcoders '((export-block . (lambda (b _c _i) + (org-element-property :value b))) + (section . (lambda (_s c _i) c)))))))) + (should + (equal "Success!\n" + (org-test-with-temp-text + "#+BEGIN_EXPORT backend\nSuccess!\n#+END_EXPORT" + (org-export-as + (org-export-create-backend + :transcoders + (list + (cons 'export-block + (lambda (b _c _i) + (and (equal (org-element-property :type b) "BACKEND") + (org-element-property :value b)))) + (cons 'section (lambda (_s c _i) c))))))))) + + ;;; Export Snippets (ert-deftest test-org-export/export-snippet () -- 2.11.4.GIT