[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 6a82d17c89 1/3: ob-tangle: New tangle-finished hook
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 6a82d17c89 1/3: ob-tangle: New tangle-finished hook |
Date: |
Fri, 23 Sep 2022 08:57:52 -0400 (EDT) |
branch: externals/org
commit 6a82d17c8906fac9c1d7fe65313a9ddcf4b34d56
Author: TEC <git@tecosaur.net>
Commit: TEC <git@tecosaur.net>
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)