summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--NEWS3
-rw-r--r--bog.el10
2 files changed, 12 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 544b932..4ef2784 100644
--- a/NEWS
+++ b/NEWS
@@ -8,6 +8,9 @@ Bog NEWS -- history of user-visible changes -*- mode: org; -*-
make it easier to use Bog commands on citekeys that use Pandoc's
@citekey format.
+- New hook ~bog-clean-bib-hook~ is run for each file processed with
+ ~bog-clean-and-rename-staged-bibs~.
+
** Other changes
- The default value for ~bog-file-secondary-name~ has been changed
diff --git a/bog.el b/bog.el
index 4c5ae25..dd90bbc 100644
--- a/bog.el
+++ b/bog.el
@@ -272,6 +272,13 @@ Like `org-mode-syntax-table', but hyphens and underscores are
treated as word characters. '@' will be considered a word
character if `bog-citekey-format-allow-at' is non-nil.")
+(defcustom bog-clean-bib-hook nil
+ "Hook run during `bog-clean-and-rename-staged-bibs' call.
+After each bib file is processed, functions in this hook will be
+called in a buffer visiting the bib file."
+ :package-version '(bog . "1.3.0")
+ :type 'hook)
+
;;; Citekey methods
@@ -870,7 +877,8 @@ one entry per BibTeX file."
(let ((dir (file-name-directory bib-file)))
(unless (file-exists-p dir)
(make-directory dir)))
- (write-file bib-file))
+ (write-file bib-file)
+ (run-hooks 'bog-clean-bib-hook))
;; If a buffer was visiting the original bib file, point it to the
;; new file.
(let ((file-buf (find-buffer-visiting file)))