From ec752bc75dd14b5339256e4845632e7fa09f3b44 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 30 Apr 2016 11:48:20 -0300
Subject: [PATCH] [Fix #47] Add beacon-before-blink-hook

---
 beacon.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/beacon.el b/beacon.el
index 6c35e2b29..54c9cdec7 100644
--- a/beacon.el
+++ b/beacon.el
@@ -166,6 +166,10 @@ predictable ways, when the blink would be more distracting
 than helpful.."
   :type '(repeat symbol))
 
+(defcustom beacon-before-blink-hook nil
+  "Hook run immediately before blinking the beacon."
+  :type 'hook)
+
 
 ;;; Internal variables
 (defvar beacon--window-scrolled nil)
@@ -321,6 +325,7 @@ unconditionally (even if `beacon-mode' is disabled), and this can
 be invoked as a user command or called from lisp code."
   (interactive)
   (beacon--vanish)
+  (run-hooks 'beacon-before-blink-hook)
   (beacon--shine)
   (setq beacon--timer
         (run-at-time beacon-blink-delay
-- 
2.39.2