1 files changed, 16 insertions, 0 deletions

@@ -1430,6 +1430,22 @@ see also
   (define-key acdw/map (kbd "C-=") #'er/expand-region)
 #+end_src
 
+*** Pulse the modified region with goggles
+
+#+begin_src emacs-lisp :noweb-ref packages
+  (straight-use-package 'goggles)
+#+end_src
+
+#+begin_src emacs-lisp :noweb-ref hooks
+  (defun fix--goggles-mode ()
+    "Fix goggles-mode to blackout the lighter."
+    (goggles-mode)
+    (blackout 'goggles-mode))
+
+  (add-hook 'text-mode-hook #'fix--goggles-mode)
+  (add-hook 'prog-mode-hook #'fix--goggles-mode)
+#+end_src
+
 ** Undo                                                               :package:
 
 *** Undo Fu