branch: master commit ec752bc75dd14b5339256e4845632e7fa09f3b44 Author: Artur Malabarba <bruce.connor...@gmail.com> Commit: Artur Malabarba <bruce.connor...@gmail.com>
[Fix #47] Add beacon-before-blink-hook --- beacon.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/beacon.el b/beacon.el index 6c35e2b..54c9cde 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