branch: master
commit e3ab5c3b4a3cf5c6e099534d6c1db5672511f67b
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Improve documentation
---
beacon.el | 18 +++++++++---------
1 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/beacon.el b/beacon.el
index eb08d1a..ffdbcbc 100644
--- a/beacon.el
+++ b/beacon.el
@@ -44,13 +44,6 @@
:group 'emacs
:prefix "beacon-")
-(defface beacon-fallback
- '((((class color) (background light))
- (:background "black"))
- (((class color) (background dark))
- (:background "white")))
- "Fallback background color")
-
(defvar beacon--timer nil)
(defcustom beacon-push-mark 35
@@ -110,6 +103,13 @@ If it is a string, it is a color name or specification,
e.g. \"#666600\"."
:type '(choice number color))
+(defface beacon-fallback-background
+ '((((class color) (background light)) (:background "black"))
+ (((class color) (background dark)) (:background "white")))
+ "Fallback beacon background color.
+Used in cases where the color can't be determined by Emacs.
+Only the background of this face is used.")
+
(defvar beacon-dont-blink-predicates nil
"A list of predicates that prevent the beacon blink.
These predicate functions are called in order, with no
@@ -229,8 +229,8 @@ Only returns `beacon-size' elements."
(defun beacon--color-range ()
"Return a list of background colors for the beacon."
(let* ((default-bg (face-attribute 'default :background))
- (bg (color-values (if (string-prefix-p "unspecified" default-bg)
- (face-attribute 'beacon-fallback :background)
+ (bg (color-values (if (string-match "\\`unspecified-" default-bg)
+ (face-attribute 'beacon-fallback-background
:background)
default-bg)))
(fg (cond
((stringp beacon-color) (color-values beacon-color))
