[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ca3ec24 14/34: Fix temporary line breaks due to too long a
From: |
Artur Malabarba |
Subject: |
[elpa] master ca3ec24 14/34: Fix temporary line breaks due to too long after-strings |
Date: |
Fri, 16 Oct 2015 09:56:53 +0000 |
branch: master
commit ca3ec24d0c0ab328754df9c5e453e6a31cd9691b
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>
Fix temporary line breaks due to too long after-strings
---
beacon.el | 12 +++++++++---
1 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/beacon.el b/beacon.el
index 25a1b9e..1ec0f72 100644
--- a/beacon.el
+++ b/beacon.el
@@ -6,7 +6,7 @@
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
;; Version: 0.1
-;; Package-Requires: ((cl-lib "0.5"))
+;; Package-Requires: ((cl-lib "0.5") (seq "1.9"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -29,6 +29,7 @@
;;; Code:
(require 'cl-lib)
+(require 'seq)
(defgroup beacon nil
"Customization group for beacon."
@@ -104,7 +105,7 @@ COLORS applied to each one."
(overlay-put overlay 'after-string
(propertize
(mapconcat (lambda (c) (propertize " " 'face (list
:background c)))
- colors
+ colors
"")
'cursor 1000))))
@@ -112,7 +113,12 @@ COLORS applied to each one."
"Put an overlay at point with an after-string property.
The property's value is a string of spaces with background
COLORS applied to each one."
- (let ((ov (make-overlay (point) (point))))
+ (let ((ov (make-overlay (point) (point)))
+ ;; The after-string must not be longer than the remaining columns from
+ ;; point to right window-end else it will be wrapped around (assuming
+ ;; truncate-lines is nil) introducing an ugly wrap-around for a
+ ;; fraction of a second.
+ (colors (seq-take colors (- (window-width) (current-column)))))
(beacon--ov-put-after-string ov colors)
(overlay-put ov 'beacon t)
(push ov beacon--ovs)))
- [elpa] master 43cbfd4 15/34: Merge pull request #3 from tsdh/master, (continued)
- [elpa] master 43cbfd4 15/34: Merge pull request #3 from tsdh/master, Artur Malabarba, 2015/10/16
- [elpa] master 8abbedc 05/34: Default to blinking on window scroll instead of point movement, Artur Malabarba, 2015/10/16
- [elpa] master fbcf9fc 16/34: Drop cl-lib dep, Artur Malabarba, 2015/10/16
- [elpa] master 19096a6 10/34: Initial (failed) impl for beacon at end of line, Artur Malabarba, 2015/10/16
- [elpa] master e533e04 11/34: Fix an error, Artur Malabarba, 2015/10/16
- [elpa] master 03d12b4 03/34: Rename file, Artur Malabarba, 2015/10/16
- [elpa] master 8941740 07/34: Fix docs, Artur Malabarba, 2015/10/16
- [elpa] master c82095a 06/34: Add url, Artur Malabarba, 2015/10/16
- [elpa] master 9152a09 08/34: Separate mark-pushing from blinking, Artur Malabarba, 2015/10/16
- [elpa] master b60416c 01/34: First commit, Artur Malabarba, 2015/10/16
- [elpa] master ca3ec24 14/34: Fix temporary line breaks due to too long after-strings,
Artur Malabarba <=
- [elpa] master c507480 13/34: Fix after-string overlays, Artur Malabarba, 2015/10/16
- [elpa] master 02112fa 12/34: Fix lighter, Artur Malabarba, 2015/10/16
- [elpa] master f1bb231 20/34: Fix scrolling outside command loop, Artur Malabarba, 2015/10/16
- [elpa] master 0b7041e 22/34: More documentation, Artur Malabarba, 2015/10/16
- [elpa] master 5622af4 25/34: [#2] Add more options for preventing a blink, Artur Malabarba, 2015/10/16
- [elpa] master 6f647f6 21/34: Only blink selected window, Artur Malabarba, 2015/10/16
- [elpa] master 0036355 23/34: Copyright, Artur Malabarba, 2015/10/16
- [elpa] master bccd3de 33/34: Document contributors, Artur Malabarba, 2015/10/16
- [elpa] master d1f0728 26/34: Extend doc, Artur Malabarba, 2015/10/16
- [elpa] master 4a7079e 17/34: Improve readme, Artur Malabarba, 2015/10/16