mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

org-export: Run export hook with current back-end as argument

Browse Source 
* contrib/lisp/org-export.el (org-export-as): Run export hook with
  current back-end as argument.
* testing/lisp/test-org-export.el: Update test.
This commit is contained in:
Nicolas Goaziou 2012-08-24 10:06:14 +02:00
parent cc839259a4
commit cced6735a7
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
contrib/lisp/org-export.el
View File

@ -2076,10 +2076,14 @@ Any element in `:ignore-list' will be skipped when using
(defvar org-export-before-parsing-hook nil
"Hook run before parsing an export buffer.
This is run after include keywords have been expanded and Babel
code executed, on a copy of original buffer's area being
exported. Visibility is the same as in the original one. Point
is left at the beginning of the new one.")
is left at the beginning of the new one.
Every function in this hook will be called with one argument: the
back-end currently used, as a symbol.")
;;;; Special Filters
@ -2503,7 +2507,6 @@ Return the updated communication channel."
;; associated to the file, that is before parsing.
(defvar org-current-export-file) ; Dynamically scoped
(defvar org-export-current-backend) ; Dynamically scoped
(defun org-export-as
(backend &optional subtreep visible-only body-only ext-plist noexpand)
"Transcode current Org buffer into BACKEND code.
@ -2561,10 +2564,11 @@ Return code as a string."
(let ((org-current-export-file buf))
(org-export-blocks-preprocess)))
(goto-char (point-min))
;; Run hook with `org-export-current-backend' set
;; to BACKEND.
(let ((org-export-current-backend backend))
(run-hooks 'org-export-before-parsing-hook))
;; Run hook
;; `org-export-before-parsing-hook'. with current
;; back-end as argument.
(run-hook-with-args
'org-export-before-parsing-hook backend)
;; Eventually parse buffer.
(org-element-parse-buffer nil visible-only)))))
;; 3. Call parse-tree filters to get the final tree.

2
testing/lisp/test-org-export.el
View File

@ -407,7 +407,7 @@ body\n")))
(org-test-with-backend test
(org-test-with-temp-text "* Headline 1\nBody 1\n* Headline 2\nBody 2"
(let ((org-export-before-parsing-hook
'((lambda ()
'((lambda (backend)
(org-map-entries
(lambda ()
(delete-region (point) (progn (forward-line) (point)))))))))