New upstream version 1.3.3
Lev Lamberov
6 years ago
| 4 | 4 | ;; Author: Artur Malabarba <emacs@endlessparentheses.com> |
| 5 | 5 | ;; URL: https://github.com/Malabarba/beacon |
| 6 | 6 | ;; Keywords: convenience |
| 7 | ;; Version: 1.3.2 | |
| 7 | ;; Version: 1.3.3 | |
| 8 | 8 | ;; Package-Requires: ((seq "2.14")) |
| 9 | 9 | |
| 10 | 10 | ;; This program is free software; you can redistribute it and/or modify |
| 156 | 156 | |
| 157 | 157 | (defcustom beacon-dont-blink-major-modes '(t magit-status-mode magit-popup-mode |
| 158 | 158 | inf-ruby-mode |
| 159 | mu4e-headers-mode | |
| 159 | 160 | gnus-summary-mode gnus-group-mode) |
| 160 | 161 | "A list of major-modes where the beacon won't blink. |
| 161 | 162 | Whenever the current buffer satisfies `derived-mode-p' for |
| 236 | 237 | COLORS applied to each one." |
| 237 | 238 | ;; The after-string must not be longer than the remaining columns |
| 238 | 239 | ;; from point to right window-end else it will be wrapped around. |
| 239 | (let ((colors (seq-take colors (- (window-width) (current-column))))) | |
| 240 | (let ((colors (seq-take colors (- (window-width) (current-column) 1)))) | |
| 240 | 241 | (beacon--ov-put-after-string (beacon--make-overlay 0) colors))) |
| 241 | 242 | |
| 242 | 243 | (defun beacon--ov-at-point () |