[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 38d0419 1/4: Fix background color
From: |
Artur Malabarba |
Subject: |
[elpa] master 38d0419 1/4: Fix background color |
Date: |
Sat, 31 Oct 2015 06:36:17 +0000 |
branch: master
commit 38d0419e3d4217b30e2aa8c416c04bd44eb9e34a
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Fix background color
---
beacon.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/beacon.el b/beacon.el
index 5b6d924..be77a38 100644
--- a/beacon.el
+++ b/beacon.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <address@hidden>
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
-;; Version: 0.4
+;; Version: 0.5
;; Package-Requires: ((seq "1.11"))
;; This program is free software; you can redistribute it and/or modify
@@ -38,6 +38,7 @@
;;; Code:
(require 'seq)
+(require 'faces)
(defgroup beacon nil
"Customization group for beacon."
@@ -235,7 +236,7 @@ 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))
+ (let* ((default-bg (background-color-at-point))
(bg (color-values (if (string-match "\\`unspecified-" default-bg)
(face-attribute 'beacon-fallback-background
:background)
default-bg)))