|
@@ -136,7 +136,11 @@ be exported."
|
|
|
:group 'org-export-general
|
|
|
:type 'list)
|
|
|
|
|
|
-(defvar org-export-blocks-postblock-hooks nil "")
|
|
|
+(defcustom org-export-blocks-postblock-hook nil
|
|
|
+ "Run after blocks have been processed with
|
|
|
+`org-export-blocks-preprocess'."
|
|
|
+ :group 'org-export-general
|
|
|
+ :type 'hook)
|
|
|
|
|
|
(defun org-export-blocks-html-quote (body &optional open close)
|
|
|
"Protext BODY from org html export. The optional OPEN and
|
|
@@ -194,7 +198,8 @@ specified in BLOCKS which default to the value of
|
|
|
(indent-code-rigidly
|
|
|
(match-beginning 0) (match-end 0) indentation)))))
|
|
|
(setq start (match-end 0)))
|
|
|
- (interblock start (point-max))))))
|
|
|
+ (interblock start (point-max))
|
|
|
+ (run-hooks org-export-blocks-postblock-hooks)))))
|
|
|
|
|
|
(add-hook 'org-export-preprocess-hook 'org-export-blocks-preprocess)
|
|
|
|