X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/0c5b757b62d2712a0f7951bce2751be8fed3cf32..02cc76051de74d3a81ec6b988ea3058a9fa73cfa:/packages/beacon/beacon.el diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el index 66e696401..422614919 100644 --- a/packages/beacon/beacon.el +++ b/packages/beacon/beacon.el @@ -5,7 +5,7 @@ ;; Author: Artur Malabarba ;; URL: https://github.com/Malabarba/beacon ;; Keywords: convenience -;; Version: 0.5.1 +;; Version: 1.0 ;; Package-Requires: ((seq "1.11")) ;; This program is free software; you can redistribute it and/or modify @@ -150,6 +150,7 @@ For instance, if you want to disable beacon on buffers where (add-hook 'beacon-dont-blink-predicates #'window-minibuffer-p) (defcustom beacon-dont-blink-major-modes '(t magit-status-mode magit-popup-mode + inf-ruby-mode gnus-summary-mode gnus-group-mode) "A list of major-modes where the beacon won't blink. Whenever the current buffer satisfies `derived-mode-p' for @@ -157,8 +158,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 +256,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)) @@ -293,8 +301,10 @@ Only returns `beacon-size' elements." (o (delete-overlay o) (save-excursion - (while (progn (forward-char 1) - (setq o (beacon--ov-at-point))) + (while (and (condition-case nil + (progn (forward-char 1) t) + (end-of-buffer nil)) + (setq o (beacon--ov-at-point))) (let ((colors (overlay-get o 'beacon-colors))) (if (not colors) (move-overlay o (1- (point)) (point)) @@ -303,10 +313,26 @@ Only returns `beacon-size' elements." (beacon--ov-put-after-string o colors) (forward-char 1)))))))) +;;;###autoload (defun beacon-blink () - "Blink the beacon at the position of the cursor." + "Blink the beacon at the position of the cursor. +Unlike `beacon-blink-automated', the beacon will blink +unconditionally (even if `beacon-mode' is disabled), and this can +be invoked as a user command or called from lisp code." (interactive) (beacon--vanish) + (beacon--shine) + (setq beacon--timer + (run-at-time beacon-blink-delay + (/ beacon-blink-duration 1.0 beacon-size) + #'beacon--dec))) + +(defun beacon-blink-automated () + "If appropriate, blink the beacon at the position of the cursor. +Unlike `beacon-blink', the blinking is conditioned on a series of +variables: `beacon-mode', `beacon-dont-blink-commands', +`beacon-dont-blink-major-modes', and +`beacon-dont-blink-predicates'." ;; Record vars here in case something is blinking outside the ;; command loop. (beacon--record-vars) @@ -314,11 +340,7 @@ Only returns `beacon-size' elements." (run-hook-with-args-until-success 'beacon-dont-blink-predicates) (seq-find #'derived-mode-p beacon-dont-blink-major-modes) (memq (or this-command last-command) beacon-dont-blink-commands)) - (beacon--shine) - (setq beacon--timer - (run-at-time beacon-blink-delay - (/ beacon-blink-duration 1.0 beacon-size) - #'beacon--dec)))) + (beacon-blink))) ;;; Movement detection @@ -363,22 +385,20 @@ 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)))) - (beacon-blink)) + (beacon-blink-automated)) ;; Blink for scrolling. ((and beacon--window-scrolled (equal beacon--window-scrolled (selected-window))) - (beacon-blink)) + (beacon-blink-automated)) ;; 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-automated))) (beacon--maybe-push-mark) (setq beacon--window-scrolled nil)) @@ -397,12 +417,12 @@ unreliable, so just blink immediately." (if this-command (setq beacon--window-scrolled win) (setq beacon--window-scrolled nil) - (beacon-blink)))) + (beacon-blink-automated)))) (defun beacon--blink-on-focus () "Blink if `beacon-blink-when-focused' is non-nil" (when beacon-blink-when-focused - (beacon-blink))) + (beacon-blink-automated))) ;;; Minor-mode