@@ -185,6 +185,18 @@ without the `:extend' property.")
face
'vde/pulse-line-modus-theme)))
(pulse-momentary-highlight-region start end face)))
+ (defun ct/yank-pulse-advice (orig-fn &rest args)
+ ;; Define the variables first
+ (let (begin end)
+ ;; Initialize `begin` to the current point before pasting
+ (setq begin (point))
+ ;; Forward to the decorated function (i.e. `yank`)
+ (apply orig-fn args)
+ ;; Initialize `end` to the current point after pasting
+ (setq end (point))
+ ;; Pulse to highlight!
+ (pulse-momentary-highlight-region begin end)))
+ (advice-add 'yank :around #'ct/yank-pulse-advice)
:bind ("<C-escape>" . vde/pulse-line))
(provide 'config-navigating)