From 6a82d17c8906fac9c1d7fe65313a9ddcf4b34d56 Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 27 Aug 2022 11:15:23 +0800 Subject: [PATCH] ob-tangle: New tangle-finished hook * lisp/ob-tangle.el (org-babel-tangle, org-babel-tangle-finished-hook): Create a new hook, `org-babel-tangle-finished-hook', and run it at the end of `org-babel-tangle'. (org-babel-pre-tangle-hook): Update docstring to mention buffer the hook is run in, to match the docstring of `org-babel-tangle-finished-hook`. --- lisp/ob-tangle.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 29c764ecb8..3240b994eb 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -78,7 +78,7 @@ then the name of the language is used." :type 'hook) (defcustom org-babel-pre-tangle-hook '(save-buffer) - "Hook run at the beginning of `org-babel-tangle'." + "Hook run at the beginning of `org-babel-tangle' in the original buffer." :group 'org-babel :version "24.1" :type 'hook) @@ -89,6 +89,13 @@ then the name of the language is used." :version "24.1" :type 'hook) +(defcustom org-babel-tangle-finished-hook nil + "Hook run at the very end of `org-babel-tangle' in the original buffer. +In this way, it is the counterpart to `org-babel-pre-tangle-hook'." + :group 'org-babel + :package-version '(Org . "9.6") + :type 'hook) + (defcustom org-babel-tangle-comment-format-beg "[[%link][%source-name]]" "Format of inserted comments in tangled code files. The following format strings can be used to insert special @@ -322,6 +329,7 @@ matching a regular expression." (org-babel-with-temp-filebuffer file (run-hooks 'org-babel-post-tangle-hook))) path-collector)) + (run-hooks 'org-babel-tangle-finished-hook) path-collector)))) (defun org-babel-interpret-file-mode (mode)