From a6b566a4eca0dcc89a7d2af42e057b4e2561189d Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 24 Oct 2016 21:23:07 -0400
Subject: Add bog-clean-bib-hook

---
 NEWS   |  3 +++
 bog.el | 10 +++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3