Add before-review-hook

2 files changed, 9 insertions, 0 deletions

diff --git a/Changelog.org b/Changelog.org
index 1e40243..08b1a4d 100644
--- a/Changelog.org
+++ b/Changelog.org
@@ -5,6 +5,9 @@ upcoming changes.
 In case a update to the org sources is needed, I'll add a changelog
 entry with updating instructions.
 
+** [2020-06-28 Sun]
+*** Added
+- ~org-fc-before-review-hook~ that runs when a review session is started
 ** [2020-06-26 Fri]
 *** Changed
 - Messages are not inhibited during review
diff --git a/org-fc.el b/org-fc.el
index 5f1b19d..e995a28 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -198,6 +198,11 @@ Values are in days."
   :type 'hook
   :group 'org-fc)
 
+(defcustom org-fc-before-review-hook '()
+  "Functions run when a review session is started."
+  :type 'hook
+  :group 'org-fc)
+
 (defcustom org-fc-after-review-hook '()
   "Functions run when a review session ends / is quit."
   :type 'hook
@@ -1741,6 +1746,7 @@ Valid contexts:
         (progn
           (setq org-fc-review--current-session
                 (org-fc-make-review-session cards))
+          (run-hooks 'org-fc-before-review-hook)
           (org-fc-review-next-card))))))
 
 ;;;###autoload