branch: master
commit e2fb73d2f8fff2e604e9d59f55f7275e8999b04b
Merge: 22e3257 16be7a1
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Merge commit '16be7a12d0dbbbd0e59fc2ccf9a7c7085eb9cf5a'
---
packages/beacon/beacon.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el
index 6c35e2b..8126c43 100644
--- a/packages/beacon/beacon.el
+++ b/packages/beacon/beacon.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <em...@endlessparentheses.com>
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
-;; Version: 1.2.1
+;; Version: 1.3.0
;; Package-Requires: ((seq "2.14"))
;; This program is free software; you can redistribute it and/or modify
@@ -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
