[Tips] 一个beacon-mode/pulse-line的简单类似物

Emacs-general
1

我的眼神不好，beacon，pulse-line，hl-line，pulsar的视觉效果都感觉不够明显，所以我写了一小段代码，切换window的时候直接flash整个window

(require 'pulse)
(defface pulse-highlight-wholeline-face
    '((t (:inherit pulse-highlight-face
          :extend t)))
  "Face for pulse window.")

(defun pulse-window (&rest _)
  (let ((pulse-iterations 1)
        (pulse-delay 0.25))
    (pulse-momentary-highlight-region (window-start) (window-end) 'pulse-highlight-wholeline-face)))
(advice-add 'other-window :after 'pulse-window)
(advice-add 'windmove-up :after 'pulse-window)
(advice-add 'windmove-down :after 'pulse-window)
(advice-add 'windmove-left :after 'pulse-window)
(advice-add 'windmove-right :after 'pulse-window)

也可以用在获得焦点或者切换buffer的时候，不过我目前没搞。

2 个赞