[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0771ac6 9/9: Merge commit 'f2f9e47725782527b5f2b52b26db726
From: |
Artur Malabarba |
Subject: |
[elpa] master 0771ac6 9/9: Merge commit 'f2f9e47725782527b5f2b52b26db7267f173fa20' |
Date: |
Sat, 16 Jan 2016 09:42:03 +0000 |
branch: master
commit 0771ac6f5eeaad1965fe7759aeb9a6544eab2adb
Merge: a426434 f2f9e47
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Merge commit 'f2f9e47725782527b5f2b52b26db7267f173fa20'
---
packages/beacon/beacon.el | 29 +++++++++++++++++------------
1 files changed, 17 insertions(+), 12 deletions(-)
diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el
index 66e6964..23d292e 100644
--- a/packages/beacon/beacon.el
+++ b/packages/beacon/beacon.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <address@hidden>
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
-;; Version: 0.5.1
+;; Version: 0.6
;; Package-Requires: ((seq "1.11"))
;; This program is free software; you can redistribute it and/or modify
@@ -157,8 +157,8 @@ one of the major-modes on this list, the beacon will not
blink."
:type '(repeat symbol))
-(defcustom beacon-dont-blink-commands '(recenter-top-bottom next-line
previous-line
- forward-line)
+(defcustom beacon-dont-blink-commands '(next-line previous-line
+ forward-line)
"A list of commands that should not make the beacon blink.
Use this for commands that scroll the window in very
predictable ways, when the blink would be more distracting
@@ -255,15 +255,22 @@ Only returns `beacon-size' elements."
(defun beacon--color-range ()
"Return a list of background colors for the beacon."
- (let* ((default-bg (or (background-color-at-point)
+ (let* ((default-bg (or (save-excursion
+ (unless (eobp)
+ (forward-line 1)
+ (unless (or (bobp) (not (bolp)))
+ (forward-char -1)))
+ (background-color-at-point))
(face-background 'default)))
- (bg (color-values (if (string-match "\\`unspecified-" default-bg)
+ (bg (color-values (if (or (not (stringp default-bg))
+ (string-match "\\`unspecified-" default-bg))
(face-attribute 'beacon-fallback-background
:background)
default-bg)))
(fg (cond
((stringp beacon-color) (color-values beacon-color))
- ((< (color-distance "black" bg)
- (color-distance "white" bg))
+ ((and (stringp bg)
+ (< (color-distance "black" bg)
+ (color-distance "white" bg)))
(make-list 3 (* beacon-color 65535)))
(t (make-list 3 (* (- 1 beacon-color) 65535))))))
(apply #'seq-mapn (lambda (r g b) (format "#%04x%04x%04x" r g b))
@@ -363,8 +370,8 @@ The same is true for DELTA-X and horizonta movement."
(defun beacon--post-command ()
"Blink if point moved very far."
(cond
- ((not (markerp beacon--previous-place))
- (beacon--vanish))
+ ;; Sanity check.
+ ((not (markerp beacon--previous-place)))
;; Blink for switching windows.
((and beacon-blink-when-window-changes
(not (eq beacon--previous-window (selected-window))))
@@ -376,9 +383,7 @@ The same is true for DELTA-X and horizonta movement."
;; Blink for movement
((beacon--movement-> beacon-blink-when-point-moves-vertically
beacon-blink-when-point-moves-horizontally)
- (beacon-blink))
- ;; Even if we don't blink, vanish any previous beacon.
- (t (beacon--vanish)))
+ (beacon-blink)))
(beacon--maybe-push-mark)
(setq beacon--window-scrolled nil))
- [elpa] master updated (a426434 -> 0771ac6), Artur Malabarba, 2016/01/16
- [elpa] master 72c5c58 1/9: Remove recenter-top-bottom from beacon-dont-blink-commands, Artur Malabarba, 2016/01/16
- [elpa] master 2f6ec69 3/9: Fix #38 - bob error introduced by previous commit, Artur Malabarba, 2016/01/16
- [elpa] master 74dc55e 2/9: Fix weird beacon color when point coincides with an overlay, Artur Malabarba, 2016/01/16
- [elpa] master 0353da8 6/9: Try again to fix the case of no bg color, Artur Malabarba, 2016/01/16
- [elpa] master fee1e5e 4/9: Fix #39 - Allow for the absence of a background color, Artur Malabarba, 2016/01/16
- [elpa] master af70a9c 5/9: Small fix for when buffer doesn't end in a newline, Artur Malabarba, 2016/01/16
- [elpa] master f2f9e47 8/9: Version bump, Artur Malabarba, 2016/01/16
- [elpa] master 0771ac6 9/9: Merge commit 'f2f9e47725782527b5f2b52b26db7267f173fa20',
Artur Malabarba <=
- [elpa] master 2ac8539 7/9: [Fix #40] Actually allow beacon-blink to be called as a command, Artur Malabarba, 2016/01/16