Flash modeline with ring-bell-function

2023-11-11 13:34:55 +00:00 · 2023-11-11 13:34:55 +00:00 · 33aae456ef
parent 3f288c5c2b
commit 33aae456ef
1 changed files with 5 additions and 1 deletions
--- a/.emacs.d/lisp/init-ui.el
+++ b/.emacs.d/lisp/init-ui.el
@ -58,7 +58,11 @@

  (setq show-trailing-whitespace t)
  (setq-default indicate-empty-lines t)
-  (setq ring-bell-function 'ignore
+
+  ;; http://whattheemacsd.com/appearance.el-02.html (if this gets to annoying, just set back to 'ignore)
+  (setq ring-bell-function (lambda ()
+                             (invert-face 'mode-line)
+                             (run-with-timer 0.05 nil 'invert-face 'mode-line))
        visible-bell t)

  ;; TODO do we want these? (copied from prelude)