[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ec752bc 1/3: [Fix #47] Add beacon-before-blink-hook
From: |
Artur Malabarba |
Subject: |
[elpa] master ec752bc 1/3: [Fix #47] Add beacon-before-blink-hook |
Date: |
Sat, 30 Apr 2016 14:50:48 +0000 |
branch: master
commit ec752bc75dd14b5339256e4845632e7fa09f3b44
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
[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