|
@@ -847,8 +847,21 @@ Paragraph <2012-03-29 Thu>[2012-03-29 Thu]"
|
|
|
(org-export-create-backend
|
|
|
:transcoders
|
|
|
'((subscript . (lambda (s c i) "dummy"))
|
|
|
- (template . (lambda (c i) (org-export-data
|
|
|
- (plist-get i :title) i)))
|
|
|
+ (template . (lambda (c i)
|
|
|
+ (org-export-data (plist-get i :title) i)))
|
|
|
+ (section . (lambda (s c i) c))))
|
|
|
+ nil nil nil '(:with-sub-superscript nil)))))
|
|
|
+ (should
|
|
|
+ (equal "a_b"
|
|
|
+ (org-test-with-temp-text "#+FOO: a_b"
|
|
|
+ (org-export-as
|
|
|
+ (org-export-create-backend
|
|
|
+ :options
|
|
|
+ '((:foo "FOO" nil nil parse))
|
|
|
+ :transcoders
|
|
|
+ '((subscript . (lambda (s c i) "dummy"))
|
|
|
+ (template . (lambda (c i)
|
|
|
+ (org-export-data (plist-get i :foo) i)))
|
|
|
(section . (lambda (s c i) c))))
|
|
|
nil nil nil '(:with-sub-superscript nil)))))
|
|
|
;; Objects in parsed keywords are "uninterpreted" before filters are
|